|
|
|
| 
(2)
conditional_entry_call ::=
select
entry_call_alternative
else
sequence_of_statements
end select;
(6)
procedure Spin(R : in Resource) is
begin
loop
select
R.Seize;
return;
else
null; -- busy waiting
end select;
end loop;
end;
|
|
|
| 
-- Email comments, additions, corrections, gripes, kudos, etc. to: