8 lines
128 B
Ada
8 lines
128 B
Ada
|
protected type Event is
|
||
|
|
procedure Signal;
|
||
|
|
procedure Reset;
|
||
|
|
entry Wait;
|
||
|
|
private
|
||
|
|
Fired : Boolean := False;
|
||
|
|
end Event;
|