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