diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-07-08 09:44:01 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-07-08 09:44:01 +0200 |
| commit | e530a2d13b66e9ce876c4a2a0a677e3d5cc8e1ec (patch) | |
| tree | 75783d192ae142c1eeb2a58b71d7c44867862690 /gcc/ada/sem.adb | |
| parent | a9e892d0750958d33f76f3900c45863c7c0d0fd1 (diff) | |
| download | gcc-e530a2d13b66e9ce876c4a2a0a677e3d5cc8e1ec.zip gcc-e530a2d13b66e9ce876c4a2a0a677e3d5cc8e1ec.tar.gz gcc-e530a2d13b66e9ce876c4a2a0a677e3d5cc8e1ec.tar.bz2 | |
[multiple changes]
2013-07-08 Gary Dismukes <dismukes@adacore.com>
* gnat_rm.texi: Minor reformatting and rewording for consistency.
2013-07-08 Bob Duff <duff@adacore.com>
* exp_ch3.adb (Build_Master): If Desig_Type is an incomplete
view coming from a limited-with'ed package, use the nonlimited
view in case it has tasks.
2013-07-08 Javier Miranda <miranda@adacore.com>
* sem_ch8.ad[sb] (Save_Scope_Stack): Modified to return the list
of entities which have been temporarily removed from immediate
visibility.
(Restore_Scope_Stack): Modified to receive an
additional parameter with the list of entities whose immediate
visibility must be restored.
* sem.adb (Do_Analyze): Use new version of
Save_Scope_Stack/Restore_Scope_Stack
* sem_ch12.adb (Inline_Instance_Body): Use new version of
Save_Scope_Stack and Restore_Scope_Stack
From-SVN: r200754
Diffstat (limited to 'gcc/ada/sem.adb')
| -rw-r--r-- | gcc/ada/sem.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index d3ec497..4249ad9 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -1340,8 +1340,10 @@ package body Sem is ---------------- procedure Do_Analyze is + List : Elist_Id; + begin - Save_Scope_Stack; + List := Save_Scope_Stack; Push_Scope (Standard_Standard); Scope_Suppress := Suppress_Options; Scope_Stack.Table @@ -1362,7 +1364,7 @@ package body Sem is -- Then pop entry for Standard, and pop implicit types Pop_Scope; - Restore_Scope_Stack; + Restore_Scope_Stack (List); end Do_Analyze; Already_Analyzed : constant Boolean := Analyzed (Comp_Unit); |