switch-c.adb, [...]: Reserve -gnateg for generation of C headers.

2015-11-12  Arnaud Charlet  <charlet@adacore.com>

	* switch-c.adb, gnat1drv.adb, opt.ads: Reserve -gnateg for generation
	of C headers.

From-SVN: r230248

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 582a6460b6ff3f9ff622f25b1ca7ee284c9461fb..51448ed271f15d39e68f0407b825ab02c68d7560 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2015-11-12  Arnaud Charlet  <charlet@adacore.com>
+
+       * switch-c.adb, gnat1drv.adb, opt.ads: Reserve -gnateg for generation
+       of C headers.
+
 2015-11-12  Arnaud Charlet  <charlet@adacore.com>
 
        * back_end.adb, opt.ads (Debugger_Level): Update comment.

diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb
index e36533a0ddc5252129783365bed0a8a3301eda0a..7e5b0671685ccda0f3c618c9c4aff849f58e65c1 100644 (file)
--- a/gcc/ada/gnat1drv.adb
+++ b/gcc/ada/gnat1drv.adb
@@ -142,10 +142,15 @@ procedure Gnat1drv is
          Modify_Tree_For_C := True;
       end if;
 
-      --  Set all flags required when generating C code (-gnatd.V)
+      --  -gnatd.V enables C generation
 
       if Debug_Flag_Dot_VV then
          Generate_C_Code := True;
+      end if;
+
+      --  Set all flags required when generating C code
+
+      if Generate_C_Code then
          Modify_Tree_For_C := True;
          Unnest_Subprogram_Mode := True;
 

diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads
index cacc6a04a55e9743b7fe9d58325615562b219b03..9e0acdc317ea4e9c924074c1637e48c180259ca2 100644 (file)
--- a/gcc/ada/opt.ads
+++ b/gcc/ada/opt.ads
@@ -704,7 +704,7 @@ package Opt is
    Generate_C_Code : Boolean := False;
    --  GNAT
    --  If True, the Cprint circuitry to generate C code output is activated.
-   --  Set True by use of -gnatd.V.
+   --  Set True by use of -gnateg or -gnatd.V.
 
    Generate_CodePeer_Messages : Boolean := False;
    --  GNAT

diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb
index c3ebbaab332884eaf4fdc58faff549ba15333fe9..4f565ceb2f4b7bac9b02635197d81281d18e22de 100644 (file)
--- a/gcc/ada/switch-c.adb
+++ b/gcc/ada/switch-c.adb
@@ -585,6 +585,12 @@ package body Switch.C is
                      Ptr := Ptr + 1;
                      Check_Float_Overflow := not Machine_Overflows_On_Target;
 
+                  --  -gnateg (generate C code)
+
+                  when 'g' =>
+                     Generate_C_Code := True;
+                     Ptr := Ptr + 1;
+
                   --  -gnateG (save preprocessor output)
 
                   when 'G' =>