sem_ch3.adb, [...]: Minor reformatting.

2010-06-22  Robert Dewar  <dewar@adacore.com>

	* sem_ch3.adb, sem_ch8.adb: Minor reformatting.

From-SVN: r161198

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a7a0e64..373ef18 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2010-06-22  Robert Dewar  <dewar@adacore.com>
+
+       * sem_ch3.adb, sem_ch8.adb: Minor reformatting.
+
 2010-06-22  Thomas Quinot  <quinot@adacore.com>
 
        * sem_elab.adb: Minor reformatting.

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index f1aaf61..c71e69d 100644 (file)
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -6782,7 +6782,7 @@ package body Sem_Ch3 is
          --  (see also non-discriminated case below).
 
          if Present (Record_Extension_Part (Type_Def))
-              or else Is_Interface (Parent_Base)
+           or else Is_Interface (Parent_Base)
          then
             Freeze_Before (New_Decl, Parent_Type);
          end if;

diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 374cfa7..370e2d6 100644 (file)
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -398,9 +398,9 @@ package body Sem_Ch8 is
    --  must be added to the list of actuals in any subsequent call.
 
    function Applicable_Use (Pack_Name : Node_Id) return Boolean;
-   --  Common code to Use_One_Package and Set_Use, to determine whether
-   --  use clause must be processed. Pack_Name is an entity name that
-   --  references the package in question.
+   --  Common code to Use_One_Package and Set_Use, to determine whether use
+   --  clause must be processed. Pack_Name is an entity name that references
+   --  the package in question.
 
    procedure Attribute_Renaming (N : Node_Id);
    --  Analyze renaming of attribute as subprogram. The renaming declaration N
@@ -408,10 +408,9 @@ package body Sem_Ch8 is
    --  applied to the formals of the function.
 
    procedure Set_Entity_Or_Discriminal (N : Node_Id; E : Entity_Id);
-   --  Set Entity, with style check if need be. For a discriminant
-   --  reference, replace by the corresponding discriminal, i.e. the
-   --  parameter of the initialization procedure that corresponds to
-   --  the discriminant.
+   --  Set Entity, with style check if need be. For a discriminant reference,
+   --  replace by the corresponding discriminal, i.e. the parameter of the
+   --  initialization procedure that corresponds to the discriminant.
 
    procedure Check_Frozen_Renaming (N : Node_Id; Subp : Entity_Id);
    --  A renaming_as_body may occur after the entity of the original decla-