From 920c9376df4cbfabe61991fe2d8857cb6be0bc19 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 5 Sep 2005 09:48:10 +0200 Subject: s-tataat.adb, [...]: Replace calls to Defer/Undefer_Abortion by Defer/Undefer_Abort. * s-tataat.adb, a-tasatt.adb: Replace calls to Defer/Undefer_Abortion by Defer/Undefer_Abort. * s-tasini.ads, s-tasini.adb (Defer_Abortion, Undefer_Abortion): Moved these procedures to body, and renamed Abort_Defer, Abort_Undefer. (Get_Exc_Stack_Addr, Set_Exc_Stack_Addr): Removed, no longer used. From-SVN: r103851 --- gcc/ada/s-tataat.adb | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'gcc/ada/s-tataat.adb') diff --git a/gcc/ada/s-tataat.adb b/gcc/ada/s-tataat.adb index a147cd9..528de08 100644 --- a/gcc/ada/s-tataat.adb +++ b/gcc/ada/s-tataat.adb @@ -61,9 +61,10 @@ package body System.Tasking.Task_Attributes is procedure Finalize (X : in out Instance) is Q, To_Be_Freed : Access_Node; + Self_Id : constant Task_Id := Self; begin - Defer_Abortion; + Defer_Abort (Self_Id); Lock_RTS; -- Remove this instantiation from the list of all instantiations. @@ -142,7 +143,7 @@ package body System.Tasking.Task_Attributes is X.Deallocate.all (Q); end loop; - Undefer_Abortion; + Undefer_Abort (Self_Id); exception when others => @@ -186,10 +187,11 @@ package body System.Tasking.Task_Attributes is -- This is to be called by System.Tasking.Stages.Create_Task procedure Initialize_Attributes (T : Task_Id) is - P : Access_Instance; + P : Access_Instance; + Self_Id : constant Task_Id := Self; begin - Defer_Abortion; + Defer_Abort (Self_Id); Lock_RTS; -- Initialize all the direct-access attributes of this task @@ -207,7 +209,7 @@ package body System.Tasking.Task_Attributes is end loop; Unlock_RTS; - Undefer_Abortion; + Undefer_Abort (Self_Id); exception when others => -- cgit v1.1