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.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,bdf72b2364b0da13
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Received: by 10.68.213.71 with SMTP id nq7mr12663201pbc.2.1323783621294;
        Tue, 13 Dec 2011 05:40:21 -0800 (PST)
Path: 
 lh20ni17875pbb.0!nntp.google.com!news2.google.com!postnews.google.com!c13g2000vbh.googlegroups.com!not-for-mail
From: Ada BRL <ada.brl.2011@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Interrupts handling in ADA
Date: Tue, 13 Dec 2011 05:38:34 -0800 (PST)
Organization: http://groups.google.com
Message-ID: 
 <601d5c92-16b2-4430-a462-1e8f4333a16b@c13g2000vbh.googlegroups.com>
References: <30143086.6.1323549838421.JavaMail.geo-discussion-forums@vbbfq24>
 <jc3rrs$27sq$1@news.ett.com.ua>
 <9ab7f79f-fdfc-4f76-adbc-4bb64fc19187@y7g2000vbe.googlegroups.com>
NNTP-Posting-Host: 164.11.203.58
Mime-Version: 1.0
X-Trace: posting.google.com 1323783621 21563 127.0.0.1 (13 Dec 2011 13:40:21
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Tue, 13 Dec 2011 13:40:21 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: c13g2000vbh.googlegroups.com; posting-host=164.11.203.58;
 posting-account=yig7mwoAAAAAcduNbH7Dpal1sjCSAijA
User-Agent: G2/1.0
X-Google-Web-Client: true
X-Google-Header-Order: HUARELSCNK
X-HTTP-UserAgent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.2
 (KHTML, like Gecko) Chrome/15.0.874.121 Safari/535.2,gzip(gfe)
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Date: 2011-12-13T05:38:34-08:00
List-Id: <comp.lang.ada>

On 12 Dic, 15:23, bj=F6rn lundin <b.f.lun...@gmail.com> wrote:
> On 12 Dec, 04:19, a...@att.net wrote:
>
> > =A0 exception
> > =A0 =A0 when Socket_Error =3D>
> > =A0 =A0 =A0 =A0 if Main'Callable then
> > =A0 =A0 =A0 =A0 =A0 Main.Dead ( 1 ) ;
> > =A0 =A0 =A0 =A0 end if ;
> > =A0 =A0 =A0 =A0 Close_Socket ( Socket ) ;
> > =A0 end One ;
>
> Another small nit-picking note.
> The call to Main.Dead may still cause Tasking_Error,
> since the result of Main'Callable may have changed
> during the time between the check and the call.
> Unlikely yes, but still.
>
> =A0 =A0 =A0when Socket_Error =3D>
> =A0 =A0 =A0 =A0 =A0begin
> =A0 =A0 =A0 =A0 =A0 =A0Main.Dead ( 1 ) ;
> =A0 =A0 =A0 =A0 =A0exception
> =A0 =A0 =A0 =A0 =A0 =A0when Tasking_Error =3D> null; -- or printout
> =A0 =A0 =A0 =A0 =A0end;
> =A0 =A0 =A0 =A0 =A0Close_Socket ( Socket ) ;
> =A0 =A0end One ;
>
> This way the call to Main.Dead will succeed or not,
> but Close_Socket will always be called
>
> --
> Bj=F6rn Lundin

Thanks for the refinements!

Everyone was very helpful...this was the first time for me on Google
Groups and I would say it's far better than any other forum!!!