diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-06-13 14:13:19 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-06-13 14:13:19 +0000 |
| commit | ef6f748f9b28459bd27e09edecca6eeaf42f3df7 (patch) | |
| tree | a093e47020ed740781ff421875451b061f428494 /gcc/ada/lib-xref.adb | |
| parent | 2466cdbf4be6dc8d97082310f02f72f905a6c420 (diff) | |
| download | gcc-ef6f748f9b28459bd27e09edecca6eeaf42f3df7.tar.gz | |
2012-06-13 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 188512 using svnmerge
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@188515 138bc75d-0d04-0410-961f-82ee72b054a4
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 66fd9e20e38..bbf1a3db4fb 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))); |