diff options
Diffstat (limited to 'gcc/ada/5ataprop.adb')
| -rw-r--r-- | gcc/ada/5ataprop.adb | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/gcc/ada/5ataprop.adb b/gcc/ada/5ataprop.adb index d67490fadd8..20821fda298 100644 --- a/gcc/ada/5ataprop.adb +++ b/gcc/ada/5ataprop.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- -- @@ -82,7 +82,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 @@ -178,8 +177,6 @@ package body System.Task_Primitives.Operations is procedure Abort_Handler (Sig : Signal); -- Signal handler used to implement asynchronous abortion. - function To_Address is new Unchecked_Conversion (Task_ID, System.Address); - ------------------- -- Abort_Handler -- ------------------- @@ -807,9 +804,6 @@ package body System.Task_Primitives.Operations is Result : Interfaces.C.int; Param : aliased System.OS_Interface.struct_sched_param; - function Thread_Body_Access is new - Unchecked_Conversion (System.Address, Thread_Body); - use System.Task_Info; begin |