Document -floopification flag in user guide
[ghc.git] / includes / RtsAPI.h
index 7f41ebc..018b581 100644 (file)
@@ -62,6 +62,7 @@ typedef enum {
 typedef struct {
     RtsOptsEnabledEnum rts_opts_enabled;
     const char *rts_opts;
+    HsBool rts_hs_main;
 } RtsConfig;
 
 // Clients should start with defaultRtsConfig and then customise it.
@@ -80,6 +81,10 @@ extern void startupHaskell         ( int argc, char *argv[],
 /* DEPRECATED, use hs_exit() instead  */
 extern void shutdownHaskell        ( void );
 
+/* Like hs_init(), but allows rtsopts. For more complicated usage,
+ * use hs_init_ghc. */
+extern void hs_init_with_rtsopts (int *argc, char **argv[]);
+
 /*
  * GHC-specific version of hs_init() that allows specifying whether
  * +RTS ... -RTS options are allowed or not (default: only "safe"
@@ -232,7 +237,7 @@ SchedulerStatus rts_getSchedStatus (Capability *cap);
 //     Note that RtsAPI.h is also included by foreign export stubs in
 //     the base package itself.
 //
-#if defined(mingw32_HOST_OS) && defined(i386_HOST_ARCH) && defined(__PIC__) && !defined(COMPILING_BASE_PACKAGE)
+#if defined(COMPILING_WINDOWS_DLL) && !defined(COMPILING_BASE_PACKAGE)
 __declspec(dllimport) extern StgWord base_GHCziTopHandler_runIO_closure[];
 __declspec(dllimport) extern StgWord base_GHCziTopHandler_runNonIO_closure[];
 #else