From fb620f0e8dfb4edfc153e7ecca7ad30989812da8 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 14 Nov 2018 11:40:09 +0000 Subject: [PATCH] [Ada] Handle -gx switches explicitly 2018-11-14 Arnaud Charlet gcc/ada/ * adabkend.adb (Scan_Back_End_Switches): Handle -gx switches explicitly. From-SVN: r266108 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/adabkend.adb | 20 ++++++++++++++++++++ 2 files changed, 25 insertions(+) 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 + + * adabkend.adb (Scan_Back_End_Switches): Handle -gx switches + explicitly. + 2018-11-13 Eric Botcazou * 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 -- 2.30.2