From cb9eb0747cb4f0924ba774649b365e7fd25fab6a Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 1 Mar 1999 09:26:45 +0000
Subject: [PATCH] [project @ 1999-03-01 09:26:45 by sof] mingw32: stay well
clear of any tty stuff - just don't have support for it.
---
ghc/lib/std/cbits/setBuffering.c | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/ghc/lib/std/cbits/setBuffering.c b/ghc/lib/std/cbits/setBuffering.c
index 1fa63324fa69..2aa451c6169e 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;
}
--
GitLab