diff options
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index eb8d72554f1..f34dd8a297c 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -357,7 +357,7 @@ package body Lib.Xref is -- this source unit (occasion for possible warning to be issued) if Has_Pragma_Unreferenced (E) - and then In_Same_Extended_Unit (Sloc (E), Sloc (N)) + and then In_Same_Extended_Unit (E, N) then -- A reference as a named parameter in a call does not count -- as a violation of pragma Unreferenced for this purpose. |