From 25859971802e6c24a568b4370221e2112ea25953 Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Fri, 31 Aug 2007 12:22:39 +0200 Subject: exp_ch8.adb (Expand_N_Package_Renaming_Declaration): In the case of a library-level package renaming... 2007-08-31 Gary Dismukes * 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 --- gcc/ada/exp_ch8.adb | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'gcc/ada/exp_ch8.adb') 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; -- cgit v1.1