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 27with Ada.Task_Identification; 28 29package Ada.Asynchronous_Task_Control is 30 pragma Preelaborate_05; 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 41end Ada.Asynchronous_Task_Control; 42