"Jano" <notelacreas@porfavor.no> a �crit dans le message de news:2ngv8lFnp34U1@uni-berlin.de...
> So instead of a single delay you may prefer
>
> -- Inner loop:
> loop
>     if Dummy'Terminated then
>        Free (Dummy);
>        exit;
>     else
>        delay 0.01; -- To not hog CPU
>     end if;
> end loop;
>
If (like me) you don't like busy waiting, you can do the following:
begin
   Dummy.Never_Accepted;
exception
   when Tasking_Error =>
      null;
end;

Of course, the entry Never_Accepted is never accepted, but the run-time will raise Tasking_Error in waiting tasks when Dummy
completes. (Strictly speaking, if you are on a multi-processor or if the waiting task is of higher priority than Dummy, you should
still have a loop to wait for the task to terminate, but in this case the busy loop would be presumably executed only once).

-- 
---------------------------------------------------------
           J-P. Rosen (rosen@adalog.fr)
Visit Adalog's web site at http://www.adalog.fr