diff options
Diffstat (limited to 'gcc-4.7/gcc/ada/a-astaco.ads')
-rw-r--r-- | gcc-4.7/gcc/ada/a-astaco.ads | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/gcc-4.7/gcc/ada/a-astaco.ads b/gcc-4.7/gcc/ada/a-astaco.ads deleted file mode 100644 index 3200c7ecd..000000000 --- a/gcc-4.7/gcc/ada/a-astaco.ads +++ /dev/null @@ -1,41 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME COMPONENTS -- --- -- --- A D A . A S Y N C H R O N O U S _ T A S K _ C O N T R O L -- --- -- --- S p e c -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. In accordance with the copyright of that document, you can freely -- --- copy and modify this specification, provided that if you redistribute a -- --- modified version, any changes that you have made are clearly indicated. -- --- -- ------------------------------------------------------------------------------- - --- This unit is not implemented in typical GNAT implementations that lie on --- top of operating systems, because it is infeasible to implement in such --- environments. The RM anticipates this situation (RM D.11(10)), and permits --- an implementation to leave this unimplemented even if the Real-Time Systems --- annex is fully supported. - --- If a target environment provides appropriate support for this package, then --- the Unimplemented_Unit pragma should be removed from this spec, and an --- appropriate body provided. The framework for such a body is included in the --- distributed sources. - -with Ada.Task_Identification; - -package Ada.Asynchronous_Task_Control is - pragma Preelaborate_05; - -- In accordance with Ada 2005 AI-362 - - pragma Unimplemented_Unit; - - procedure Hold (T : Ada.Task_Identification.Task_Id); - - procedure Continue (T : Ada.Task_Identification.Task_Id); - - function Is_Held (T : Ada.Task_Identification.Task_Id) return Boolean; - -end Ada.Asynchronous_Task_Control; |