Re: Designing Timers using Ada.Real_Time.Timing_Events package

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

On Mon, 27 Mar 2006 09:49:59 +0200, Dmitry A. Kazakov wrote:

> -- Main entrance (is closed during notification) The reason is
> -- to aviod irace condition upon timer event. Otherwise a task
> -- might get it twice.
> entry Wait_For when Inactive or not Occured is
>    if Inactive then
>       raise Timer_Canceled;
>    else
>       requeue Wait_Notify with abort;
>    end if;
> end Wait_For;
> 
> -- The notification queue, this is a private entry point to gather
> -- the waiting requests.
> entry Wait_Notify when Inactive or Occured is
>    if Inactive then
>       raise Timer_Canceled;

I forgot to reset it:

   else
      Occurred := Wait_Notify'Count > 0;

>    end if;
> end Wait_Notify;
> 
> procedure Set (Period : Time_Span) is
> begin
>    -- attach Signal to the timer
>    Inactive := False;
> end Set;
> 
> procedure Signal (...) is
>    Occurred := True;
> end Signal;
> 
> procedure Stop is
>    -- detach Signal from the timer
>    Inactive := True;
> end Stop;

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