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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145670 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d2a58c3..25ef103 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 =>