[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
This commit is contained in:
parent
c892ccd492
commit
d1915cb82c
@ -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.
|
||||
|
@ -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;
|
||||
|
@ -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.
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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,
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user