Add a dummy function _ErrorHdrHook to return the address of ErrorHdrHook.
Dunno how this ever compiled before. Maybe this is just a special Friday
effect. Maybe I shouldn't be committing stuff today. Maybe I should just
give up now.
-- -----------------------------------------------------------------------------
--- $Id: PrelTopHandler.lhs,v 1.4 2001/08/15 09:24:19 rrt Exp $
+-- $Id: PrelTopHandler.lhs,v 1.5 2001/08/17 11:13:04 rrt Exp $
--
-- (c) The University of Glasgow, 2001
--
#ifndef ILX
foreign label "ErrorHdrHook" errorHdrHook :: Ptr ()
#else
-foreign import "ErrorHdrHook" errorHdrHook :: Ptr ()
+foreign import "_ErrorHdrHook" errorHdrHook :: Ptr ()
#endif
foreign import ccall "writeErrString__" unsafe
/*
* (c) The GHC Team 2001
*
- * $Id: ilxstubs.c,v 1.4 2001/08/15 10:16:46 rrt Exp $
+ * $Id: ilxstubs.c,v 1.5 2001/08/17 11:13:04 rrt Exp $
*
* ILX stubs for external function calls
*/
{
}
+void *
+_ErrorHdrHook(void)
+{
+ return &ErrorHdrHook;
+}
+
void
-ErrorHdrHook (long fd)
+ErrorHdrHook(long fd)
{
const char msg[] = "\nFail: ";
write(fd, msg, sizeof(msg)-1);