GNAT.Sockets

["Alexei Polkhanov" <alexp@ica.net>]

Hello.
    Does GNAT.Sockets from Gnat-3.14 works on Win2000 ?
    Somehow I manage to get some visible (by sniffer) activity on stack
running my own code.
Example taken from g-sockets.ads works fine on all UNIX platforms I have
tried, but
again on Win2000 it does not, raising  "GNAT.SOCKETS.SOCKET_ERROR: [0] No
error" or "GNAT.SOCKETS.HOST_ERROR: Unknown error"
I suspect NT version little bit broken (?)
What about other GNAT.* packages ? Are they work on NT ? 2000 ? XP ?
Of course I can use Win32 bindings from GNAT, but then again it is platform
specific. In that case I better write low level socket stuff in C and bind
Ada code to it. What is GNAT.* for ?

Code I tried (below) gives me: STORAGE_ERROR: EXCEPTION_STACK_OVERFLOW.

with GNAT.Sockets; use GNAT.Sockets;
with Ada.Text_IO;
with Ada.Exceptions; use Ada.Exceptions;
procedure Main is
    Address  : Sock_Addr_Type;
    Socket   : Socket_Type;
    Channel  : Stream_Access;
begin
    Initialize (Process_Blocking_IO => False);
    Address.Addr := Addresses (Get_Host_By_Name("mail.ica.net"), 1);
    Address.Port := 25;
    Create_Socket (Socket);
    Connect_Socket (Socket, Address);
    Channel := Stream (Socket);
    Ada.Text_IO.Put_Line (String'Input (Channel));
    Close_Socket(Socket);
    Finalize;

    exception when E : others =>
        Ada.Text_IO.Put_Line
             (Exception_Name (E) & ": " & Exception_Message (E));
end Main;