[multiple changes]
2011-08-02 Eric Botcazou <ebotcazou@adacore.com> * inline.adb (Get_Code_Unit_Entity): New local function. Returns the entity node for the unit containing the parameter. (Add_Inlined_Body): Use it to find the unit containing the subprogram. (Add_Inlined_Subprogram): Likewise. * gcc-interface/Make-lang.in: Update dependencies. 2011-08-02 Thomas Quinot <quinot@adacore.com> * s-stusta.adb (Print): Make sure Pos is always initialized to a suitable value. 2011-08-02 Ed Falis <falis@adacore.com> * init.c: Fix conditional compilation so that the fp initialization is peformed for the MILS VxWorks Guest OS. From-SVN: r177136
This commit is contained in:
parent
12f0c50ca9
commit
feecad6893
|
@ -1,3 +1,21 @@
|
|||
2011-08-02 Eric Botcazou <ebotcazou@adacore.com>
|
||||
|
||||
* inline.adb (Get_Code_Unit_Entity): New local function. Returns the
|
||||
entity node for the unit containing the parameter.
|
||||
(Add_Inlined_Body): Use it to find the unit containing the subprogram.
|
||||
(Add_Inlined_Subprogram): Likewise.
|
||||
* gcc-interface/Make-lang.in: Update dependencies.
|
||||
|
||||
2011-08-02 Thomas Quinot <quinot@adacore.com>
|
||||
|
||||
* s-stusta.adb (Print): Make sure Pos is always initialized to a
|
||||
suitable value.
|
||||
|
||||
2011-08-02 Ed Falis <falis@adacore.com>
|
||||
|
||||
* init.c: Fix conditional compilation so that the fp initialization is
|
||||
peformed for the MILS VxWorks Guest OS.
|
||||
|
||||
2011-08-02 Geert Bosch <bosch@adacore.com>
|
||||
|
||||
* a-calfor.adb (Image): Simplify, removing unnecessary uses of 'Image.
|
||||
|
|
File diff suppressed because it is too large
Load Diff
|
@ -2026,7 +2026,7 @@ __gnat_init_float (void)
|
|||
to get correct Ada semantics. Note that for AE653 vThreads, the HW
|
||||
overflow settings are an OS configuration issue. The instructions
|
||||
below have no effect. */
|
||||
#if defined (_ARCH_PPC) && !defined (_SOFT_FLOAT) && !defined (VTHREADS)
|
||||
#if defined (_ARCH_PPC) && !defined (_SOFT_FLOAT) && (!defined (VTHREADS) || defined (__VXWORKSMILS__))
|
||||
#if defined (__SPE__)
|
||||
{
|
||||
const unsigned long spefscr_mask = 0xfffffff3;
|
||||
|
|
|
@ -137,6 +137,10 @@ package body Inline is
|
|||
-- Local Subprograms --
|
||||
-----------------------
|
||||
|
||||
function Get_Code_Unit_Entity (E : Entity_Id) return Entity_Id;
|
||||
pragma Inline (Get_Code_Unit_Entity);
|
||||
-- Return the entity node for the unit containing E
|
||||
|
||||
function Scope_In_Main_Unit (Scop : Entity_Id) return Boolean;
|
||||
-- Return True if Scop is in the main unit or its spec
|
||||
|
||||
|
@ -317,7 +321,7 @@ package body Inline is
|
|||
if not Is_Abstract_Subprogram (E) and then not Is_Nested (E)
|
||||
and then Convention (E) /= Convention_Protected
|
||||
then
|
||||
Pack := Scope (E);
|
||||
Pack := Get_Code_Unit_Entity (E);
|
||||
|
||||
if Must_Inline
|
||||
and then Ekind (Pack) = E_Package
|
||||
|
@ -352,7 +356,7 @@ package body Inline is
|
|||
|
||||
procedure Add_Inlined_Subprogram (Index : Subp_Index) is
|
||||
E : constant Entity_Id := Inlined.Table (Index).Name;
|
||||
Pack : constant Entity_Id := Cunit_Entity (Get_Code_Unit (E));
|
||||
Pack : constant Entity_Id := Get_Code_Unit_Entity (E);
|
||||
Succ : Succ_Index;
|
||||
Subp : Subp_Index;
|
||||
|
||||
|
@ -1158,6 +1162,15 @@ package body Inline is
|
|||
end loop;
|
||||
end Remove_Dead_Instance;
|
||||
|
||||
--------------------------
|
||||
-- Get_Code_Unit_Entity --
|
||||
--------------------------
|
||||
|
||||
function Get_Code_Unit_Entity (E : Entity_Id) return Entity_Id is
|
||||
begin
|
||||
return Cunit_Entity (Get_Code_Unit (E));
|
||||
end Get_Code_Unit_Entity;
|
||||
|
||||
------------------------
|
||||
-- Scope_In_Main_Unit --
|
||||
------------------------
|
||||
|
|
|
@ -62,9 +62,9 @@ package body System.Stack_Usage.Tasking is
|
|||
Res : out Stack_Usage_Result);
|
||||
-- Convert an object of type System.Stack_Usage in a Stack_Usage_Result
|
||||
|
||||
--------------
|
||||
-- Convert --
|
||||
--------------
|
||||
-------------
|
||||
-- Convert --
|
||||
-------------
|
||||
|
||||
procedure Convert
|
||||
(TS : System.Stack_Usage.Task_Result;
|
||||
|
@ -73,9 +73,9 @@ package body System.Stack_Usage.Tasking is
|
|||
Res := TS;
|
||||
end Convert;
|
||||
|
||||
----------------------
|
||||
-- Report_For_Task --
|
||||
----------------------
|
||||
---------------------
|
||||
-- Report_For_Task --
|
||||
---------------------
|
||||
|
||||
procedure Report_For_Task (Id : System.Tasking.Task_Id) is
|
||||
begin
|
||||
|
@ -83,9 +83,9 @@ package body System.Stack_Usage.Tasking is
|
|||
System.Stack_Usage.Report_Result (Id.Common.Analyzer);
|
||||
end Report_For_Task;
|
||||
|
||||
------------------------
|
||||
-- Compute_All_Tasks --
|
||||
------------------------
|
||||
-----------------------
|
||||
-- Compute_All_Tasks --
|
||||
-----------------------
|
||||
|
||||
procedure Compute_All_Tasks is
|
||||
Id : System.Tasking.Task_Id;
|
||||
|
@ -111,9 +111,9 @@ package body System.Stack_Usage.Tasking is
|
|||
end if;
|
||||
end Compute_All_Tasks;
|
||||
|
||||
---------------------------
|
||||
-- Compute_Current_Task --
|
||||
---------------------------
|
||||
--------------------------
|
||||
-- Compute_Current_Task --
|
||||
--------------------------
|
||||
|
||||
procedure Compute_Current_Task is
|
||||
begin
|
||||
|
@ -128,9 +128,9 @@ package body System.Stack_Usage.Tasking is
|
|||
end if;
|
||||
end Compute_Current_Task;
|
||||
|
||||
------------------
|
||||
-- Report_Impl --
|
||||
------------------
|
||||
-----------------
|
||||
-- Report_Impl --
|
||||
-----------------
|
||||
|
||||
procedure Report_Impl (All_Tasks : Boolean; Do_Print : Boolean) is
|
||||
begin
|
||||
|
@ -158,18 +158,18 @@ package body System.Stack_Usage.Tasking is
|
|||
|
||||
end Report_Impl;
|
||||
|
||||
----------------------
|
||||
-- Report_All_Task --
|
||||
----------------------
|
||||
---------------------
|
||||
-- Report_All_Task --
|
||||
---------------------
|
||||
|
||||
procedure Report_All_Tasks is
|
||||
begin
|
||||
Report_Impl (True, True);
|
||||
end Report_All_Tasks;
|
||||
|
||||
--------------------------
|
||||
-- Report_Current_Task --
|
||||
--------------------------
|
||||
-------------------------
|
||||
-- Report_Current_Task --
|
||||
-------------------------
|
||||
|
||||
procedure Report_Current_Task is
|
||||
Res : Stack_Usage_Result;
|
||||
|
@ -178,9 +178,9 @@ package body System.Stack_Usage.Tasking is
|
|||
Print (Res);
|
||||
end Report_Current_Task;
|
||||
|
||||
--------------------------
|
||||
-- Get_All_Tasks_Usage --
|
||||
--------------------------
|
||||
-------------------------
|
||||
-- Get_All_Tasks_Usage --
|
||||
-------------------------
|
||||
|
||||
function Get_All_Tasks_Usage return Stack_Usage_Result_Array is
|
||||
Res : Stack_Usage_Result_Array
|
||||
|
@ -195,9 +195,9 @@ package body System.Stack_Usage.Tasking is
|
|||
return Res;
|
||||
end Get_All_Tasks_Usage;
|
||||
|
||||
-----------------------------
|
||||
-- Get_Current_Task_Usage --
|
||||
-----------------------------
|
||||
----------------------------
|
||||
-- Get_Current_Task_Usage --
|
||||
----------------------------
|
||||
|
||||
function Get_Current_Task_Usage return Stack_Usage_Result is
|
||||
Res : Stack_Usage_Result;
|
||||
|
@ -228,12 +228,12 @@ package body System.Stack_Usage.Tasking is
|
|||
return Res;
|
||||
end Get_Current_Task_Usage;
|
||||
|
||||
------------
|
||||
-- Print --
|
||||
------------
|
||||
-----------
|
||||
-- Print --
|
||||
-----------
|
||||
|
||||
procedure Print (Obj : Stack_Usage_Result) is
|
||||
Pos : Positive;
|
||||
Pos : Positive := Obj.Task_Name'Last;
|
||||
begin
|
||||
|
||||
-- Simply trim the string containing the task name
|
||||
|
@ -247,7 +247,7 @@ package body System.Stack_Usage.Tasking is
|
|||
|
||||
declare
|
||||
T_Name : constant String := Obj.Task_Name
|
||||
(Obj.Task_Name'First .. Pos);
|
||||
(Obj.Task_Name'First .. Pos);
|
||||
begin
|
||||
Put_Line
|
||||
("| " & T_Name & " | " & Natural'Image (Obj.Max_Size) &
|
||||
|
|
Loading…
Reference in New Issue