Skip to content

R
riscv-gcc-1
Commit feecad68 by Arnaud Charlet
Options

[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
parent 12f0c50c
Showing with 66 additions and 35 deletions
gcc/ada/ChangeLog
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.
......
gcc/ada/gcc-interface/Make-lang.in
This source diff could not be displayed because it is too large. You can view the blob instead.
gcc/ada/init.c
......@@ -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;
......
gcc/ada/inline.adb
......@@ -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 --
------------------------
......
gcc/ada/s-stusta.adb
......@@ -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) &
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment