From: Arnaud Charlet Date: Tue, 7 Apr 2009 13:21:50 +0000 (+0200) Subject: [multiple changes] X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5f143024b77f5f07e61163b6be4ab1b663af7a5d;p=gcc.git [multiple changes] 2009-04-07 Thomas Quinot * exp_ch3.adb: Minor rewording (comments) 2009-04-07 Robert Dewar * exp_disp.adb: Minor reformatting From-SVN: r145670 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index d2a58c371ec..25ef103cd98 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2009-04-07 Thomas Quinot + + * exp_ch3.adb: Minor rewording (comments) + +2009-04-07 Robert Dewar + + * exp_disp.adb: Minor reformatting + 2009-04-07 Eric Botcazou * gcc-interface/decl.c (gnat_to_gnu_entity) : Test the diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 4f9df51c11d..7de774e014a 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -2517,7 +2517,7 @@ package body Exp_Ch3 is -- Loop through visible declarations of task types and protected -- types moving any expanded code from the spec to the body of the - -- init procedure + -- init procedure. if Is_Task_Record_Type (Rec_Type) or else Is_Protected_Record_Type (Rec_Type) @@ -3082,7 +3082,7 @@ package body Exp_Ch3 is -- for public types in case Initialize_Scalars applies to a client. -- However, such a procedure is not needed in the case where either -- of restrictions No_Initialize_Scalars or No_Default_Initialization - -- apply. No_Initialize_Scalars excludes the possibility of using + -- applies. No_Initialize_Scalars excludes the possibility of using -- Initialize_Scalars in any partition, and No_Default_Initialization -- implies that no initialization should ever be done for objects of -- the type, so is incompatible with Initialize_Scalars. diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index b44ea2e3027..a14adf0b0a4 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -6170,7 +6170,7 @@ package body Exp_Disp is Prefix => New_Reference_To (Prim, Loc), Attribute_Name => Name_Unrestricted_Access)))); - -- Register copy of the pointer to the 'size primitive in the TSD. + -- Register copy of the pointer to the 'size primitive in the TSD if Chars (Prim) = Name_uSize and then RTE_Record_Component_Available (RE_Size_Func) @@ -6531,7 +6531,7 @@ package body Exp_Disp is procedure Set_Fixed_Prim (Pos : Nat) is begin - pragma Assert (Pos >= 0 and then Pos <= Count_Prim); + pragma Assert (Pos <= Count_Prim); Fixed_Prim (Pos) := True; exception when Constraint_Error =>