From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 12 Nov 2015 12:00:56 +0000 (+0000)
Subject: switch-c.adb, [...]: Reserve -gnateg for generation of C headers.
X-Git-Tag: basepoints/gcc-7~3073
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=95bcd2a700d3284d3606ddedf18eec22243c1239;p=thirdparty%2Fgcc.git

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 582a6460b6ff..51448ed271f1 100644
--- 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 e36533a0ddc5..7e5b0671685c 100644
--- 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 cacc6a04a55e..9e0acdc317ea 100644
--- 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 c3ebbaab3328..4f565ceb2f4b 100644
--- 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' =>