Re: confusion about message passing between the tasks

[Simon Wright <simon@pushface.org>]

compguy45@gmail.com writes:

>  22             select
>  23                     accept Get (Check : Integer ; Value : out Integer) do

Make it "Value : in out Integer" (because you need to know the current
value).

>  24                    -- put("Value of Check is "); put(Check);new_line;
>  25                     V := Check;

Here is the nub of your problem: you always assign Check to V (and your
calling code always has Check = 0).

Delete this line.

>  26                     V := V + 1;

And this line. And the declaration of V.

>  27                     Value := V;

Make this line

   Value := Value + 1;

>  28                     put("Value V the accept block is   ");put(V);new_line;

And make this Put(Value).

>  29                 end Get;
>