diff options
| author | sof <unknown> | 1999-09-17 09:38:35 +0000 |
|---|---|---|
| committer | sof <unknown> | 1999-09-17 09:38:35 +0000 |
| commit | c976d71a4b0815b8ceb7dd5da8e2a4bb755cd216 (patch) | |
| tree | 83dedc74bed65f06f4143b4d7b69d8620ca4571f /ghc/lib/misc/cbits/acceptSocket.c | |
| parent | 2cae93d60ad27e8fd7b828515241f2cc9f95577b (diff) | |
| download | haskell-c976d71a4b0815b8ceb7dd5da8e2a4bb755cd216.tar.gz | |
[project @ 1999-09-17 09:38:33 by sof]
Non-blocking I/O isn't supported on 'pure' Win32 platforms.
Diffstat (limited to 'ghc/lib/misc/cbits/acceptSocket.c')
| -rw-r--r-- | ghc/lib/misc/cbits/acceptSocket.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ghc/lib/misc/cbits/acceptSocket.c b/ghc/lib/misc/cbits/acceptSocket.c index 3995795dd5..9fb0e563c5 100644 --- 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; } |