Re: Weird problem with recursion and tasks

[Matthew Heaney <matthewjheaney@earthlink.net>]

"christopher.orihuela@gmail.com" <christopher.orihuela@gmail.com> writes:

>    protected body Counter is
>       Procedure ShowCounts is
>       begin
>          Put_Line("A: " & Integer'Image(A));
>          Put_Line("B: " & Integer'Image(B));
>       end ShowCounts;
>    end Counter;


Ada.Text_IO.Put_Line is a "potentially-blocking operation" so you should not
call it from a protected operation; be aware that Program_Error might get
raised here.  (Ada 2005 has a new feature whereby you can request the compiler
to detect that a potentially-blocking call was made and raise that exception.)