diff options
author | Gary Dismukes <dismukes@adacore.com> | 2007-08-31 12:22:39 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-08-31 12:22:39 +0200 |
commit | 25859971802e6c24a568b4370221e2112ea25953 (patch) | |
tree | cdb270644b5755e0724d7f331087a6d8533ee6d2 /gcc/ada/exp_ch8.adb | |
parent | 55d4e6c0909277e0cd19e05de382ac87895b0db8 (diff) | |
download | gcc-25859971802e6c24a568b4370221e2112ea25953.zip gcc-25859971802e6c24a568b4370221e2112ea25953.tar.gz gcc-25859971802e6c24a568b4370221e2112ea25953.tar.bz2 |
exp_ch8.adb (Expand_N_Package_Renaming_Declaration): In the case of a library-level package renaming...
2007-08-31 Gary Dismukes <dismukes@adacore.com>
* exp_ch8.adb (Expand_N_Package_Renaming_Declaration): In the case of a
library-level package renaming, pass the declaration associated with
the renaming's special debug variable to Qualify_Entity_Names to ensure
that its encoded name is properly qualified.
* exp_dbug.adb (Qualify_All_Entity_Names): Check for a variable entity
occurring in the list of entities to qualify, and do not attempt to
traverse an entity list in that case. Variables associated with
` library-level package renamings can now occur in the table.
* exp_dbug.ads: Revise documentation of the encoding for renaming
declarations.
From-SVN: r127973
Diffstat (limited to 'gcc/ada/exp_ch8.adb')
-rw-r--r-- | gcc/ada/exp_ch8.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch8.adb b/gcc/ada/exp_ch8.adb index 6a00a3b..3185f7d 100644 --- a/gcc/ada/exp_ch8.adb +++ b/gcc/ada/exp_ch8.adb @@ -319,6 +319,14 @@ package body Exp_Ch8 is end if; Analyze (Decl); + + -- Enter the debug variable in the qualification list, which + -- must be done at this point because auxiliary declarations + -- occur at the library level and aren't associated with a + -- normal scope. + + Qualify_Entity_Names (Decl); + Pop_Scope; end; |