diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 14:45:02 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 14:45:02 +0200 |
| commit | 76efd5721e4fe1bf76c18e8c33d3fc5563596422 (patch) | |
| tree | d03872a2c2b61b935d065d5d194a6924e8f5a7bd /gcc/ada/switch-c.adb | |
| parent | 1047580000fa66c7c77e88b72a49ecc86c13c803 (diff) | |
| download | gcc-76efd5721e4fe1bf76c18e8c33d3fc5563596422.zip gcc-76efd5721e4fe1bf76c18e8c33d3fc5563596422.tar.gz gcc-76efd5721e4fe1bf76c18e8c33d3fc5563596422.tar.bz2 | |
[multiple changes]
2009-07-13 Robert Dewar <dewar@adacore.com>
* exp_ch4.adb: Minor comment change
2009-07-13 Ed Schonberg <schonberg@adacore.com>
* sem_ch5.adb (Analyze_Iteration_Scheme): Generate dummy reference for
type of iteration, to prevent spurious warnings.
2009-07-13 Nicolas Roche <roche@adacore.com>
* s-oscons-tmplt.c: On VxWorks target ensure that vxWorks.h is always
included.
2009-07-13 Arnaud Charlet <charlet@adacore.com>
* switch-c.adb, usage.adb, sem_ch9.adb, gnat_ugn.texi, rtsfind.adb,
gnat1drv.adb, opt.ads, sem_ch13.adb (Inspector_Mode): Renamed to
Generate_SCIL.
(CodePeer_Mode): New -gnatC switch.
(Adjust_Global_Switches): Adjust settings for Generate_SCIL and
CodePeer_Mode.
From-SVN: r149578
Diffstat (limited to 'gcc/ada/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index c860af4..f0acc45 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -228,6 +228,12 @@ package body Switch.C is Ptr := Ptr + 1; Operating_Mode := Check_Semantics; + -- Processing for C switch + + when 'C' => + Ptr := Ptr + 1; + CodePeer_Mode := True; + -- Processing for d switch when 'd' => @@ -358,6 +364,14 @@ package body Switch.C is return; + -- -gnateC switch (CodePeer SCIL generation) + -- Not enabled for now, keep it for later??? + -- use -gnatd.I only for now + + -- when 'C' => + -- Ptr := Ptr + 1; + -- Generate_SCIL := True; + -- -gnateD switch (preprocessing symbol definition) when 'D' => |