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 | |
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')
-rw-r--r-- | gcc/ada/ChangeLog | 17 | ||||
-rw-r--r-- | gcc/ada/back_end.adb | 18 | ||||
-rw-r--r-- | gcc/ada/checks.adb | 2 | ||||
-rw-r--r-- | gcc/ada/debug.ads | 4 | ||||
-rw-r--r-- | gcc/ada/exp_ch11.adb | 2 | ||||
-rw-r--r-- | gcc/ada/fmap.adb | 2 | ||||
-rw-r--r-- | gcc/ada/opt.ads | 1 | ||||
-rw-r--r-- | gcc/ada/s-stchop-vxworks.adb | 7 | ||||
-rw-r--r-- | gcc/ada/sem_dim.adb | 4 |
9 files changed, 47 insertions, 10 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5290312..582a646 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,20 @@ +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. + 2015-11-12 Gary Dismukes <dismukes@adacore.com> * gnat1drv.adb, opt.ads: Minor reformatting. 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; diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index f992aa2..05ec983 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -169,7 +169,7 @@ package body Checks is end record; -- The following table keeps track of saved checks. Rather than use an - -- extensible table. We just use a table of fixed size, and we discard + -- extensible table, we just use a table of fixed size, and we discard -- any saved checks that do not fit. That's very unlikely to happen and -- this is only an optimization in any case. diff --git a/gcc/ada/debug.ads b/gcc/ada/debug.ads index 9ebaa52..3ed9326 100644 --- a/gcc/ada/debug.ads +++ b/gcc/ada/debug.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -40,7 +40,7 @@ package Debug is -- Dynamic Debug Flags -- ------------------------- - -- Flags that can be used to active various specialized debugging output + -- Flags that can be used to activate various specialized debugging output -- information. The flags are preset to False, which corresponds to the -- given output being suppressed. The individual flags can be turned on -- using the undocumented switch dxxx where xxx is a string of letters for diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb index 814dfdd..c41a95f 100644 --- a/gcc/ada/exp_ch11.adb +++ b/gcc/ada/exp_ch11.adb @@ -1995,7 +1995,7 @@ package body Exp_Ch11 is -- Get_Local_Raise_Call_Entity -- --------------------------------- - -- Note: this is primary provided for use by the back end in generating + -- Note: this is primarily provided for use by the back end in generating -- calls to Local_Raise. But it would be too late in the back end to call -- RTE if this actually caused a load/analyze of the unit. So what we do -- is to ensure there is a dummy call to this function during front end diff --git a/gcc/ada/fmap.adb b/gcc/ada/fmap.adb index 77fa6c0..e618d3c 100644 --- a/gcc/ada/fmap.adb +++ b/gcc/ada/fmap.adb @@ -50,7 +50,7 @@ package body Fmap is Max_Buffer : constant := 1_500; Buffer : String (1 .. Max_Buffer); - -- Used to bufferize output when writing to a new mapping file + -- Used to buffer output when writing to a new mapping file Buffer_Last : Natural := 0; -- Index of last valid character in Buffer diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index 9041a88..cacc6a0 100644 --- a/gcc/ada/opt.ads +++ b/gcc/ada/opt.ads @@ -421,6 +421,7 @@ package Opt is subtype Debug_Level_Value is Nat range 0 .. 3; Debugger_Level : Debug_Level_Value := 0; + -- GNAT, GNATBIND -- The value given to the -g parameter. The default value for -g with -- no value is 2. If no -g is specified, defaults to 0. -- Note that the generated code should never depend on this variable, diff --git a/gcc/ada/s-stchop-vxworks.adb b/gcc/ada/s-stchop-vxworks.adb index 06ec151..106d4e6 100644 --- a/gcc/ada/s-stchop-vxworks.adb +++ b/gcc/ada/s-stchop-vxworks.adb @@ -60,9 +60,10 @@ package body System.Stack_Checking.Operations is -- VxWorks MILS includes the necessary routine in taskLib, so nothing -- special needs to be done there. - Stack_Limit : Address; - - pragma Import (C, Stack_Limit, "__gnat_stack_limit"); + Stack_Limit : Address := + Boolean'Pos (Stack_Grows_Down) * Address'First + + Boolean'Pos (not Stack_Grows_Down) * Address'Last; + pragma Export (C, Stack_Limit, "__gnat_stack_limit"); -- Stack_Limit contains the limit of the stack. This variable is later made -- a task variable (by calling taskVarAdd) and then correctly set to the diff --git a/gcc/ada/sem_dim.adb b/gcc/ada/sem_dim.adb index 7a544b6..b859b14 100644 --- a/gcc/ada/sem_dim.adb +++ b/gcc/ada/sem_dim.adb @@ -255,7 +255,7 @@ package body Sem_Dim is procedure Analyze_Dimension_Number_Declaration (N : Node_Id); -- Procedure to analyze dimension of expression in a number declaration. - -- This allows a named number to have non-trivial dimensions, while by + -- This allows a named number to have nontrivial dimensions, while by -- default a named number is dimensionless. procedure Analyze_Dimension_Object_Declaration (N : Node_Id); @@ -1510,7 +1510,7 @@ package body Sem_Dim is end if; end if; - -- If expander is active, remove dimension information from each + -- If expander is active, remove dimension information from each -- operand, as only dimensions of result are relevant. if Expander_Active then |