diff options
| author | sof <unknown> | 1999-03-01 09:26:45 +0000 |
|---|---|---|
| committer | sof <unknown> | 1999-03-01 09:26:45 +0000 |
| commit | cb9eb0747cb4f0924ba774649b365e7fd25fab6a (patch) | |
| tree | 687f543f23de09193e3469f5028c456071c130d5 | |
| parent | fcc081fb3a23b32f26e74d9b1baa06e4368bd7df (diff) | |
| download | haskell-cb9eb0747cb4f0924ba774649b365e7fd25fab6a.tar.gz | |
[project @ 1999-03-01 09:26:45 by sof]
mingw32: stay well clear of any tty stuff - just don't have
support for it.
| -rw-r--r-- | ghc/lib/std/cbits/setBuffering.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ghc/lib/std/cbits/setBuffering.c b/ghc/lib/std/cbits/setBuffering.c index 1fa63324fa..2aa451c616 100644 --- a/ghc/lib/std/cbits/setBuffering.c +++ b/ghc/lib/std/cbits/setBuffering.c @@ -1,7 +1,7 @@ /* * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998 * - * $Id: setBuffering.c,v 1.3 1998/12/02 13:27:54 simonm Exp $ + * $Id: setBuffering.c,v 1.4 1999/03/01 09:26:45 sof Exp $ * * hSetBuffering Runtime Support */ @@ -56,6 +56,7 @@ StgInt size; fo->buf = NULL; } +#ifndef mingw32_TARGET_OS while ((flags = fcntl(fo->fd, F_GETFL)) < 0) { if (errno != EINTR) { cvtErrno(); @@ -67,11 +68,13 @@ StgInt size; input = flags == O_RDONLY || flags == O_RDWR; isaterm = input && isatty(fo->fd); +#endif switch (size) { case SB_NB: fo->flags &= ~FILEOBJ_LB & ~FILEOBJ_BB; +#ifndef mingw32_TARGET_OS if (isaterm) { /* Switch over to canonical mode. */ if (tcgetattr(fo->fd, &tio) < 0) { @@ -88,6 +91,7 @@ StgInt size; return -1; } } +#endif return 0; case SB_LB: fo->flags &= ~FILEOBJ_BB; @@ -123,6 +127,7 @@ StgInt size; } fo->bufSize = size; } +#ifndef mingw32_TARGET_OS if (isaterm) { /* @@ -141,6 +146,7 @@ StgInt size; return -1; } } +#endif return 0; } |