Re: Multiple pragma Imports

[dewar@gnat.com]

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