[project @ 2005-01-28 23:33:57 by krasimir]

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

diff --git a/cbits/writeError.c b/cbits/writeError.c
deleted file mode 100644 (file)
index a5cd700..0000000
--- a/cbits/writeError.c
+++ /dev/null
@@ -1,42 +0,0 @@
-/*
- * (c) The University of Glasgow 2002
- *
- * $Id: writeError.c,v 1.6 2004/02/12 21:23:49 krasimir Exp $
- *
- * hPutStr Runtime Support
- */
-
-/*
-Writing out error messages. This is done outside Haskell
-(i.e., no use of the IO implementation is made), since it
-might be in an unstable state (e.g., hClose stderr >> error "foo")
-
-(A secondary reason is that ``error'' is used by the IO
-implementation in one or two places.)
-
-*/
-
-#include "Rts.h"
-#include "RtsUtils.h"
-#include "HsBase.h"
-
-void
-writeErrString__(HsAddr msg, HsInt len)
-{
-  int count = 0;
-  char* p  = (char*)msg;
-  char  nl = '\n';
-
-#ifndef DLLized
-  resetNonBlockingFd(2);
-#endif
-
-  while ( (count = write(2,p,len)) < len) {
-     if (errno != EINTR ) {
-        return;
-     }
-     len -= count;
-     p   += count;
-  }
-  write(2, &nl, 1);
-}