Re: Tasking with Linux-Gnat ?

[Pascal Ledru <ledru>]

You should clarify if you have a timed_entry_call or a selective_accept.
The timed_entry_call does not have guard before its delay alternative.
On the other hand, the selective_accept does.

The following code is legal:
select
  accept A;
or
  when condition =>
    delay 1.0;
end select;

but the following is not:
select
  T.A;
or
  when condition =>
    delay 1.0;
end select;

you can achieve what you want with an extra variable:
X := Boolean'Pos(Condition) * minutes;
select
  T.A;
or
  delay 10 * X;
end select;