diff options
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index 66fd9e2..6927529 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -2441,11 +2441,13 @@ package body Lib.Xref is (Int (Get_Logical_Line_Number (XE.Key.Loc))); Write_Info_Char (XE.Key.Typ); - if Is_Overloadable (XE.Key.Ent) - and then Is_Imported (XE.Key.Ent) - and then XE.Key.Typ = 'b' - then - Output_Import_Export_Info (XE.Key.Ent); + if Is_Overloadable (XE.Key.Ent) then + if (Is_Imported (XE.Key.Ent) and then XE.Key.Typ = 'b') + or else + (Is_Exported (XE.Key.Ent) and then XE.Key.Typ = 'i') + then + Output_Import_Export_Info (XE.Key.Ent); + end if; end if; Write_Info_Nat (Int (Get_Column_Number (XE.Key.Loc))); |