[project @ 2004-02-04 17:13:53 by ross]

[ghc-base.git] / cbits / writeError.c

diff --git a/cbits/writeError.c b/cbits/writeError.c
index 9f1f192..d3a3b4b 100644 (file)
--- a/cbits/writeError.c
+++ b/cbits/writeError.c
@@ -1,7 +1,7 @@
 /* 
- * (c) The GRASP/AQUA Project, Glasgow University, 1998
+ * (c) The University of Glasgow 2002
  *
- * $Id: writeError.c,v 1.1 2001/06/28 14:15:04 simonmar Exp $
+ * $Id: writeError.c,v 1.5 2002/02/07 11:13:30 simonmar Exp $
  *
  * hPutStr Runtime Support
  */
@@ -18,22 +18,18 @@ implementation in one or two places.)
 
 #include "Rts.h"
 #include "RtsUtils.h"
-#include "HsCore.h"
-
-HsAddr
-addrOf_ErrorHdrHook(void)
-{
-  return &ErrorHdrHook;
-}
+#include "HsBase.h"
 
 void
-writeErrString__ (HsAddr msg_hdr, HsAddr msg, HsInt len)
+writeErrString__(HsAddr msg_hdr, HsAddr msg, HsInt len)
 {
   int count = 0;
   char* p  = (char*)msg;
   char  nl = '\n';
 
+#ifndef DLLized
   resetNonBlockingFd(2);
+#endif
 
   /* Print error msg header */
   if (msg_hdr) {