* sem_ch12.adb: Minor reformatting

From-SVN: r47560

2 files changed, 8 insertions, 4 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 9361340..cf94b1d 100644
--- 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 b7c8804..a345a41 100644
--- 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;
 
    -------------------------