diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-27 13:05:51 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-27 13:05:51 +0000 |
| commit | 0e0147a16f79faa24e2c2038eb3d19660a01beec (patch) | |
| tree | 28b5ee5f10a30b9279dc66550462ba98e871dcd4 /gcc/ada/lib-xref.adb | |
| parent | 640dcd01212db1f195de46b2641243075f41019b (diff) | |
| download | gcc-0e0147a16f79faa24e2c2038eb3d19660a01beec.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@89657 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index f34dd8a297c..f2158ce9c58 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 |