Distinguish between hs-main cases when giving rtsopts advice.

[ghc.git] / includes / RtsAPI.h

diff --git a/includes/RtsAPI.h b/includes/RtsAPI.h
index ca87662..018b581 100644 (file)
--- a/includes/RtsAPI.h
+++ b/includes/RtsAPI.h
@@ -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"