diff options
| author | sof <unknown> | 1999-07-03 18:45:04 +0000 |
|---|---|---|
| committer | sof <unknown> | 1999-07-03 18:45:04 +0000 |
| commit | e95d9ed181852e7b0b75d2d7c9ebed6057b60eea (patch) | |
| tree | 259be3951eb99a43b43e46ce427a40c95a438233 /ghc/lib/std/cbits/readFile.c | |
| parent | dd951f2cd46fb0dc3075d3feee306c5f6d3dd670 (diff) | |
| download | haskell-e95d9ed181852e7b0b75d2d7c9ebed6057b60eea.tar.gz | |
[project @ 1999-07-03 18:45:04 by sof]
Don't compile in WinSock support under cygwin
Diffstat (limited to 'ghc/lib/std/cbits/readFile.c')
| -rw-r--r-- | ghc/lib/std/cbits/readFile.c | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/ghc/lib/std/cbits/readFile.c b/ghc/lib/std/cbits/readFile.c index 8956e98f26..a848439dd4 100644 --- a/ghc/lib/std/cbits/readFile.c +++ b/ghc/lib/std/cbits/readFile.c @@ -1,7 +1,7 @@ /* * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998 * - * $Id: readFile.c,v 1.5 1999/07/01 13:12:09 simonmar Exp $ + * $Id: readFile.c,v 1.6 1999/07/03 18:45:04 sof Exp $ * * hGetContents Runtime Support */ @@ -9,7 +9,11 @@ #include "Rts.h" #include "stgio.h" -#ifdef HAVE_WINSOCK_H +#if defined(HAVE_WINSOCK_H) && !defined(__CYGWIN__) +#define USE_WINSOCK +#endif + +#ifdef USE_WINSOCK #include <winsock.h> #endif @@ -78,7 +82,7 @@ StgForeignPtr ptr; while ((count = ( -#ifdef HAVE_WINSOCK_H +#ifdef USE_WINSOCK fo->flags & FILEOBJ_WINSOCK ? recv(fd, fo->buf, fo->bufSize, 0) : read(fd, fo->buf, fo->bufSize))) <= 0 ) { @@ -171,7 +175,7 @@ StgInt len; while ((count = ( -#ifdef HAVE_WINSOCK_H +#ifdef USE_WINSOCK fo->flags & FILEOBJ_WINSOCK ? recv(fd, p, len, 0) : read(fd, p, len))) <= 0 ) { @@ -318,7 +322,7 @@ StgForeignPtr ptr; while ( (count = ( -#ifdef HAVE_WINSOCK_H +#ifdef USE_WINSOCK fo->flags & FILEOBJ_WINSOCK ? recv(fo->fd, &c, 1, 0) : read(fo->fd, &c, 1))) <= 0 ) { |