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

2013-07-08  Robert Dewar  <dewar@adacore.com>

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

From-SVN: r200755

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index cf2decad541a6398ed71fb40219ab79c80ad6236..0fa4a2e6a3b4bcb6a74c354ac7bb8ebf3e601186 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2013-07-08  Robert Dewar  <dewar@adacore.com>
+
+       * sem_ch8.adb, sem_ch8.ads: Minor reformatting.
+
 2013-07-08  Gary Dismukes  <dismukes@adacore.com>
 
        * gnat_rm.texi: Minor reformatting and rewording for consistency.

diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index da47aabab1ff1947b5a5e3f0e1c996518872fb27..c0795b7f7688e357d68a89a21b38173eeb7f3b11 100644 (file)
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -7664,6 +7664,8 @@ package body Sem_Ch8 is
    begin
       --  Restore visibility of previous scope stack, if any
 
+      --  Should use Remove_Elmt, so that elements can be reused ???
+
       Elmt := First_Elmt (List);
       while Present (Elmt) loop
          Set_Is_Immediately_Visible (Node (Elmt));
@@ -7690,7 +7692,13 @@ package body Sem_Ch8 is
 
       procedure Remove_From_Visibility (E : Entity_Id);
       --  If E is immediately visible then append it to the result and remove
-      --  it temporarily from visibility
+      --  it temporarily from visibility.
+
+      ----------------------------
+      -- Remove_From_Visibility --
+      ----------------------------
+
+      --  Need comment on why we do this instead of old approach???
 
       procedure Remove_From_Visibility (E : Entity_Id) is
       begin
@@ -7700,6 +7708,8 @@ package body Sem_Ch8 is
          end if;
       end Remove_From_Visibility;
 
+   --  Start of processing for Save_Scope_Stack
+
    begin
       if SS_Last >= Scope_Stack.First
         and then Scope_Stack.Table (SS_Last).Entity /= Standard_Standard

diff --git a/gcc/ada/sem_ch8.ads b/gcc/ada/sem_ch8.ads
index 6a5c89c07d4ba2316f7e6212f21e7d412daaee5a..99d2b1485d46870deac461e753f31e30409a7f96 100644 (file)
--- a/gcc/ada/sem_ch8.ads
+++ b/gcc/ada/sem_ch8.ads
@@ -148,7 +148,8 @@ package Sem_Ch8 is
    --  with-clause on system. N is absent when the function is called to find
    --  the visibility of implicit operators.
 
-   function Save_Scope_Stack (Handle_Use : Boolean := True) return Elist_Id;
+   function Save_Scope_Stack
+     (Handle_Use : Boolean := True) return Elist_Id;
    procedure Restore_Scope_Stack
      (List       : Elist_Id;
       Handle_Use : Boolean := True);
@@ -156,10 +157,13 @@ package Sem_Ch8 is
    --  be compiled in the course of the compilation of another unit U2. This
    --  happens whenever Rtsfind is called. U1, the unit retrieved by Rtsfind,
    --  must be compiled in its own context, and the current scope stack
-   --  containing U2 and local scopes must be made unreachable. On return, the
-   --  contents of the scope stack must be made accessible again. The flag
-   --  Handle_Use indicates whether local use clauses must be removed or
-   --  installed. In the case of inlining of instance bodies, the visibility
+   --  containing U2 and local scopes must be made unreachable. This is
+   --  achieved using a call to Save_Scope_Stack. On return, the contents
+   --  of the scope stack must be made accessible again with a call to
+   --  Restore_Scope_Stack.
+   --
+   --  The flag Handle_Use indicates whether local use clauses must be removed
+   --  or installed. In the case of inlining of instance bodies, the visibility
    --  handling is done fully in Inline_Instance_Body, and use clauses are
    --  handled there. Save_Scope_Stack returns the list of entities which have
    --  been temporarily removed from visibility; that list must be passed to