diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-15 16:19:12 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-15 16:19:12 +0000 |
commit | 68fa183e21f353a336f5d6343ce64b57179e7df1 (patch) | |
tree | 0922a90c50185c9ebfde2dc85f0649ff0055d342 /gcc/ada/usage.adb | |
parent | 1bd3f33a0b7d708333e4771d9cfe12ad4b6db070 (diff) | |
download | ppe42-gcc-68fa183e21f353a336f5d6343ce64b57179e7df1.tar.gz ppe42-gcc-68fa183e21f353a336f5d6343ce64b57179e7df1.zip |
2005-03-08 Robert Dewar <dewar@adacore.com>
* usage.adb: Add missing lines for -gnat95 and -gnat05 switches
* sem_ch7.adb: Minor change to propagate Is_Ada_2005 flag
* i-c.adb: Clarify that AI-258 behavior is also intended in Ada 95
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96511 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/usage.adb')
-rw-r--r-- | gcc/ada/usage.adb | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/gcc/ada/usage.adb b/gcc/ada/usage.adb index 4441490ac0c..64bb0b1c892 100644 --- a/gcc/ada/usage.adb +++ b/gcc/ada/usage.adb @@ -26,6 +26,7 @@ with Hostparm; with Namet; use Namet; +with Opt; use Opt; with Osint; use Osint; with Output; use Output; with System.WCh_Con; use System.WCh_Con; @@ -466,9 +467,24 @@ begin Write_Switch_Char ("83"); Write_Line ("Enforce Ada 83 restrictions"); + -- Line for -gnat95 switch + + Write_Switch_Char ("95"); + + if Ada_Version_Default = Ada_95 then + Write_Line ("Ada 95 mode (default)"); + else + Write_Line ("Enforce Ada 95 restrictions"); + end if; + -- Line for -gnat05 switch Write_Switch_Char ("05"); - Write_Line ("Allow Ada 2005 extensions"); + + if Ada_Version_Default = Ada_05 then + Write_Line ("Ada 2005 mode (default)"); + else + Write_Line ("Allow Ada 2005 extensions"); + end if; end Usage; |