* sem_ch12.adb: Minor reformatting

From-SVN: r47560

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 93613407ab942746110b60a5c00cd9000e0dd7e8..cf94b1d738edd389519198e9561397db0c68aab4 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-03   <dewar@gnat.com>
+
+       * sem_ch12.adb: Minor reformatting
+
 2001-12-03  Ed Schonberg <schonber@gnat.com>
 
        * sem_ch12.adb (Inline_Instance_Body): Use Save_Scope_Stack and 

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index b7c880422a2702d28fea6630b8c158e632a12d4b..a345a41550ead009de9ab381834866c49cbdc9d3 100644 (file)
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -2691,7 +2691,7 @@ package body Sem_Ch12 is
             S := Scope (S);
          end loop;
 
-         --  Find and save all enclosing instances.
+         --  Find and save all enclosing instances
 
          S := Current_Scope;
 
@@ -2709,6 +2709,7 @@ package body Sem_Ch12 is
          --  Remove context of current compilation unit, unless we
          --  are within a nested package instantiation, in which case
          --  the context has been removed previously.
+
          --  If current scope is the body of a child unit, remove context
          --  of spec as well.
 
@@ -2734,6 +2735,7 @@ package body Sem_Ch12 is
                Save_Scope_Stack;
 
                if Is_Child_Unit (S) then
+
                   --  Remove child unit from stack, as well as inner scopes.
                   --  Removing the context of a child unit removes parent
                   --  units as well.
@@ -2765,8 +2767,7 @@ package body Sem_Ch12 is
            ((N, Act_Decl, Expander_Active, Current_Sem_Unit));
          Pop_Scope;
 
-
-         --  Restore context.
+         --  Restore context
 
          Set_Is_Immediately_Visible (Gen_Comp, Vis);
 
@@ -3219,7 +3220,6 @@ package body Sem_Ch12 is
          if Parent_Installed then
             Remove_Parent;
          end if;
-
    end Analyze_Subprogram_Instantiation;
 
    -------------------------