diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-14 08:49:56 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-14 08:49:56 +0000 |
| commit | 8f851c16fb6604350b9c7bebb46fb661853cada4 (patch) | |
| tree | a69555713e2d2bdd0f5e4aabfed6cbd2300bc0a0 /gcc/ada/s-tasini.adb | |
| parent | 31ca52d5312ad678c304b9ff57cfa11444ee08f9 (diff) | |
| download | gcc-8f851c16fb6604350b9c7bebb46fb661853cada4.tar.gz | |
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
Diffstat (limited to 'gcc/ada/s-tasini.adb')
| -rw-r--r-- | gcc/ada/s-tasini.adb | 15 |
1 files changed, 0 insertions, 15 deletions
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 -- ----------------------- |