/* -----------------------------------------------------------------------------
- * $Id: RtsStartup.c,v 1.31 2000/03/08 17:48:24 simonmar Exp $
+ * $Id: RtsStartup.c,v 1.32 2000/03/09 11:49:34 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
#endif
/* run the per-module initialisation code */
+#if !defined(INTERPRETER)
initModules();
+#endif
#if defined(PROFILING) || defined(DEBUG)
initProfiling2();
StgRun to call this stuff.
-------------------------------------------------------------------------- */
+#ifndef INTERPRETER
+
/* The init functions use an explicit stack...
*/
#define INIT_STACK_SIZE (BLOCK_SIZE * 4)
StgRun((StgFunPtr)stg_init, NULL/* no reg table */);
}
+#endif /* !INTERPRETER */
+
/* -----------------------------------------------------------------------------
* Shutting down the RTS - two ways of doing this, one which
* calls exit(), one that doesn't.
/* -----------------------------------------------------------------------------
- * $Id: StgStartup.hc,v 1.6 2000/03/08 17:48:24 simonmar Exp $
+ * $Id: StgStartup.hc,v 1.7 2000/03/09 11:49:34 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
/* -----------------------------------------------------------------------------
Special STG entry points for module registration.
+
+ This stuff is problematic for Hugs, because it introduces a
+ dependency between the RTS and the program (ie. __init_Main). So
+ we currently disable module initialisation for Hugs.
-------------------------------------------------------------------------- */
+#ifndef INTERPRETER
+
STGFUN(stg_init_ret)
{
FB_
START_MOD_INIT(__init_PrelGHC);
END_MOD_INIT();
+
+#endif /* !INTERPRETER */