From: Arnaud Charlet <charlet@adacore.com>
Date: Wed, 14 Nov 2018 11:40:09 +0000 (+0000)
Subject: [Ada] Handle -gx switches explicitly
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=fb620f0e8dfb4edfc153e7ecca7ad30989812da8;p=gcc.git

[Ada] Handle -gx switches explicitly

2018-11-14  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* adabkend.adb (Scan_Back_End_Switches): Handle -gx switches
	explicitly.

From-SVN: r266108
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 5577ddb4858..f6e996e4780 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-11-14  Arnaud Charlet  <charlet@adacore.com>
+
+	* adabkend.adb (Scan_Back_End_Switches): Handle -gx switches
+	explicitly.
+
 2018-11-13  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc-interface/misc.c (gnat_init_gcc_eh): Set -fnon-call-exceptions
diff --git a/gcc/ada/adabkend.adb b/gcc/ada/adabkend.adb
index 738854f1b29..36665f615eb 100644
--- a/gcc/ada/adabkend.adb
+++ b/gcc/ada/adabkend.adb
@@ -186,6 +186,26 @@ package body Adabkend is
             Opt.Suppress_Control_Flow_Optimizations := True;
             return;
 
+         --  Recognize -gxxx switches
+
+         elsif Switch_Chars (First) = 'g' then
+            Debugger_Level := 2;
+
+            if First < Last then
+               case Switch_Chars (First + 1) is
+                  when '0' =>
+                     Debugger_Level := 0;
+                  when '1' =>
+                     Debugger_Level := 1;
+                  when '2' =>
+                     Debugger_Level := 2;
+                  when '3' =>
+                     Debugger_Level := 3;
+                  when others =>
+                     null;
+               end case;
+            end if;
+
          --  Ignore all other back end switches
 
          elsif Is_Back_End_Switch (Switch_Chars) then