diff options
| author | Robert Dewar <dewar@gnat.com> | 2004-10-27 15:05:51 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-10-27 15:05:51 +0200 |
| commit | ca0ae7e0087d34953c974bb8eb4d95f99a3ed50a (patch) | |
| tree | 28b5ee5f10a30b9279dc66550462ba98e871dcd4 | |
| parent | 07f37402ebf4619b09f8a2886e08ea0dd44b5089 (diff) | |
| download | gcc-ca0ae7e0087d34953c974bb8eb4d95f99a3ed50a.zip gcc-ca0ae7e0087d34953c974bb8eb4d95f99a3ed50a.tar.gz gcc-ca0ae7e0087d34953c974bb8eb4d95f99a3ed50a.tar.bz2 | |
lib-xref.adb (Generate_Reference): Don't complain about reference to entry parameter if pragma Unreferenced set...
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
| -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 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 |