diff options
Diffstat (limited to 'gcc/ada/errout.ads')
-rw-r--r-- | gcc/ada/errout.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index d189240..d02febe 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -104,6 +104,13 @@ package Errout is -- messages. Warning messages are only suppressed for case 1, and -- when they come from other than the main extended unit. + -- 7. If an error or warning references an internal name, and we have + -- already placed an error (not warning) message at that location, + -- then we assume this is cascaded junk and delete the message. + + -- This normal suppression action may be overridden in cases 2-5 (but not + -- in case 1 or 7 by setting All_Errors mode, or by setting the special + -- unconditional message insertion character (!) as described below. -- This normal suppression action may be overridden in cases 2-5 (but -- not in case 1) by setting All_Errors mode, or by setting the special -- unconditional message insertion character (!) as described below. |