diff options
Diffstat (limited to 'gcc/ada/sem_ch10.adb')
| -rw-r--r-- | gcc/ada/sem_ch10.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 98a57e2556e..34346e39925 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -5013,12 +5013,16 @@ package body Sem_Ch10 is -- Set entity of parent identifiers if the unit is a child -- unit. This ensures that the tree is properly formed from - -- semantic point of view (e.g. for ASIS queries). + -- semantic point of view (e.g. for ASIS queries). The unit + -- entities are not fully analyzed, so we need to follow unit + -- links in the tree. Set_Entity (Nam, Ent); Nam := Prefix (Nam); - Ent := Scope (Ent); + Ent := + Defining_Entity + (Unit (Parent_Spec (Unit_Declaration_Node (Ent)))); -- Set entity of last ancestor |