summaryrefslogtreecommitdiff
path: root/gcc/ada/lib-xref.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-04-07 15:57:44 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-04-07 15:57:44 +0000
commit769e3ade50e884b74797d9f42bf907dc2d1abe7f (patch)
tree84629507e1f955c284edab8d68d26c389ce5eab0 /gcc/ada/lib-xref.adb
parent9b973aa648c291807fcba7c53eac3d74edbb4801 (diff)
downloadgcc-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.adb6
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