diff options
Diffstat (limited to 'gcc/ada/56taprop.adb')
| -rw-r--r-- | gcc/ada/56taprop.adb | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/gcc/ada/56taprop.adb b/gcc/ada/56taprop.adb index ffaf40a8470..b4098264262 100644 --- a/gcc/ada/56taprop.adb +++ b/gcc/ada/56taprop.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- -- @@ -79,7 +79,6 @@ with System.Soft_Links; with System.OS_Primitives; -- used for Delay_Modes -with Unchecked_Conversion; with Unchecked_Deallocation; package body System.Task_Primitives.Operations is @@ -186,8 +185,6 @@ package body System.Task_Primitives.Operations is procedure Set_OS_Priority (T : Task_ID; Prio : System.Any_Priority); -- This procedure calls the scheduler of the OS to set thread's priority - function To_Address is new Unchecked_Conversion (Task_ID, System.Address); - ------------------- -- Abort_Handler -- ------------------- @@ -215,8 +212,10 @@ package body System.Task_Primitives.Operations is -- Make sure signals used for RTS internal purpose are unmasked - Result := pthread_sigmask (SIG_UNBLOCK, - Unblocked_Signal_Mask'Unchecked_Access, Old_Set'Unchecked_Access); + Result := + pthread_sigmask (SIG_UNBLOCK, + Unblocked_Signal_Mask'Unchecked_Access, + Old_Set'Unchecked_Access); pragma Assert (Result = 0); raise Standard'Abort_Signal; @@ -896,9 +895,6 @@ package body System.Task_Primitives.Operations is Adjusted_Stack_Size : Interfaces.C.size_t; Result : Interfaces.C.int; - function Thread_Body_Access is new - Unchecked_Conversion (System.Address, Thread_Body); - use System.Task_Info; begin |