From 2ddc20004f457e12735ceeda5e42ba63c3e1f60a Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 7 Apr 2009 17:20:53 +0200 Subject: [multiple changes] 2009-04-07 Tristan Gingold * socket.c: Add more protections against S_resolvLib_ macros. 2009-04-07 Thomas Quinot * sem_attr.adb: Minor reformatting 2009-04-07 Ed Schonberg * sem_ch6.adb (New_Overloaded_Entity): New predicate Is_Overriding_Alias to handle properly types that inherit two homonym operations that have distinct dispatch table entries. From-SVN: r145681 --- gcc/ada/socket.c | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'gcc/ada/socket.c') diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c index 86d054f..cdb1245 100644 --- a/gcc/ada/socket.c +++ b/gcc/ada/socket.c @@ -355,15 +355,20 @@ __gnat_get_h_errno (void) { #ifdef S_resolvLib_HOST_NOT_FOUND case S_resolvLib_HOST_NOT_FOUND: #endif - case S_hostLib_UNKNOWN_HOST: +#ifdef S_hostLib_HOST_NOT_FOUND case S_hostLib_HOST_NOT_FOUND: +#endif + case S_hostLib_UNKNOWN_HOST: return HOST_NOT_FOUND; #ifdef S_resolvLib_TRY_AGAIN case S_resolvLib_TRY_AGAIN: + return TRY_AGAIN; #endif +#ifdef S_hostLib_TRY_AGAIN case S_hostLib_TRY_AGAIN: return TRY_AGAIN; +#endif #ifdef S_resolvLib_NO_RECOVERY case S_resolvLib_NO_RECOVERY: @@ -377,8 +382,13 @@ __gnat_get_h_errno (void) { #ifdef S_resolvLib_INVALID_ADDRESS case S_resolvLib_INVALID_ADDRESS: #endif - case S_hostLib_INVALID_PARAMETER: +#ifdef S_hostLib_NO_RECOVERY case S_hostLib_NO_RECOVERY: +#endif +#ifdef S_hostLib_NETDB_INTERNAL + case S_hostLib_NETDB_INTERNAL: +#endif + case S_hostLib_INVALID_PARAMETER: return NO_RECOVERY; #ifdef S_resolvLib_NO_DATA -- cgit v1.1