This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Minor reformatting
- From: Geert Bosch <bosch at darwin dot gnat dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Mon, 3 Dec 2001 14:46:19 -0500 (EST)
- Subject: [Ada] Minor reformatting
2001-12-03 <dewar@gnat.com>
* sem_ch12.adb: Minor reformatting
*** sem_ch12.adb 2001/10/04 14:08:19 1.782
--- sem_ch12.adb 2001/10/04 14:13:22 1.783
***************
*** 2693,2699 ****
S := Scope (S);
end loop;
! -- Find and save all enclosing instances.
S := Current_Scope;
--- 2693,2699 ----
S := Scope (S);
end loop;
! -- Find and save all enclosing instances
S := Current_Scope;
***************
*** 2711,2716 ****
--- 2711,2717 ----
-- 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.
***************
*** 2736,2741 ****
--- 2737,2743 ----
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.
***************
*** 2767,2775 ****
((N, Act_Decl, Expander_Active, Current_Sem_Unit));
Pop_Scope;
- -- Restore context.
-
Set_Is_Immediately_Visible (Gen_Comp, Vis);
-- Reset Generic_Instance flag so that use clauses can be installed
--- 2769,2776 ----
((N, Act_Decl, Expander_Active, Current_Sem_Unit));
Pop_Scope;
+ -- Restore context
Set_Is_Immediately_Visible (Gen_Comp, Vis);
-- Reset Generic_Instance flag so that use clauses can be installed
***************
*** 3221,3227 ****
if Parent_Installed then
Remove_Parent;
end if;
-
end Analyze_Subprogram_Instantiation;
---------------------
--- 3222,3227 ----