mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-30 21:06:03 +08:00
Code Issues Packages Projects Releases Wiki Activity

* sem_ch12.adb: Minor reformatting

Browse Source 
From-SVN: r47560
This commit is contained in:
Robert Dewar 2001-12-03 20:25:42 +01:00 committed by Geert Bosch
parent d6d32b2480
commit b1446533cf
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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

8
gcc/ada/sem_ch12.adb
View File

@ -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;
-------------------------