lib-xref.adb (Generate_Reference): Don't complain about reference to entry parameter...

2004-10-26  Robert Dewar  <dewar@gnat.com>

	* 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

diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb
index f34dd8a297cba311edc8c92709695d6bc01e5d0d..f2158ce9c5821a251e4d921f83cd072440646cad 100644 (file)
--- 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