From ca0ae7e0087d34953c974bb8eb4d95f99a3ed50a Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 27 Oct 2004 15:05:51 +0200 Subject: lib-xref.adb (Generate_Reference): Don't complain about reference to entry parameter if pragma Unreferenced set... 2004-10-26 Robert Dewar * lib-xref.adb (Generate_Reference): Don't complain about reference to entry parameter if pragma Unreferenced set, since we do not properly handle the case of multiple parameters. From-SVN: r89657 --- gcc/ada/lib-xref.adb | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'gcc') diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index f34dd8a..f2158ce 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -377,6 +377,15 @@ package body Lib.Xref is then null; + -- For now, ignore case of parameter to entry, since we don't deal + -- correctly with the case of multiple accepts for the same entry. + -- To deal with this we would have to put the flag on the body + -- entity, but that's not easy, since everyone references the spec + -- entity. To be looked at later to improve this case ??? + + elsif Ekind (Scope (E)) = E_Entry then + null; + -- Here we issue the warning, since this is a real reference else -- cgit v1.1