From 85f6a831a631b643880fe66e480af0c0b465ba9f Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 8 Jul 2013 07:46:22 +0000 Subject: [PATCH] sem_ch8.adb, [...]: Minor reformatting. 2013-07-08 Robert Dewar * sem_ch8.adb, sem_ch8.ads: Minor reformatting. From-SVN: r200755 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/sem_ch8.adb | 12 +++++++++++- gcc/ada/sem_ch8.ads | 14 +++++++++----- 3 files changed, 24 insertions(+), 6 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index cf2decad541..0fa4a2e6a3b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2013-07-08 Robert Dewar + + * sem_ch8.adb, sem_ch8.ads: Minor reformatting. + 2013-07-08 Gary Dismukes * gnat_rm.texi: Minor reformatting and rewording for consistency. diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index da47aabab1f..c0795b7f768 100644 --- 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 6a5c89c07d4..99d2b1485d4 100644 --- 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 -- 2.30.2