diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-09-05 09:48:10 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-09-05 09:48:10 +0200 |
| commit | 920c9376df4cbfabe61991fe2d8857cb6be0bc19 (patch) | |
| tree | f7462b20707db57d024d78ae3b2dcb8b3cdeb188 /gcc/ada/s-tataat.adb | |
| parent | 10b93b2ef042757e76a53294442789b22c39599e (diff) | |
| download | gcc-920c9376df4cbfabe61991fe2d8857cb6be0bc19.zip gcc-920c9376df4cbfabe61991fe2d8857cb6be0bc19.tar.gz gcc-920c9376df4cbfabe61991fe2d8857cb6be0bc19.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/s-tataat.adb')
| -rw-r--r-- | gcc/ada/s-tataat.adb | 12 |
1 files changed, 7 insertions, 5 deletions
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 => |