|
111
|
1 ------------------------------------------------------------------------------
|
|
|
2 -- --
|
|
|
3 -- GNAT RUN-TIME COMPONENTS --
|
|
|
4 -- --
|
|
|
5 -- 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 --
|
|
|
6 -- --
|
|
|
7 -- S p e c --
|
|
|
8 -- --
|
|
|
9 -- This specification is derived from the Ada Reference Manual for use with --
|
|
|
10 -- GNAT. In accordance with the copyright of that document, you can freely --
|
|
|
11 -- copy and modify this specification, provided that if you redistribute a --
|
|
|
12 -- modified version, any changes that you have made are clearly indicated. --
|
|
|
13 -- --
|
|
|
14 ------------------------------------------------------------------------------
|
|
|
15
|
|
|
16 -- This unit is not implemented in typical GNAT implementations that lie on
|
|
|
17 -- top of operating systems, because it is infeasible to implement in such
|
|
|
18 -- environments. The RM anticipates this situation (RM D.11(10)), and permits
|
|
|
19 -- an implementation to leave this unimplemented even if the Real-Time Systems
|
|
|
20 -- annex is fully supported.
|
|
|
21
|
|
|
22 -- If a target environment provides appropriate support for this package, then
|
|
|
23 -- the Unimplemented_Unit pragma should be removed from this spec, and an
|
|
|
24 -- appropriate body provided. The framework for such a body is included in the
|
|
|
25 -- distributed sources.
|
|
|
26
|
|
|
27 with Ada.Task_Identification;
|
|
|
28
|
|
|
29 package Ada.Asynchronous_Task_Control is
|
|
|
30 pragma Preelaborate;
|
|
|
31 -- In accordance with Ada 2005 AI-362
|
|
|
32
|
|
|
33 pragma Unimplemented_Unit;
|
|
|
34
|
|
|
35 procedure Hold (T : Ada.Task_Identification.Task_Id);
|
|
|
36
|
|
|
37 procedure Continue (T : Ada.Task_Identification.Task_Id);
|
|
|
38
|
|
|
39 function Is_Held (T : Ada.Task_Identification.Task_Id) return Boolean;
|
|
|
40
|
|
|
41 end Ada.Asynchronous_Task_Control;
|
