diff options
| author | simonmar <unknown> | 2001-07-31 11:51:09 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-07-31 11:51:09 +0000 |
| commit | 6d51c891e082dc04de0f3563929cda9925d18924 (patch) | |
| tree | 51013cba9e8f7b0f3ca57167b573c941a9aca228 /libraries/base/cbits/writeError.c | |
| parent | c5175d4c25564f61f6f24811c813b550b5b82e45 (diff) | |
| download | haskell-6d51c891e082dc04de0f3563929cda9925d18924.tar.gz | |
[project @ 2001-07-31 11:51:09 by simonmar]
Catch up with changes in the main tree.
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) { |