diff options
Diffstat (limited to 'testsuite/tests/dynlibs/T4464B.c')
-rw-r--r-- | testsuite/tests/dynlibs/T4464B.c | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/tests/dynlibs/T4464B.c b/testsuite/tests/dynlibs/T4464B.c new file mode 100644 index 0000000000..0cd2845895 --- /dev/null +++ b/testsuite/tests/dynlibs/T4464B.c @@ -0,0 +1,21 @@ + +#include <Rts.h> + +extern void __stginit_T4464H(void); + +void HsStart(void) { + int argc = 3; + char* argv[] = {"ghcDll", "+RTS", "-H50M", NULL}; // argv must end with NULL + + // Initialize Haskell runtime + char** args = argv; + hs_init(&argc, &args); + + // Tell Haskell about all root modules + hs_add_root(__stginit_T4464H); +} + +void HsEnd(void) { + hs_exit(); +} + |