diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-07 15:21:50 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-07 15:21:50 +0200 |
| commit | 5f143024b77f5f07e61163b6be4ab1b663af7a5d (patch) | |
| tree | e9ae14857405390aa415f54f70fa0a2538b03f0c | |
| parent | d8e535fa827f53241eb8dae67b4165d56a7efced (diff) | |
| download | gcc-5f143024b77f5f07e61163b6be4ab1b663af7a5d.zip gcc-5f143024b77f5f07e61163b6be4ab1b663af7a5d.tar.gz gcc-5f143024b77f5f07e61163b6be4ab1b663af7a5d.tar.bz2 | |
[multiple changes]
2009-04-07 Thomas Quinot <quinot@adacore.com>
* exp_ch3.adb: Minor rewording (comments)
2009-04-07 Robert Dewar <dewar@adacore.com>
* exp_disp.adb: Minor reformatting
From-SVN: r145670
| -rw-r--r-- | gcc/ada/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_disp.adb | 4 |
3 files changed, 12 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index d2a58c3..25ef103 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2009-04-07 Thomas Quinot <quinot@adacore.com> + + * exp_ch3.adb: Minor rewording (comments) + +2009-04-07 Robert Dewar <dewar@adacore.com> + + * exp_disp.adb: Minor reformatting + 2009-04-07 Eric Botcazou <ebotcazou@adacore.com> * gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Test the diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 4f9df51..7de774e 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 b44ea2e..a14adf0 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 => |