* 41intnam.ads, 42intnam.ads, 4aintnam.ads, 4cintnam.ads,

[pf3gnuchains/gcc-fork.git] / gcc / ada / usage.adb

diff --git a/gcc/ada/usage.adb b/gcc/ada/usage.adb
index 4393df1..7b14a65 100644 (file)
--- a/gcc/ada/usage.adb
+++ b/gcc/ada/usage.adb
@@ -8,7 +8,7 @@
 --                                                                          --
 --                           $Revision$
 --                                                                          --
---          Copyright (C) 1992-2001, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2002, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -35,7 +35,7 @@ with System.WCh_Con; use System.WCh_Con;
 procedure Usage is
 
    procedure Write_Switch_Char (Sw : String; Prefix : String := "gnat");
-   --  Output two spaces followed by default switch character followed
+   --  Output two spaces followed by the switch character minus followed
    --  Prefix, followed by the string given as the argument, and then
    --  enough blanks to tab to column 13, i.e. assuming Sw is not longer
    --  than 5 characters, the maximum allowed, Write_Switch_Char will
@@ -43,8 +43,7 @@ procedure Usage is
 
    procedure Write_Switch_Char (Sw : String; Prefix : String := "gnat") is
    begin
-      Write_Str ("  ");
-      Write_Char (Switch_Character);
+      Write_Str ("  -");
       Write_Str (Prefix);
       Write_Str (Sw);
 
@@ -193,7 +192,7 @@ begin
    --  Line for -gnati switch
 
    Write_Switch_Char ("i?");
-   Write_Line ("Identifier char set (?=1/2/3/4/5/8/p/f/n/w)");
+   Write_Line ("Identifier char set (?=1/2/3/4/5/8/9/p/f/n/w)");
 
    --  Line for -gnatk switch
 
@@ -296,33 +295,41 @@ begin
    Write_Line
      ("Enable selected validity checking mode, xx = list of parameters:");
    Write_Line ("        a    turn on all validity checking options");
-   Write_Line ("        c    turn on validity checking for copies");
-   Write_Line ("        C    turn off validity checking for copies");
-   Write_Line ("        f    turn on validity checking for floating-point");
-   Write_Line ("        F    turn off validity checking for floating-point");
-   Write_Line ("        i    turn on validity checking for in params");
-   Write_Line ("        I    turn off validity checking for in params");
-   Write_Line ("        m    turn on validity checking for in out params");
-   Write_Line ("        M    turn off validity checking for in out params");
-   Write_Line ("        r    turn on validity checking for returns");
-   Write_Line ("        R    turn off validity checking for returns");
-   Write_Line ("        s    turn on validity checking for subscripts");
-   Write_Line ("        S    turn off validity checking for subscripts");
-   Write_Line ("        t    turn on validity checking for tests");
-   Write_Line ("        T    turn off validity checking for tests");
+   Write_Line ("        c    turn on checking for copies");
+   Write_Line ("        C    turn off checking for copies");
+   Write_Line ("        d    turn on default (RM) checking");
+   Write_Line ("        D    turn off default (RM) checking");
+   Write_Line ("        f    turn on checking for floating-point");
+   Write_Line ("        F    turn off checking for floating-point");
+   Write_Line ("        i    turn on checking for in params");
+   Write_Line ("        I    turn off checking for in params");
+   Write_Line ("        m    turn on checking for in out params");
+   Write_Line ("        M    turn off checking for in out params");
+   Write_Line ("        o    turn on checking for operators/attributes");
+   Write_Line ("        O    turn off checking for operators/attributes");
+   Write_Line ("        r    turn on checking for returns");
+   Write_Line ("        R    turn off checking for returns");
+   Write_Line ("        s    turn on checking for subscripts");
+   Write_Line ("        S    turn off checking for subscripts");
+   Write_Line ("        t    turn on checking for tests");
+   Write_Line ("        T    turn off checking for tests");
    Write_Line ("        n    turn off all validity checks (including RM)");
 
    --  Lines for -gnatw switch
 
    Write_Switch_Char ("wxx");
    Write_Line ("Enable selected warning modes, xx = list of parameters:");
-   Write_Line ("        a    turn on all optional warnings (except b,h)");
+   Write_Line ("        a    turn on all optional warnings (except b,d,h)");
    Write_Line ("        A    turn off all optional warnings");
    Write_Line ("        b    turn on biased rounding warnings");
    Write_Line ("        B    turn off biased rounding warnings");
    Write_Line ("        c    turn on constant conditional warnings");
    Write_Line ("        C*   turn off constant conditional warnings");
+   Write_Line ("        d    turn on implicit dereference warnings");
+   Write_Line ("        D*   turn off implicit dereference warnings");
    Write_Line ("        e    treat all warnings as errors");
+   Write_Line ("        f    turn on unreferenced formal warnings");
+   Write_Line ("        F*   turn off unreferenced formal warnings");
    Write_Line ("        h    turn on warnings for hiding variables");
    Write_Line ("        H*   turn off warnings for hiding variables");
    Write_Line ("        i*   turn on warnings for implementation units");