X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=cbits%2FwriteError.c;h=a5cd7004adca5aac4e00817d207bf01dbd9a5975;hb=5505736fa4594514aab2b3ea8b15171e8349b91e;hp=9f1f1924fef856b2f9ae88fb4baa1aa9c79caee0;hpb=7f1f4e7a695c402ddd3a1dc2cc7114e649a78ebc;p=ghc-base.git diff --git a/cbits/writeError.c b/cbits/writeError.c index 9f1f192..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.1 2001/06/28 14:15:04 simonmar Exp $ + * $Id: writeError.c,v 1.6 2004/02/12 21:23:49 krasimir Exp $ * * hPutStr Runtime Support */ @@ -18,27 +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, HsInt len) { int count = 0; char* p = (char*)msg; char nl = '\n'; +#ifndef DLLized resetNonBlockingFd(2); - - /* Print error msg header */ - if (msg_hdr) { - ((void (*)(int))msg_hdr)(2/*stderr*/); - } +#endif while ( (count = write(2,p,len)) < len) { if (errno != EINTR ) {