From 8f851c16fb6604350b9c7bebb46fb661853cada4 Mon Sep 17 00:00:00 2001
From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 14 Aug 2007 08:49:56 +0000
Subject: 2007-08-14 Jose Ruiz <ruiz@adacore.com>
* s-tasini.adb (Get_Stack_Info): Move this function to
System.Soft_Links.Tasking because it is common to the full and the
restricted run times.
(Init_RTS): Do not set the Get_Stack_Info soft link because it is done
in SSL.Tasking.Init_Tasking_Soft_Links.
* s-solita.adb (Get_Stack_Info): Function moved from
System.Tasking.Initialization because it is common to the full and the
restricted run times.
(Init_Tasking_Soft_Links): Set the tasking soft link for Get_Stack_Info.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127463 138bc75d-0d04-0410-961f-82ee72b054a4
---
gcc/ada/s-tasini.adb | 15 ---------------
1 file changed, 15 deletions(-)
(limited to 'gcc/ada/s-tasini.adb')
diff --git a/gcc/ada/s-tasini.adb b/gcc/ada/s-tasini.adb
index b22a1b5794d..5b3bb2d29e5 100644
--- a/gcc/ada/s-tasini.adb
+++ b/gcc/ada/s-tasini.adb
@@ -62,8 +62,6 @@ with System.Soft_Links.Tasking;
with System.Tasking.Debug;
-- Used for Trace
-with System.Stack_Checking;
-
with System.Parameters;
-- used for Single_Lock
@@ -104,9 +102,6 @@ package body System.Tasking.Initialization is
-- all nested locks must be released before other tasks competing for the
-- tasking lock are released.
- function Get_Stack_Info return Stack_Checking.Stack_Access;
- -- Get access to the current task's Stack_Info
-
function Get_Current_Excep return SSL.EOA;
-- Task-safe version of SSL.Get_Current_Excep
@@ -382,7 +377,6 @@ package body System.Tasking.Initialization is
SSL.Lock_Task := Task_Lock'Access;
SSL.Unlock_Task := Task_Unlock'Access;
SSL.Check_Abort_Status := Check_Abort_Status'Access;
- SSL.Get_Stack_Info := Get_Stack_Info'Access;
SSL.Task_Name := Task_Name'Access;
SSL.Update_Exception := Update_Exception'Access;
SSL.Get_Current_Excep := Get_Current_Excep'Access;
@@ -823,15 +817,6 @@ package body System.Tasking.Initialization is
end if;
end Wakeup_Entry_Caller;
- ----------------------
- -- Soft-Link Bodies --
- ----------------------
-
- function Get_Stack_Info return Stack_Checking.Stack_Access is
- begin
- return STPO.Self.Common.Compiler_Data.Pri_Stack_Info'Access;
- end Get_Stack_Info;
-
-----------------------
-- Soft-Link Dummies --
-----------------------
--
cgit v1.2.1