Re: Protected Objects (Geeenhills & VxWorks)

["R. Tim Coslet" <coslett@kaisere.com>]

Ooops!

            R. Tim Coslet

Tucker Taft wrote:

> It is not clear who sets the value of Waiting.

> >    protected body Example_Protected_Object is
> >
> >       entry Send when Available or
> >                                 I_Am_Tired_Of_Waiting is
> >       begin
> >
> >          -- Do some things here...
> >
> >          -- reset the barrier flags
> >          Available := False;
> >          I_Am_Tired_Of_Waiting := False;
> >
> >          -- reset the waiting flag
> >          Waiting_For_It := False;

My mistake. In cleaning out the code for this posting I didn't change this names
right.This should have read:

               -- reset the waiting flag
               Waiting := False;

> >
> >       end Send;
> >
> >       procedure Signal_Available is
> >       begin
> >
> >          -- set the barrier flag to indicate data has been received
> >          Available := True;
> >
> >       end Signal_Available;
> >
> >       procedure Check_For_Timeout is
> >       begin
> >
> >          -- set the barrier flag to indicate data has not been received
> >          I_Am_Tired_Of_Waiting := Waiting;
> >
> >          -- set the waiting flag
> >          Waiting := True;
> >
> >       end Check_For_Timeout;
> >
> >    end Example_Protected_Object;