Re: confusion about message passing between the tasks

[compguy45@gmail.com]

 Can anyone tell me why i am getting zero printed to the screen even though i am passing 5?


 2 use Ada.Text_IO, Ada.Integer_Text_IO;
  3 
  4 with Ada.Calendar; use Ada.Calendar;
  5 
  6 procedure strib1 is
  7 
  8 task type Counter_Task is
  9    entry Get (Value : out Integer);
 10 end Counter_Task;
 11 
 12 
 13 p: Counter_Task;
 14 i : Integer;
 15      
 16      
 17      
 18 task body Counter_Task is
 19         V : Integer := 0;
 20     begin
 21         loop
 22             select
 23                 accept Get (Value : out Integer) do
 24                     put("Value of parametar passed in is ");put(Value); 
                        --Why am i getting zero printed???
 25                     Value := V;
 26                     V     := V + 1;
 27                 end Get;
 28             or  
 29                 terminate;
 30             end select;
 31         end loop;
 32     end Counter_Task;
 33 
 34 begin
 35   i := 5;
 36   p.Get(i); 
 37