Package: GNAT.Task

Package: GNAT.Task_Lock

These routines may be used in a non-tasking program, and in that case they have no effect (they do NOT cause the tasking runtime to be loaded).

package GNAT.Task_Lock is

pragma Elaborate_Body (Task_Lock);

procedure Lock;
pragma Inline (Lock);

Acquires the global lock, starts the execution of a critical region which no other task can enter until the locking task calls Unlock

procedure Unlock;
pragma Inline (Unlock);

Releases the global lock, allowing another task to successfully complete a Lock operation. Terminates the critical region.

end GNAT.Task_Lock;