diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 12:41:25 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 12:41:25 +0200 |
| commit | d50633515b970d72c074e5face5eecf2dd3fa74a (patch) | |
| tree | e668c89aa3f9087dd5b3d22630f97376345fb69c /gcc/ada/socket.c | |
| parent | 51c2e647b2ba74449b7f540c9aeb43e3013d4da2 (diff) | |
| download | gcc-d50633515b970d72c074e5face5eecf2dd3fa74a.zip gcc-d50633515b970d72c074e5face5eecf2dd3fa74a.tar.gz gcc-d50633515b970d72c074e5face5eecf2dd3fa74a.tar.bz2 | |
[multiple changes]
2009-04-20 Gary Dismukes <dismukes@adacore.com>
* osint-c.ads, osint-c.adb (Get_Object_Output_File_Name): New function
to return the object file name saved by Set_Object_Output_File_Name.
2009-04-20 Emmanuel Briot <briot@adacore.com>
* g-comlin.adb (Initialize_Option_Scan): Fix initialization of parsers
for the standard command line, when argc has been modified since the
start of the application.
2009-04-20 Thomas Quinot <quinot@adacore.com>
* socket.c (__gnat_inet_pton, Windows case): Adjust return value.
WSAStringToAddress returns 0 for success and SOCKET_ERROR for failure.
From-SVN: r146395
Diffstat (limited to 'gcc/ada/socket.c')
| -rw-r--r-- | gcc/ada/socket.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c index 1c7de25..4633ebf 100644 --- a/gcc/ada/socket.c +++ b/gcc/ada/socket.c @@ -423,7 +423,7 @@ __gnat_inet_pton (int af, const char *src, void *dst) { ss.ss_family = af; rc = WSAStringToAddressA (src, af, NULL, (struct sockaddr *)&ss, &sslen); - if (rc > 0) { + if (rc == 0) { switch (af) { case AF_INET: *(struct in_addr *)dst = ((struct sockaddr_in *)&ss)->sin_addr; @@ -435,7 +435,7 @@ __gnat_inet_pton (int af, const char *src, void *dst) { #endif } } - return rc; + return (rc == 0); #endif } #endif |