From: Robert Dewar Date: Mon, 3 Dec 2001 19:25:42 +0000 (+0100) Subject: * sem_ch12.adb: Minor reformatting X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b1446533cf08bca1d099a4cbfd7693c0a63d2e62;p=gcc.git * sem_ch12.adb: Minor reformatting From-SVN: r47560 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 93613407ab9..cf94b1d738e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2001-12-03 + + * sem_ch12.adb: Minor reformatting + 2001-12-03 Ed Schonberg * 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 b7c880422a2..a345a41550e 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; -------------------------