X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=cbits%2FwriteError.c;h=a5cd7004adca5aac4e00817d207bf01dbd9a5975;hb=5505736fa4594514aab2b3ea8b15171e8349b91e;hp=2ab4ce929f9d726a3d82957e67c8efc35f6dfe99;hpb=260e7f2ed9a43c6ecf5a556d77817f39ed2893ab;p=ghc-base.git

diff --git a/cbits/writeError.c b/cbits/writeError.c
index 2ab4ce9..a5cd700 100644
--- 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.3 2001/12/21 15:07:26 simonmar Exp $
+ * $Id: writeError.c,v 1.6 2004/02/12 21:23:49 krasimir Exp $
  *
  * hPutStr Runtime Support
  */
@@ -18,12 +18,10 @@ implementation in one or two places.)
 
 #include "Rts.h"
 #include "RtsUtils.h"
-#include "HsCore.h"
-
-#include "PrelIOUtils.h"
+#include "HsBase.h"
 
 void
-writeErrString__(HsAddr msg_hdr, HsAddr msg, HsInt len)
+writeErrString__(HsAddr msg, HsInt len)
 {
   int count = 0;
   char* p  = (char*)msg;
@@ -33,11 +31,6 @@ writeErrString__(HsAddr msg_hdr, HsAddr msg, HsInt len)
   resetNonBlockingFd(2);
 #endif
 
-  /* Print error msg header */
-  if (msg_hdr) {
-    ((void (*)(int))msg_hdr)(2/*stderr*/);
-  }
-
   while ( (count = write(2,p,len)) < len) {
      if (errno != EINTR ) {
         return;