From 1ca46a7753d416f7f5610f82cca7f89683bf4da0 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 21 May 2015 15:12:18 +0200 Subject: [PATCH] [multiple changes] 2015-05-21 Ed Schonberg * sem_ch5.adb: minor reformatting. 2015-05-21 Robert Dewar * freeze.adb (Freeze_Entity): Properly tag -gnatw.z messages. From-SVN: r223482 --- gcc/ada/ChangeLog | 8 ++++++++ gcc/ada/freeze.adb | 12 +++++++----- gcc/ada/sem_ch5.adb | 9 ++++----- 3 files changed, 19 insertions(+), 10 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 04e0cae6be7..464e9a580c5 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2015-05-21 Ed Schonberg + + * sem_ch5.adb: minor reformatting. + +2015-05-21 Robert Dewar + + * freeze.adb (Freeze_Entity): Properly tag -gnatw.z messages. + 2015-05-21 Robert Dewar * freeze.adb: Minor reformatting. diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index b87027ded73..f3249812711 100644 --- 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 38c32df4c1e..dcdc7ebab0a 100644 --- 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; -- 2.30.2