/*
* (c) The GRASP/AQUA Project, Glasgow University, 1998
*
- * $Id: writeError.c,v 1.2 1998/12/02 13:28:05 simonm Exp $
+ * $Id: writeError.c,v 1.3 1999/11/05 15:22:59 simonmar Exp $
*
* hPutStr Runtime Support
*/
#include "Rts.h"
#include "stgio.h"
+#ifdef HAVE_FCNTL_H
+#include <fcntl.h>
+#endif
+
void
writeErrString__ (msg_hdr, msg, len)
StgAddr msg_hdr;
int count = 0;
char* p = (char*)msg;
char nl = '\n';
+ long fd_flags;
+
+#if !defined(_WIN32) || defined(__CYGWIN__) || defined(__CYGWIN32__)
+ /* clear the non-blocking flag on this file descriptor */
+ fd_flags = fcntl(2, F_GETFL);
+ fcntl(2, F_SETFL, fd_flags & ~O_NONBLOCK);
+#endif
/* Print error msg header */
if (msg_hdr) {