[project @ 1999-11-12 11:54:09 by simonmar]

[ghc-hetmet.git] / ghc / lib / misc / cbits / acceptSocket.c

diff --git a/ghc/lib/misc/cbits/acceptSocket.c b/ghc/lib/misc/cbits/acceptSocket.c
index 3995795..9fb0e56 100644 (file)
--- a/ghc/lib/misc/cbits/acceptSocket.c
+++ b/ghc/lib/misc/cbits/acceptSocket.c
@@ -55,8 +55,10 @@ acceptSocket(I_ sockfd, A_ peer, A_ addrlen)
     }
 
     /* set the non-blocking flag on this file descriptor */
+#if !defined(_WIN32) || defined(__CYGWIN__) || defined(__CYGWIN32__)
     flags = fcntl(fd, F_GETFL);
     fcntl(fd, F_SETFL, flags | O_NONBLOCK);
+#endif
 
     return fd;
 }