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