X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=cbits%2Filxstubs.c;h=ab3f84b3419754c1871c948b05d6825f417fa77e;hb=97de8ea4019dfb70551c2b6b023b19ca53a1c576;hp=ae60ab757335b6f144e47728e0f859aa9bf75e46;hpb=7c9adc298ab83c7792eb82c268023871e2e4ca78;p=ghc-base.git

diff --git a/cbits/ilxstubs.c b/cbits/ilxstubs.c
index ae60ab7..ab3f84b 100644
--- a/cbits/ilxstubs.c
+++ b/cbits/ilxstubs.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GHC Team 2001
  *
- * $Id: ilxstubs.c,v 1.1 2001/08/17 12:47:10 simonmar Exp $
+ * $Id: ilxstubs.c,v 1.2 2001/12/21 15:07:26 simonmar Exp $
  *
  * ILX stubs for external function calls
  */
@@ -59,8 +59,14 @@ stackOverflow(void)
 {
 }
 
+void *
+_ErrorHdrHook(void)
+{
+  return &ErrorHdrHook;
+}
+
 void
-ErrorHdrHook (long fd)
+ErrorHdrHook(long fd)
 {
     const char msg[] = "\nFail: ";
     write(fd, msg, sizeof(msg)-1);