https://gcc.gnu.org/g:ad510c7c8b72cfe43ec0c0c94d650cdff91cc6a6

commit r15-467-gad510c7c8b72cfe43ec0c0c94d650cdff91cc6a6
Author: Ronan Desplanques <desplanq...@adacore.com>
Date:   Wed Feb 14 10:34:32 2024 +0100

    ada: Fix warning indicators in usage string
    
    Before this patch, the default status of -gnatw.i and -gnatw.d are
    reported incorrectly in the usage string used throughout GNAT tools.
    This patch fixes this.
    
    gcc/ada/
    
            * usage.adb (Usage): Fix enabled-by-default indicators.

Diff:
---
 gcc/ada/usage.adb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gcc/ada/usage.adb b/gcc/ada/usage.adb
index 85b371ac4f1a..59cbd6f4a2f6 100644
--- a/gcc/ada/usage.adb
+++ b/gcc/ada/usage.adb
@@ -498,8 +498,8 @@ begin
                                                  "Compile_Time_Warning");
    Write_Line ("        d    turn on warnings for implicit dereference");
    Write_Line ("        D*   turn off warnings for implicit dereference");
-   Write_Line ("        .d   turn on tagging of warnings with -gnatw switch");
-   Write_Line ("        .D*  turn off tagging of warnings with -gnatw switch");
+   Write_Line ("        .d*  turn on tagging of warnings with -gnatw switch");
+   Write_Line ("        .D   turn off tagging of warnings with -gnatw switch");
    Write_Line ("        e    treat all warnings (but not info) as errors");
    Write_Line ("        .e   turn on every optional info/warning " &
                                                   "(no exceptions)");
@@ -517,8 +517,8 @@ begin
    Write_Line ("        .H*  turn off warnings for holes in records");
    Write_Line ("        i*+  turn on warnings for implementation unit");
    Write_Line ("        I    turn off warnings for implementation unit");
-   Write_Line ("        .i*+ turn on warnings for overlapping actuals");
-   Write_Line ("        .I   turn off warnings for overlapping actuals");
+   Write_Line ("        .i+  turn on warnings for overlapping actuals");
+   Write_Line ("        .I*  turn off warnings for overlapping actuals");
    Write_Line ("        j+   turn on warnings for obsolescent " &
                                                   "(annex J) feature");
    Write_Line ("        J*   turn off warnings for obsolescent " &

Reply via email to