diff options
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index ef4acb5..c8c0b85 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -1075,11 +1075,11 @@ package body Lib.Xref is ((Ent => Ent, Loc => Ref, Typ => Actual_Typ, - Eun => Get_Code_Unit (Def), - Lun => Get_Code_Unit (Ref), + Eun => Get_Top_Level_Code_Unit (Def), + Lun => Get_Top_Level_Code_Unit (Ref), Ref_Scope => Ref_Scope, Ent_Scope => Ent_Scope), - Ent_Scope_File => Get_Code_Unit (Ent)); + Ent_Scope_File => Get_Top_Level_Code_Unit (Ent)); else Ref := Original_Location (Sloc (Nod)); |