diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-07 15:57:44 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-07 15:57:44 +0000 |
commit | 769e3ade50e884b74797d9f42bf907dc2d1abe7f (patch) | |
tree | 84629507e1f955c284edab8d68d26c389ce5eab0 /gcc/ada/lib-xref.adb | |
parent | 9b973aa648c291807fcba7c53eac3d74edbb4801 (diff) | |
download | gcc-769e3ade50e884b74797d9f42bf907dc2d1abe7f.tar.gz |
2009-04-07 Robert Dewar <dewar@adacore.com>
* exp_ch4.adb:
(Expand_N_Op_Concat): Call Expand_Concatenate for all cases
(Expand_Concatenate): New name for Expand_Concatenate_String which has
been rewritten to handle all types.
(Expand_Concatenate_Other): Remove
2009-04-07 Ed Schonberg <schonberg@adacore.com>
* lib-xref.adb (Generate_Reference): A default subprogram in an
instance appears within the tree for the instance, but generates an
implicit reference in the ALI.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145686 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/lib-xref.adb')
-rw-r--r-- | gcc/ada/lib-xref.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index 2ab83c53aa8..04c39a5085d 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -657,9 +657,11 @@ package body Lib.Xref is and then Sloc (E) > No_Location and then Sloc (N) > No_Location - -- We ignore references from within an instance + -- We ignore references from within an instance, except for default + -- subprograms, for which we generate an implicit reference. - and then Instantiation_Location (Sloc (N)) = No_Location + and then + (Instantiation_Location (Sloc (N)) = No_Location or else Typ = 'i') -- Ignore dummy references |