summaryrefslogtreecommitdiffstats
path: root/gcc/ada/usage.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2005-03-15 16:19:12 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2005-03-15 16:19:12 +0000
commit68fa183e21f353a336f5d6343ce64b57179e7df1 (patch)
tree0922a90c50185c9ebfde2dc85f0649ff0055d342 /gcc/ada/usage.adb
parent1bd3f33a0b7d708333e4771d9cfe12ad4b6db070 (diff)
downloadppe42-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.adb18
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;
OpenPOWER on IntegriCloud