-/*
- * (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
*/
#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;
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;