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.6 required=5.0 tests=BAYES_00,TO_NO_BRKTS_FROM_MSSP
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,2def9aa85afa5d22
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-11-30 08:39:50 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!hub1.nntpserver.com!news-out.spamkiller.net!propagator-la!news-in-la.newsfeeds.com!newsranger.com!www.newsranger.com!not-for-mail
Newsgroups: comp.lang.ada
From: Ted Dennison<dennison@telepath.com>
References: <3BDCE159.39F6D422@adaworks.com>
 <11bf7180.0110290311.4d8d6f04@posting.google.com>
 <3BDF9C6A.C25520C5@adaworks.com>
 <3BE023AB.8F235EF5@sparc01.ftw.rsc.raytheon.com> <9rp8mo$6d8$1@nh.pace.co.uk>
 <11bf7180.0111010338.6dbc1537@posting.google.com>
 <u0cpfi8hvh7jca@corp.supernews.com> <9u5q9g$md$1@nh.pace.co.uk>
 <x7v7ks8bf0g.fsf@galadriel.frlngtn.gecm.com>
 <odNN7.43847$xS6.73869@www.newsranger.com>
 <x7v667sb4yc.fsf@galadriel.frlngtn.gecm.com>
Subject: Re: Joint Strike Fighter
Message-ID: <dDON7.43946$xS6.74052@www.newsranger.com>
X-Abuse-Info: When contacting newsranger.com regarding abuse please
X-Abuse-Info: forward the entire news article including headers or
X-Abuse-Info: else we will not be able to process your request
X-Complaints-To: abuse@newsranger.com
NNTP-Posting-Date: Fri, 30 Nov 2001 11:39:37 EST
Organization: http://www.newsranger.com
Date: Fri, 30 Nov 2001 16:39:37 GMT
Xref: archiver1.google.com comp.lang.ada:17227
Date: 2001-11-30T16:39:37+00:00
List-Id: <comp.lang.ada>

In article <x7v667sb4yc.fsf@galadriel.frlngtn.gecm.com>, Simon Wright says...
>
>  procedure Close (The_Socket : in out Socket) is
>    Fd : Integer;
>  begin
>    Fd := The_Socket.Fd;
>    The_Socket.Fd := -1;    -- indicate that The_Socket is now closed
>    if Close (Fd) < 0 then  -- this is an import of the Unix close()
>      raise Close_Error;    
>    end if;
>  end Close;
>
>  GNAT uses copy semantics here, so if the exception occurs the actual
>  parameter doesn't get altered and still has a valid file descriptor,
>  leading to confusion downstream.

Interesting.
Another alternative is to specify the mode as access. That can be kind of a pain
for the user, though.

---
T.E.D.    homepage   - http://www.telepath.com/dennison/Ted/TED.html

No trees were killed in the sending of this message. 
However a large number of electrons were terribly inconvenienced.