projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-01-28 16:09:06 by malcolm]
[ghc-base.git]
/
cbits
/
writeError.c
diff --git
a/cbits/writeError.c
b/cbits/writeError.c
index
9f1f192
..
a5cd700
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.6 2004/02/12 21:23:49 krasimir Exp $
*
* hPutStr Runtime Support
*/
*
* hPutStr Runtime Support
*/
@@
-18,27
+18,18
@@
implementation in one or two places.)
#include "Rts.h"
#include "RtsUtils.h"
#include "Rts.h"
#include "RtsUtils.h"
-#include "HsCore.h"
-
-HsAddr
-addrOf_ErrorHdrHook(void)
-{
- return &ErrorHdrHook;
-}
+#include "HsBase.h"
void
void
-writeErrString__ (HsAddr msg_hdr, HsAddr msg, HsInt len)
+writeErrString__(HsAddr msg, HsInt len)
{
int count = 0;
char* p = (char*)msg;
char nl = '\n';
{
int count = 0;
char* p = (char*)msg;
char nl = '\n';
+#ifndef DLLized
resetNonBlockingFd(2);
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 ) {
while ( (count = write(2,p,len)) < len) {
if (errno != EINTR ) {