diff options
Diffstat (limited to 'gcc/ada/usage.adb')
| -rw-r--r-- | gcc/ada/usage.adb | 47 |
1 files changed, 27 insertions, 20 deletions
diff --git a/gcc/ada/usage.adb b/gcc/ada/usage.adb index 4393df19e85..7b14a654425 100644 --- 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"); |