[multiple changes]

2015-05-21  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch5.adb: minor reformatting.

2015-05-21  Robert Dewar  <dewar@adacore.com>

	* freeze.adb (Freeze_Entity): Properly tag -gnatw.z messages.

From-SVN: r223482

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 04e0cae6be73944ba8f89f995019b759c08038e9..464e9a580c512d1816eb2108ccce3046dcaaf9b9 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,11 @@
+2015-05-21  Ed Schonberg  <schonberg@adacore.com>
+
+       * sem_ch5.adb: minor reformatting.
+
+2015-05-21  Robert Dewar  <dewar@adacore.com>
+
+       * freeze.adb (Freeze_Entity): Properly tag -gnatw.z messages.
+
 2015-05-21  Robert Dewar  <dewar@adacore.com>
 
        * freeze.adb: Minor reformatting.

diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index b87027ded73236bd44721ea0629c41f4717c860d..f32498127117cc1de4586b7ac2c3c2ef760e9e73 100644 (file)
--- a/gcc/ada/freeze.adb
+++ b/gcc/ada/freeze.adb
@@ -5256,22 +5256,24 @@ package body Freeze is
                   if Sloc (SC) > Sloc (AC) then
                      Loc := SC;
                      Error_Msg_NE
-                       ("??size is not a multiple of alignment for &", Loc, E);
+                       ("?Z?size is not a multiple of alignment for &",
+                        Loc, E);
                      Error_Msg_Sloc := Sloc (AC);
                      Error_Msg_Uint_1 := Alignment (E);
-                     Error_Msg_N ("\??alignment of ^ specified #", Loc);
+                     Error_Msg_N ("\?Z?alignment of ^ specified #", Loc);
 
                   else
                      Loc := AC;
                      Error_Msg_NE
-                       ("??size is not a multiple of alignment for &", Loc, E);
+                       ("?Z?size is not a multiple of alignment for &",
+                        Loc, E);
                      Error_Msg_Sloc := Sloc (SC);
                      Error_Msg_Uint_1 := RM_Size (E);
-                     Error_Msg_N ("\??size of ^ specified #", Loc);
+                     Error_Msg_N ("\?Z?size of ^ specified #", Loc);
                   end if;
 
                   Error_Msg_Uint_1 := ((RM_Size (E) / Abits) + 1) * Abits;
-                  Error_Msg_N ("\??Object_Size will be increased to ^", Loc);
+                  Error_Msg_N ("\?Z?Object_Size will be increased to ^", Loc);
                end if;
             end;
          end if;

diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb
index 38c32df4c1e777650f1a689177bbc57d55550acb..dcdc7ebab0a46280e9bb5040670dd5595481eba8 100644 (file)
--- a/gcc/ada/sem_ch5.adb
+++ b/gcc/ada/sem_ch5.adb
@@ -1727,9 +1727,9 @@ package body Sem_Ch5 is
       --  implements the reversible iterator interface.
 
       function Get_Cursor_Type (Typ : Entity_Id) return Entity_Id;
-      --  For containers with Iterator and related aspects, the cursor the
-      --  is obtained by locating an entity with the proper name in the
-      --  scope of the type.
+      --  For containers with Iterator and related aspects, the cursor is
+      --  obtained by locating an entity with the proper name in the scope
+      --  of the type.
 
       -----------------------------
       -- Check_Reverse_Iteration --
@@ -2179,8 +2179,7 @@ package body Sem_Ch5 is
                   elsif Iter_Kind = N_Function_Call then
                      Obj := First_Actual (Original_Node (Iter_Name));
 
-                  --  If neither, likely previous error, make sure Obj has some
-                  --  reasonable value in such a case.
+                  --  If neither, the name comes from source
 
                   else
                      Obj := Iter_Name;