[log in to unmask] wrote:
> hi alex,
> Shiva here. I have done a small program which uses protected
> and 2 tasks. Check this, but this program works........
>
> with Ada.Text_Io;
> use Ada.Text_Io;
>
> procedure Protected_Task is
> protected Task_Var is
> procedure Increment;
> private
> A : Integer:=0;
> end Task_Var;
>
> protected body Task_Var is
> procedure Increment is
> begin
> A:=A+1;
> New_Line;
> Put(" A value :");
> Put(Integer'Image(A));
> end Increment;
> end Task_Var;
This program is of course broken, per RM95 9.5.1 (18).
Text_IO.Put is potentially blocking, so calling it from within a
protected operation is a bounded error. See RM95 9.5.1 (16).
-Matt