diff options
Diffstat (limited to 'sem_specs.adb')
| -rw-r--r-- | sem_specs.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/sem_specs.adb b/sem_specs.adb index 11a3711..ab33ca2 100644 --- a/sem_specs.adb +++ b/sem_specs.adb @@ -380,7 +380,8 @@ package body Sem_Specs is Applied : Boolean; begin Decl := Get_Name (Ent); - Applied := Sem_Named_Entity1 (Ent, Decl); + Applied := Sem_Named_Entity1 (Ent, Get_Base_Name (Decl)); + -- FIXME: check the alias denotes a local entity... if Applied and then Get_Base_Name (Decl) /= Decl then Error_Msg_Sem (Disp_Node (Ent) & " does not denote the entire object", |