diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-07 17:20:53 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-07 17:20:53 +0200 |
commit | 2ddc20004f457e12735ceeda5e42ba63c3e1f60a (patch) | |
tree | 26cdaa6a5a994a3cd95502cf2c6036e0c939a3f7 /gcc/ada/socket.c | |
parent | 06a16f58d6c14487c0598fe6f1c5cd68ba68301e (diff) | |
download | gcc-2ddc20004f457e12735ceeda5e42ba63c3e1f60a.tar.gz |
[multiple changes]
2009-04-07 Tristan Gingold <gingold@adacore.com>
* socket.c: Add more protections against S_resolvLib_ macros.
2009-04-07 Thomas Quinot <quinot@adacore.com>
* sem_attr.adb: Minor reformatting
2009-04-07 Ed Schonberg <schonberg@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/socket.c')
-rw-r--r-- | gcc/ada/socket.c | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c index 86d054f9c8c..cdb12456ad4 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 |