From 3a13e78582d1be59cd9e5ecb24f8f1c355261648 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Mon, 14 Jun 2010 12:56:35 +0000 Subject: socket.c: Fix wrong condition in #ifdef 2010-06-14 Thomas Quinot * socket.c: Fix wrong condition in #ifdef * g-socket.adb, g-sothco.ads: Functions imported from socket.c that take or return char* values can't use Interfaces.C.Strings.chars_ptr, because on VMS this type is a 32-bit pointer which is not compatible with the default for C pointers for code compiled with gcc on that platform. From-SVN: r160735 --- gcc/ada/socket.c | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) (limited to 'gcc/ada/socket.c') diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c index d03ddea..e68f435 100644 --- a/gcc/ada/socket.c +++ b/gcc/ada/socket.c @@ -50,21 +50,7 @@ */ typedef char *__netdb_char_ptr __attribute__ (( mode (SI) )); typedef __netdb_char_ptr *__netdb_char_ptr_ptr __attribute__ (( mode (SI) )); -# define NEED_STRUCT_xxxENT -#elif defined (__vxworks) -/* - * For VxWorks we emulate getXXXbyYYY using the proprietary VxWorks API. - */ -typedef char *__netdb_char_ptr; -typedef __netdb_char_ptr *__netdb_char_ptr_ptr; -# define NEED_STRUCT_xxxENT - -#else -# undef NEED_STRUCT_xxxENT -#endif - -#ifdef NEED_STRUCT_xxxENT struct hostent { __netdb_char_ptr h_name; __netdb_char_ptr_ptr h_aliases; @@ -125,7 +111,7 @@ extern int __gnat_hostent_h_addrtype (struct hostent *); extern int __gnat_hostent_h_length (struct hostent *); extern char * __gnat_hostent_h_addr (struct hostent *, int); -#if defined (__vxworks) || defined (_WIN32) +#ifndef HAVE_INET_PTON extern int __gnat_inet_pton (int, const char *, void *); #endif -- cgit v1.1