[multiple changes]
2010-10-08 Robert Dewar <dewar@adacore.com> * sprint.adb: Minor reformatting. 2010-10-08 Javier Miranda <miranda@adacore.com> * exp_ch4.adb (Real_Range_Check): Declare temporary as constant. From-SVN: r165158
This commit is contained in:
parent
ef23710410
commit
0ac2a66075
|
@ -1,3 +1,11 @@
|
|||
2010-10-08 Robert Dewar <dewar@adacore.com>
|
||||
|
||||
* sprint.adb: Minor reformatting.
|
||||
|
||||
2010-10-08 Javier Miranda <miranda@adacore.com>
|
||||
|
||||
* exp_ch4.adb (Real_Range_Check): Declare temporary as constant.
|
||||
|
||||
2010-10-08 Robert Dewar <dewar@adacore.com>
|
||||
|
||||
* sem_ch3.adb: Minor reformatting.
|
||||
|
|
|
@ -8103,7 +8103,8 @@ package body Exp_Ch4 is
|
|||
Make_Object_Declaration (Loc,
|
||||
Defining_Identifier => Tnn,
|
||||
Object_Definition => New_Occurrence_Of (Btyp, Loc),
|
||||
Expression => Conv),
|
||||
Constant_Present => True,
|
||||
Expression => Conv),
|
||||
|
||||
Make_Raise_Constraint_Error (Loc,
|
||||
Condition =>
|
||||
|
|
|
@ -65,7 +65,7 @@ package body Sprint is
|
|||
-- Set True if the -gnatdo (dump original tree) flag is set
|
||||
|
||||
Dump_Generated_Only : Boolean;
|
||||
-- Set True if the -gnatG (dump generated tree) debug flag is set
|
||||
-- Set True if the -gnatdG (dump generated tree) debug flag is set
|
||||
-- or for Print_Generated_Code (-gnatG) or Dump_Generated_Code (-gnatD).
|
||||
|
||||
Dump_Freeze_Null : Boolean;
|
||||
|
|
Loading…
Reference in New Issue