/* -----------------------------------------------------------------------------
- * $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;