type Barrier_Ptr is access Barrier;
entry Wait;
procedure Open;
procedure Close;
Opened: Boolean := False; References:
barrier_type.ads:16:7 (declaration)barrier_type.adb:13:23 (reference)barrier_type.adb:16:10 (reference)barrier_type.adb:26:9 (reference)barrier_type.adb:36:9 (reference)Called by:
Close defined at barrier_type.ads:13:17Open defined at barrier_type.ads:12:17Wait defined at barrier_type.ads:11:17Wait defined at barrier_type.ads:11:17Free
procedure Free is new Ada.Unchecked_Deallocation
( Object => Barrier, Name => Barrier_Ptr); Called by: