diff options
| author | Pascal Obry <obry@adacore.com> | 2005-07-07 11:41:29 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-07-07 11:41:29 +0200 |
| commit | 2366e7c600b5d2306acfd13b4324d77cea66859d (patch) | |
| tree | 42d3d9e228b315764a37741113a5eb88a8f05e7b /gcc/ada/g-socthi-mingw.ads | |
| parent | 41f12ed0a94c98482e4f7fe97d2be03db8faaa77 (diff) | |
| download | gcc-2366e7c600b5d2306acfd13b4324d77cea66859d.zip gcc-2366e7c600b5d2306acfd13b4324d77cea66859d.tar.gz gcc-2366e7c600b5d2306acfd13b4324d77cea66859d.tar.bz2 | |
g-socthi-mingw.adb (C_Inet_Addr): New body used to convert the returned type on Windows.
2005-07-07 Pascal Obry <obry@adacore.com>
* g-socthi-mingw.adb (C_Inet_Addr): New body used to convert the
returned type on Windows.
* g-socthi-mingw.ads (C_Inet_Addr): Remove pragma Import for this
routine.
* g-socket.adb (Inet_Addr): Check for empty Image and raises an
exception in this case.
Simplify the code as "Image (Image'Range)" = "Image".
From-SVN: r101691
Diffstat (limited to 'gcc/ada/g-socthi-mingw.ads')
| -rw-r--r-- | gcc/ada/g-socthi-mingw.ads | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/g-socthi-mingw.ads b/gcc/ada/g-socthi-mingw.ads index 34f387b..71fe4fe 100644 --- a/gcc/ada/g-socthi-mingw.ads +++ b/gcc/ada/g-socthi-mingw.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2004 Ada Core Technologies, Inc. -- +-- Copyright (C) 2001-2005 AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -395,7 +395,6 @@ private pragma Import (Stdcall, C_Getservbyport, "getservbyport"); pragma Import (Stdcall, C_Getsockname, "getsockname"); pragma Import (Stdcall, C_Getsockopt, "getsockopt"); - pragma Import (Stdcall, C_Inet_Addr, "inet_addr"); pragma Import (Stdcall, C_Ioctl, "ioctlsocket"); pragma Import (Stdcall, C_Listen, "listen"); pragma Import (Stdcall, C_Recv, "recv"); |