diff options
Diffstat (limited to 'src/errorout.ads')
| -rw-r--r-- | src/errorout.ads | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/errorout.ads b/src/errorout.ads index 0bdd8fb5d..f6735c8b5 100644 --- a/src/errorout.ads +++ b/src/errorout.ads @@ -118,6 +118,10 @@ package Errorout is -- Incorrect use of attributes (like non-object prefix). Warnid_Attribute, + -- Useless code (condition is always false or true), assertion cannot + -- be triggered. + Warnid_Useless, + -- Violation of staticness rules Warnid_Static, @@ -313,7 +317,7 @@ private | Warnid_Runtime_Error | Warnid_Pure | Warnid_Specs | Warnid_Hide | Warnid_Pragma | Warnid_Analyze_Assert | Warnid_Attribute | Warnid_Deprecated_Option | Warnid_Unexpected_Option - | Warnid_No_Wait + | Warnid_No_Wait | Warnid_Useless | Msgid_Warning => (Enabled => True, Error => False), Warnid_Delta_Cycle | Warnid_Body | Warnid_Static | Warnid_Nested_Comment | Warnid_Universal | Warnid_Port_Bounds |