diff options
Diffstat (limited to 'gcc/ada/5itaprop.adb')
| -rw-r--r-- | gcc/ada/5itaprop.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/ada/5itaprop.adb b/gcc/ada/5itaprop.adb index 84eb3514f83..6ab670f9722 100644 --- a/gcc/ada/5itaprop.adb +++ b/gcc/ada/5itaprop.adb @@ -891,8 +891,8 @@ package body System.Task_Primitives.Operations is ------------------ procedure Finalize_TCB (T : Task_ID) is - Result : Interfaces.C.int; - Tmp : Task_ID := T; + Result : Interfaces.C.int; + Tmp : Task_ID := T; Is_Self : constant Boolean := T = Self; procedure Free is new @@ -914,10 +914,8 @@ package body System.Task_Primitives.Operations is Free (Tmp); if Is_Self then - Result := pthread_setspecific (ATCB_Key, System.Null_Address); - pragma Assert (Result = 0); + Specific.Set (null); end if; - end Finalize_TCB; --------------- |
