Re: tasks and protected types

["Egil H. H�vik" <egil.harald.hoevikNOSPAM@REMOVEkongsberg.com>]

>
> RM 9.5.2(26):
> ...
> When an exception is propagated from the handled_sequence_of_statements of
> an accept_statement,
> the same exception is also raised by the execution of the corresponding
> entry_call statement.
>
>
> Which means that D1.Start raises an exception, D2.Start is never called,
and
> Manage will wait for D2 to terminate
> (D1 will terminate due to the unhandled exception)
>
>

... and as an accept_statement contains a handled_sequence_of_statements,
you can
add the exception handler in the accept statement directly, thus:

accept Start( Str : in String; Tm : in Positive) do
   Msg := Str;
   Times := Tm;
exception
   when others =>
      Ada.Text_IO.Put_Line("Exception caugth in accept statement");
end Start;


~egilhh