# include "LLC.h"
#endif
-#if defined(mingw32_TARGET_OS)
+#if defined(mingw32_HOST_OS)
#include "win32/AsyncIO.h"
#endif
/* Parse the flags, separating the RTS flags from the programs args */
if (argc != NULL && argv != NULL) {
setupRtsFlags(argc, *argv, &rts_argc, rts_argv);
- prog_argc = *argc;
- prog_argv = *argv;
+ setProgArgv(*argc,*argv);
}
#if defined(PAR)
initDefaultHandlers();
#endif
-#if defined(mingw32_TARGET_OS)
+#if defined(mingw32_HOST_OS)
startupAsyncIO();
#endif
/* -----------------------------------------------------------------------------
- Getting/Setting the program's arguments.
-
- These are used by System.Environment.
- -------------------------------------------------------------------------- */
-
-void
-getProgArgv(int *argc, char **argv[])
-{
- if (argc) { *argc = prog_argc; }
- if (argv) { *argv = prog_argv; }
-}
-
-void
-setProgArgv(int argc, char *argv[])
-{
- /* Usually this is done by startupHaskell, so we don't need to call this.
- However, sometimes Hugs wants to change the arguments which Haskell
- getArgs >>= ... will be fed. So you can do that by calling here
- _after_ calling startupHaskell.
- */
- prog_argc = argc;
- prog_argv = argv;
-}
-
-/* -----------------------------------------------------------------------------
Per-module initialisation
This process traverses all the compiled modules in the program
if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo();
#endif
-#if defined(mingw32_TARGET_OS)
+#if defined(mingw32_HOST_OS)
shutdownAsyncIO();
#endif
}