diff options
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 |