diff options
Diffstat (limited to 'gcc/ada/5htaprop.adb')
| -rw-r--r-- | gcc/ada/5htaprop.adb | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/5htaprop.adb b/gcc/ada/5htaprop.adb index d917dda1070..1aaf3c26c56 100644 --- a/gcc/ada/5htaprop.adb +++ b/gcc/ada/5htaprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2003, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2004, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -862,8 +862,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 @@ -885,10 +885,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; --------------- |