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=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,de68e4ddf10693
X-Google-Attributes: gid103376,public
From: dewar@gnat.com
Subject: Re: Multiple pragma Imports
Date: 1998/12/28
Message-ID: <7672dq$nmo$1@nnrp1.dejanews.com>#1/1
X-Deja-AN: 426328107
References: <762u9n$kfn$1@nnrp1.dejanews.com> <F4LKJL.7z@jvdsys.stuyts.nl>
 <1998Dec27.083157.1@eisner> <3686918c.1630214@news.pacbell.net>
X-Http-Proxy: 1.0 x1.dejanews.com:80 (Squid/1.1.22) for client 166.72.71.106
Organization: Deja News - The Leader in Internet Discussion
X-Article-Creation-Date: Mon Dec 28 04:45:46 1998 GMT
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.04 [en] (OS/2; I)
Date: 1998-12-28T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <3686918c.1630214@news.pacbell.net>,
  tmoran@bix.com (Tom Moran) wrote:
>  Then a naive thin binding might try to have
>   procedure Close(Client : in out Client_Socket);
>   pragma import(C, Close, "SClose");
>   procedure Close(Server : in out Server_Socket);
>   pragma import(C, Close, "SClose");

> As I understand Robert Dewar's message, this is in fact
> illegal Ada, though it has been accepted by more than one
> compiler in the past.

> Something like
>   procedure Close(Client : in out Client_Socket);
>   pragma import(C, Close, "SClose");
>   procedure Close(Server : in out Server_Socket) is
>   begin
>      Close(Client_Socket(Server));  -- appropriate type
>                                               conversion
>   end Close;
>  would be needed.


No, no, please don't make this sound more complicated
or annoying than it is!!! The fix is much simpler than
that, just leave out the first pragma Import, that's the
end of it!

>   procedure Close(Client : in out Client_Socket);
>   procedure Close(Server : in out Server_Socket);
>   pragma import(C, Close, "SClose");

Robert Dewar
Ada Core Technologies

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own