15 lines
232 B
Ada
15 lines
232 B
Ada
|
protected body Event is
|
||
|
|
procedure Signal is
|
||
|
|
begin
|
||
|
|
Fired := True;
|
||
|
|
end Signal;
|
||
|
|
procedure Reset is
|
||
|
|
begin
|
||
|
|
Fired := False;
|
||
|
|
end Reset;
|
||
|
|
entry Wait when Fired is
|
||
|
|
begin
|
||
|
|
null;
|
||
|
|
end Wait;
|
||
|
|
end Event;
|