Re: Joint Strike Fighter

[Ted Dennison<dennison@telepath.com>]

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.