+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
S := Scope (S);
end loop;
- -- Find and save all enclosing instances.
+ -- Find and save all enclosing instances
S := Current_Scope;
-- 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.
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.
((N, Act_Decl, Expander_Active, Current_Sem_Unit));
Pop_Scope;
-
- -- Restore context.
+ -- Restore context
Set_Is_Immediately_Visible (Gen_Comp, Vis);
if Parent_Installed then
Remove_Parent;
end if;
-
end Analyze_Subprogram_Instantiation;
-------------------------