[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:
Arnaud Charlet 2010-10-08 12:25:23 +02:00
parent ef23710410
commit 0ac2a66075
3 changed files with 11 additions and 2 deletions

View File

@ -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.

View File

@ -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 =>

View File

@ -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;