From d50633515b970d72c074e5face5eecf2dd3fa74a Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 20 Apr 2009 12:41:25 +0200 Subject: [multiple changes] 2009-04-20 Gary Dismukes * 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 * 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 * socket.c (__gnat_inet_pton, Windows case): Adjust return value. WSAStringToAddress returns 0 for success and SOCKET_ERROR for failure. From-SVN: r146395 --- gcc/ada/socket.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/socket.c') 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 -- cgit v1.1