diff options
| author | Ian Lance Taylor <iant@golang.org> | 2021-09-13 10:37:49 -0700 |
|---|---|---|
| committer | Ian Lance Taylor <iant@golang.org> | 2021-09-13 10:37:49 -0700 |
| commit | e252b51ccde010cbd2a146485d8045103cd99533 (patch) | |
| tree | e060f101cdc32bf5e520de8e5275db9d4236b74c /gcc/ada/usage.adb | |
| parent | f10c7c4596dda99d2ee872c995ae4aeda65adbdf (diff) | |
| parent | 104c05c5284b7822d770ee51a7d91946c7e56d50 (diff) | |
| download | gcc-e252b51ccde010cbd2a146485d8045103cd99533.zip gcc-e252b51ccde010cbd2a146485d8045103cd99533.tar.gz gcc-e252b51ccde010cbd2a146485d8045103cd99533.tar.bz2 | |
Merge from trunk revision 104c05c5284b7822d770ee51a7d91946c7e56d50.
Diffstat (limited to 'gcc/ada/usage.adb')
| -rw-r--r-- | gcc/ada/usage.adb | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/gcc/ada/usage.adb b/gcc/ada/usage.adb index f986484..c88ccec 100644 --- a/gcc/ada/usage.adb +++ b/gcc/ada/usage.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2020, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2021, 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- -- @@ -532,8 +532,10 @@ begin "but not read"); Write_Line (" M* turn off warnings for variable assigned " & "but not read"); - Write_Line (" .m*+ turn on warnings for suspicious modulus value"); - Write_Line (" .M turn off warnings for suspicious modulus value"); + Write_Line (" .m*+ turn on warnings for suspicious usage " & + "of modular type"); + Write_Line (" .M turn off warnings for suspicious usage " & + "of modular type"); Write_Line (" n* normal warning mode (cancels -gnatws/-gnatwe)"); Write_Line (" .n turn on info messages for atomic " & "synchronization"); @@ -696,22 +698,12 @@ begin -- Line for -gnat95 switch Write_Switch_Char ("95"); - - if Ada_Version_Default = Ada_95 then - Write_Line ("Ada 95 mode (default)"); - else - Write_Line ("Ada 95 mode"); - end if; + Write_Line ("Ada 95 mode"); -- Line for -gnat2005 switch Write_Switch_Char ("2005"); - - if Ada_Version_Default = Ada_2005 then - Write_Line ("Ada 2005 mode (default)"); - else - Write_Line ("Ada 2005 mode"); - end if; + Write_Line ("Ada 2005 mode"); end if; -- Line for -gnat2012 switch @@ -724,6 +716,16 @@ begin Write_Line ("Ada 2012 mode"); end if; + -- Line for -gnat2022 switch + + Write_Switch_Char ("2022"); + + if Ada_Version_Default = Ada_2022 then + Write_Line ("Ada 2022 mode (default)"); + else + Write_Line ("Ada 2022 mode"); + end if; + -- Line for -gnat-p switch Write_Switch_Char ("-p"); |