From 59310e6115f826aad9384e032acedf20733b2be1 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Tue, 26 Aug 2008 23:46:58 +0000
Subject: [PATCH] 2008-08-27 01:46 UTC+0200 Viktor Szakats (harbour.01 syenar
 hu)    * source/rtl/hbinet.c      ! Bad workaround for the '__WSAFDIsSet
 unresolved' problem        in Pelles C 5.00.13 AMD64 mode, to make final
 executables        link at all. Some hbinet.c features (or the whole module) 
       won't properly work though.        This possible bug has been reported
 on the Pellec C forums:        http://forum.pellesc.de/index.php?topic=2590.0

---
 harbour/ChangeLog           |  9 +++++++++
 harbour/source/rtl/hbinet.c | 15 ++++++++++++---
 2 files changed, 21 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 5aa4c28bac..b245a88c11 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,15 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2008-08-27 01:46 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * source/rtl/hbinet.c
+     ! Bad workaround for the '__WSAFDIsSet unresolved' problem 
+       in Pelles C 5.00.13 AMD64 mode, to make final executables 
+       link at all. Some hbinet.c features (or the whole module) 
+       won't properly work though.
+       This possible bug has been reported on the Pellec C forums:
+       http://forum.pellesc.de/index.php?topic=2590.0
+
 2008-08-27 00:54 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
    * include/hbinit.h
    * source/rtl/gtwin/gtwin.c
diff --git a/harbour/source/rtl/hbinet.c b/harbour/source/rtl/hbinet.c
index f1db15e6dc..077152d69b 100644
--- a/harbour/source/rtl/hbinet.c
+++ b/harbour/source/rtl/hbinet.c
@@ -66,7 +66,7 @@
 
 /* Compile in Unix mode under Cygwin */
 #ifdef HB_OS_UNIX_COMPATIBLE
-   #undef HB_OS_WIN_32
+  #undef HB_OS_WIN_32
 #endif
 
 /* HB_INET_H_ */
@@ -81,7 +81,7 @@
    #include <string.h>
 
    #if defined( HB_OS_WIN_32 )
-      #define _WINSOCKAPI_  /* Prevents inclusion of winsock.h in windows.h */
+      #define _WINSOCKAPI_  /* Prevents inclusion of Winsock.h in Windows.h */
       #define HB_SOCKET_T SOCKET
       #include <winsock2.h>
       #include <windows.h>
@@ -213,6 +213,15 @@
    #define socklen_t int
 #endif
 
+#if (__POCC__ >= 500) && defined( HB_OS_WIN_64 )
+   /* TOFIX: Bad workaround for the '__WSAFDIsSet unresolved' problem 
+             in Pelles C 5.00.13 AMD64 mode, to make final executables 
+             link at all. Some hbinet.c features (or the whole module) 
+             won't properly work though. [vszakats] */
+   #undef FD_ISSET
+   #define FD_ISSET( s, f ) ( 0 )
+#endif
+
 #ifdef HB_OS_LINUX
 #include <signal.h>
 #define HB_INET_LINUX_INTERRUPT     SIGUSR1+90
@@ -330,7 +339,7 @@ static struct hostent * hb_getHosts( char * name, HB_SOCKET_STRUCT *Socket )
 
    /* TOFIX: make it MT safe */
 
-   /* let's see if name is an IP address; not necessary on Linux */
+   /* let's see if name is an IP address; not necessary on linux */
 #if defined(HB_OS_WIN_32) || defined(HB_OS_OS2)
    ULONG ulAddr;