/* ----------------------------------------------------------------------------
- * $Id: RtsAPI.h,v 1.19 2001/01/11 17:25:56 simonmar Exp $
+ * $Id: RtsAPI.h,v 1.20 2001/02/09 12:09:33 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
/* ----------------------------------------------------------------------------
Starting up and shutting down the Haskell RTS.
------------------------------------------------------------------------- */
-extern void startupHaskell ( int argc, char *argv[], void *init_root );
+extern void startupHaskell ( int argc, char *argv[],
+ void (*init_root)(void) );
extern void shutdownHaskell ( void );
extern void shutdownHaskellAndExit ( int exitCode );
extern void setProgArgv ( int argc, char *argv[] );
/* -----------------------------------------------------------------------------
- * $Id: RtsStartup.c,v 1.46 2000/12/19 14:30:58 simonmar Exp $
+ * $Id: RtsStartup.c,v 1.47 2001/02/09 12:09:33 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
#endif
EXTFUN(__init_Prelude);
-static void initModules ( void * );
+static void initModules ( void (*)(void) );
void
setProgArgv(int argc, char *argv[])
void
-startupHaskell(int argc, char *argv[], void *init_root)
+startupHaskell(int argc, char *argv[], void (*init_root)(void))
{
/* To avoid repeated initialisations of the RTS */
if (rts_has_started_up)
#ifndef INTERPRETER
static void
-initModules ( void *init_root )
+initModules ( void (*init_root)(void) )
{
#ifdef SMP
Capability cap;