diff options
Diffstat (limited to 'libraries/base/cbits/writeError.c')
| -rw-r--r-- | libraries/base/cbits/writeError.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/libraries/base/cbits/writeError.c b/libraries/base/cbits/writeError.c index 9f1f1924fe..e4f0247388 100644 --- a/libraries/base/cbits/writeError.c +++ b/libraries/base/cbits/writeError.c @@ -1,7 +1,7 @@ /* * (c) The GRASP/AQUA Project, Glasgow University, 1998 * - * $Id: writeError.c,v 1.1 2001/06/28 14:15:04 simonmar Exp $ + * $Id: writeError.c,v 1.2 2001/07/31 11:51:09 simonmar Exp $ * * hPutStr Runtime Support */ @@ -20,12 +20,6 @@ implementation in one or two places.) #include "RtsUtils.h" #include "HsCore.h" -HsAddr -addrOf_ErrorHdrHook(void) -{ - return &ErrorHdrHook; -} - void writeErrString__ (HsAddr msg_hdr, HsAddr msg, HsInt len) { @@ -33,7 +27,9 @@ writeErrString__ (HsAddr msg_hdr, HsAddr msg, HsInt len) char* p = (char*)msg; char nl = '\n'; +#ifndef DLLized resetNonBlockingFd(2); +#endif /* Print error msg header */ if (msg_hdr) { |