[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