Commit dac8c9b9 authored by simonmar's avatar simonmar

[project @ 2000-03-09 11:49:34 by simonmar]

Disable module initialisation under Hugs until we can sort out the
hairy linking issues.
parent c1556b84
/* -----------------------------------------------------------------------------
* $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
*
......@@ -133,7 +133,9 @@ startupHaskell(int argc, char *argv[])
#endif
/* run the per-module initialisation code */
#if !defined(INTERPRETER)
initModules();
#endif
#if defined(PROFILING) || defined(DEBUG)
initProfiling2();
......@@ -203,6 +205,8 @@ startupHaskell(int argc, char *argv[])
StgRun to call this stuff.
-------------------------------------------------------------------------- */
#ifndef INTERPRETER
/* The init functions use an explicit stack...
*/
#define INIT_STACK_SIZE (BLOCK_SIZE * 4)
......@@ -219,6 +223,8 @@ initModules ( void )
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
*
......@@ -129,8 +129,14 @@ STGFUN(stg_enterStackTop)
/* -----------------------------------------------------------------------------
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_
......@@ -153,3 +159,5 @@ STGFUN(stg_init)
START_MOD_INIT(__init_PrelGHC);
END_MOD_INIT();
#endif /* !INTERPRETER */
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment