with Ada.Task_Identification;

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.

package Ada.Asynchronous_Task_Control is

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;