From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.4 required=5.0 tests=AC_FROM_MANY_DOTS,BAYES_00
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,c3c4ae45442f569e
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news4.google.com!news2.google.com!newsread.com!news-xfer.newsread.com!newspeer.monmouth.com!news.tele.dk!news.tele.dk!small.news.tele.dk!uninett.no!news.eunet.no!kda-news.kongsberg.com!not-for-mail
From: "Egil H. H�vik" <egil.harald.hoevikNOSPAM@REMOVEkongsberg.com>
Newsgroups: comp.lang.ada
Subject: Re: tasks and protected types
Date: Fri, 29 Apr 2005 16:12:59 +0200
Organization: News Kongsberg Defence&Aerospace T-Nett
Message-ID: <d4tf4s$m03$1@kda-news.kongsberg.com>
References: <1114747457.868019.93210@f14g2000cwb.googlegroups.com>
 <m23bt9dik6.fsf@hugin.crs4.it>
 <1114771627.401153.78280@z14g2000cwz.googlegroups.com>
 <m2sm19bywq.fsf@hugin.crs4.it> <42722ECA.5060903@mailinator.com>
 <d4teol$lrs$1@kda-news.kongsberg.com>
NNTP-Posting-Host: kda-mfxp-16.kda.kongsberg.com
X-Trace: kda-news.kongsberg.com 1114783708 22531 193.71.174.116 (29 Apr 2005
 14:08:28 GMT)
X-Complaints-To: tommy.fallsen@kongsberg.com
NNTP-Posting-Date: Fri, 29 Apr 2005 14:08:28 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Xref: g2news1.google.com comp.lang.ada:10821
Date: 2005-04-29T16:12:59+02:00
List-Id: <comp.lang.ada>


>
> 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