From: panne <unknown>
Date: Mon, 1 May 2000 14:44:25 +0000 (+0000)
Subject: [project @ 2000-05-01 14:44:25 by panne]
X-Git-Tag: Approximately_9120_patches~4568
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=97266903ff92a270243a05bfb4e9f9d008faff25;p=ghc-hetmet.git

[project @ 2000-05-01 14:44:25 by panne]
The NCG doesn't like `foreign label' yet, so addrOf_ErrorHdrHook is a
C function now.
---

diff --git a/ghc/lib/std/cbits/writeError.c b/ghc/lib/std/cbits/writeError.c
index 59aa2b2..2072b69 100644
--- a/ghc/lib/std/cbits/writeError.c
+++ b/ghc/lib/std/cbits/writeError.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1998
  *
- * $Id: writeError.c,v 1.4 1999/11/09 10:46:27 simonmar Exp $
+ * $Id: writeError.c,v 1.5 2000/05/01 14:44:25 panne Exp $
  *
  * hPutStr Runtime Support
  */
@@ -24,6 +24,12 @@ implementation in one or two places.)
 #include <fcntl.h>
 #endif
 
+StgAddr
+addrOf_ErrorHdrHook(void)
+{
+  return &ErrorHdrHook;
+}
+
 void
 writeErrString__ (msg_hdr, msg, len)
 StgAddr msg_hdr;