[project @ 2001-12-20 17:38:40 by sewardj]

[ghc-hetmet.git] / ghc / lib / std / cbits / ilxstubs.c

diff --git a/ghc/lib/std/cbits/ilxstubs.c b/ghc/lib/std/cbits/ilxstubs.c
index 1a3e473..1f45e3a 100644 (file)
--- a/ghc/lib/std/cbits/ilxstubs.c
+++ b/ghc/lib/std/cbits/ilxstubs.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GHC Team 2001
  *
- * $Id: ilxstubs.c,v 1.2 2001/07/16 09:23:24 rrt Exp $
+ * $Id: ilxstubs.c,v 1.5 2001/08/17 11:13:04 rrt Exp $
  *
  * ILX stubs for external function calls
  */
@@ -29,10 +29,7 @@
     /* StgPrimFloat Add to mini-RTS, which is put in a DLL */
 
     /* Need to be implemented in ILX RTS */
-     /*foreign label "prog_argv" prog_argv_label :: Ptr (Ptr (Ptr CChar))
-foreign label "prog_argc" prog_argc_label :: Ptr CInt
-foreign label "ErrorHdrHook" errorHdrHook :: Ptr ()
-../PrelStable.lhs:37:foreign import unsafe freeStablePtr :: StablePtr a -> IO ()
+/*../PrelStable.lhs:37:foreign import unsafe freeStablePtr :: StablePtr a -> IO ()
 ../PrelTopHandler.lhs:49:foreign import ccall "shutdownHaskellAndExit" 
 ../PrelTopHandler.lhs:77:foreign import ccall "stackOverflow" unsafe
 ../PrelTopHandler.lhs:80:foreign import ccall "stg_exit" unsafe */
@@ -62,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);