diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-11-12 12:59:18 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-11-12 12:59:18 +0100 |
| commit | d1915cb82c1319af3267e9617fd81ecbeef01a2c (patch) | |
| tree | 9da238a2ba95be16be518d23ddbf415a745db8dc /gcc/ada/back_end.adb | |
| parent | c892ccd49211ec57b732463342b5806bdf68e254 (diff) | |
| download | gcc-d1915cb82c1319af3267e9617fd81ecbeef01a2c.zip gcc-d1915cb82c1319af3267e9617fd81ecbeef01a2c.tar.gz gcc-d1915cb82c1319af3267e9617fd81ecbeef01a2c.tar.bz2 | |
[multiple changes]
2015-11-12 Arnaud Charlet <charlet@adacore.com>
* back_end.adb, opt.ads (Debugger_Level): Update comment.
(Scan_Back_End_Switches): Set Debugger_Level.
2015-11-12 Bob Duff <duff@adacore.com>
* fmap.adb, debug.ads, checks.adb, exp_ch11.adb: Minor edits.
2015-11-12 Doug Rupp <rupp@adacore.com>
* s-stchop-vxworks.adb (Stack_Limit): Export vice Import.
2015-11-12 Gary Dismukes <dismukes@adacore.com>
* sem_dim.adb: Minor reformatting.
From-SVN: r230246
Diffstat (limited to 'gcc/ada/back_end.adb')
| -rw-r--r-- | gcc/ada/back_end.adb | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb index 7768687..b5d5669 100644 --- a/gcc/ada/back_end.adb +++ b/gcc/ada/back_end.adb @@ -272,6 +272,24 @@ package body Back_End is elsif Switch_Chars (First .. Last) = "fdump-scos" then Opt.Generate_SCO := True; Opt.Generate_SCO_Instance_Table := True; + + 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; end if; end if; end Scan_Back_End_Switches; |