diff options
author | Ian Lynagh <igloo@earth.li> | 2012-05-06 15:54:13 +0100 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2012-05-06 15:54:13 +0100 |
commit | f09812ded085223d3f9dcb50c2c9cdc912984844 (patch) | |
tree | 8114495cdb822c97e0d40d8a49baf8b637ecb290 /rts/win32 | |
parent | 5872bf5965d591536d7d9c9f9023c4966ac6ec31 (diff) | |
download | haskell-f09812ded085223d3f9dcb50c2c9cdc912984844.tar.gz |
Fix RTS DLL references on Win64
Diffstat (limited to 'rts/win32')
-rw-r--r-- | rts/win32/ThrIOManager.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c index 234d4dcfe4..41a1505de0 100644 --- a/rts/win32/ThrIOManager.c +++ b/rts/win32/ThrIOManager.c @@ -153,7 +153,11 @@ ioManagerStart (void) if (io_manager_event == INVALID_HANDLE_VALUE) {
cap = rts_lock();
#if defined(COMPILING_WINDOWS_DLL)
+# if defined(x86_64_HOST_ARCH)
+ rts_evalIO(&cap,__imp_base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
+# else
rts_evalIO(&cap,_imp__base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
+# endif
#else
rts_evalIO(&cap,&base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
#endif
|