+ stat_endInit();
+}
+
+// Compatibility interface
+void
+startupHaskell(int argc, char *argv[], void (*init_root)(void))
+{
+ hs_init(&argc, &argv);
+ hs_add_root(init_root);
+}
+
+
+/* -----------------------------------------------------------------------------
+ Getting the program's arguments.
+
+ This is used by System.Environment.getArgs.
+ -------------------------------------------------------------------------- */
+
+void
+getProgArgv(int *argc, char **argv[])
+{
+ *argc = prog_argc;
+ *argv = prog_argv;