#include "RtsAPI.h"
#include "RtsUtils.h"
#include "RtsFlags.h"
+#include "OSThreads.h"
#include "Storage.h" /* initStorage, exitStorage */
#include "Schedule.h" /* initScheduler */
#include "Stats.h" /* initStats */
#include <stdlib.h>
-#ifdef HAVE_LOCALE_H
-#include <locale.h>
-#endif
-
#ifdef HAVE_TERMIOS_H
#include <termios.h>
#endif
/* -----------------------------------------------------------------------------
Initialise floating point unit on x86 (currently disabled. why?)
+ (see comment in ghc/compiler/nativeGen/MachInstrs.lhs).
-------------------------------------------------------------------------- */
#define X86_INIT_FPU 0
}
#endif
-#ifdef HAVE_LOCALE_H
- setlocale(LC_CTYPE,"");
-#endif
-
#if X86_INIT_FPU
x86_init_fpu();
#endif
startupHaskell(int argc, char *argv[], void (*init_root)(void))
{
hs_init(&argc, &argv);
- hs_add_root(init_root);
+ if(init_root)
+ hs_add_root(init_root);
}