From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Fri, 8 Oct 2010 10:25:23 +0000 (+0200)
Subject: [multiple changes]
X-Git-Tag: upstream/12.2.0~89604
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0ac2a660757afcfe00a3e81973ac4c00555dde40;p=platform%2Fupstream%2Fgcc.git

[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
---

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;