summaryrefslogtreecommitdiff
path: root/rts/win32
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2012-05-06 15:54:13 +0100
committerIan Lynagh <igloo@earth.li>2012-05-06 15:54:13 +0100
commitf09812ded085223d3f9dcb50c2c9cdc912984844 (patch)
tree8114495cdb822c97e0d40d8a49baf8b637ecb290 /rts/win32
parent5872bf5965d591536d7d9c9f9023c4966ac6ec31 (diff)
downloadhaskell-f09812ded085223d3f9dcb50c2c9cdc912984844.tar.gz
Fix RTS DLL references on Win64
Diffstat (limited to 'rts/win32')
-rw-r--r--rts/win32/ThrIOManager.c4
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