Re: Freezing a task

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On Thu, 17 Nov 2011 17:22:57 +0100, Dmitry A. Kazakov wrote:

>    Paused : Boolean := False;
> begin
>    loop
>       if Paused then
>          accept Release;
>          Paused := False;
>       else
>          select
>             accept Pause;
>             Paused := True;
>          else
>             ... -- Do stuff
>          end select;
>       end if;
>    end loop;

P.S. there is a deadlock in above if improperly used from outside. It is
simple to fix.

It is worth to note that one of the rationales behind protected objects
introduced in Ada 95, was to ease things like above. The same done with a
protected object would be simpler, safer and reusable (within the task)
too.

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de