diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-06-12 12:12:40 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-06-12 12:12:40 +0200 |
| commit | 3235dc87bf6bbe42b58a40f0d894283997e3100c (patch) | |
| tree | 89eee6cf718fed8243d56f373857da26fb54ad6d /gcc/ada/lib-xref.adb | |
| parent | 83bb90af7af5df4179c85586409efe342d655b90 (diff) | |
| download | gcc-3235dc87bf6bbe42b58a40f0d894283997e3100c.zip gcc-3235dc87bf6bbe42b58a40f0d894283997e3100c.tar.gz gcc-3235dc87bf6bbe42b58a40f0d894283997e3100c.tar.bz2 | |
[multiple changes]
2012-06-12 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch7.adb (Create_Finalizer): Add the
exception reraise mechanism at the very end of the finalizer
statements. This placement ensures that all objects are finalized,
the secondary stack mark released and aborts undeferred before
propagating an exception.
2012-06-12 Ed Schonberg <schonberg@adacore.com>
* sem_ch10.adb (Remove_Unit_From_Visibility): if the unit is a
wrapper package. remove from visibility the original subprogram
instance.
2012-06-12 Javier Miranda <miranda@adacore.com>
* sem_prag.adb (Process_Convention): Generate reference to entity
exported to foreign language. Needed for GPS navigation.
* xref_lib.adb (Parse_Identifier_Info): Parse exported entities.
* lib-xref (Output_References): Output exported entities.
2012-06-12 Pascal Obry <obry@adacore.com>
* prj-attr.adb: Add install package and corresponding attributes.
* snames.ads-tmpl (Name_Active): New constant.
(Name_Exec_Subdir): Likewise.
(Name_Install): Likewise.
(Name_Lib_Subdir): Likewise.
(Name_Project_Subdir): Likewise.
(Name_Sources_Subdir): Likewise.
2012-06-12 Bob Duff <duff@adacore.com>
* sem_res.adb (Check_Infinite_Recursion):
Suppress spurious warning on recursion after "raise with ...".
From-SVN: r188438
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))); |