diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-08 12:25:23 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-08 12:25:23 +0200 |
| commit | 0ac2a660757afcfe00a3e81973ac4c00555dde40 (patch) | |
| tree | 6e7609711c0793d5080551e14c8b72654079b6ce /gcc/ada | |
| parent | ef23710410fd2e10867efdcf7cfd6a35171c9fab (diff) | |
| download | gcc-0ac2a660757afcfe00a3e81973ac4c00555dde40.zip gcc-0ac2a660757afcfe00a3e81973ac4c00555dde40.tar.gz gcc-0ac2a660757afcfe00a3e81973ac4c00555dde40.tar.bz2 | |
[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
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/sprint.adb | 2 |
3 files changed, 11 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index cb0c7e9..98b10bc 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,13 @@ 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. 2010-10-08 Vincent Celier <celier@adacore.com> diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 6b9fa57..b8c51dc 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -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 => diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 49906e5..b2fe941 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -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; |