diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-03-18 16:30:25 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-03-18 16:30:25 +0000 |
| commit | d879a5a8517b511733406049d46d6df5af20a15b (patch) | |
| tree | d0600a6f67b06ecf05d48b60e07ef7af5ec6775d /rts/win32 | |
| parent | 45740c29b24ea78b885d3b9f737a8bdc00265f7c (diff) | |
| download | haskell-d879a5a8517b511733406049d46d6df5af20a15b.tar.gz | |
Fixes for the threaded RTS on Win64
Diffstat (limited to 'rts/win32')
| -rw-r--r-- | rts/win32/ThrIOManager.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c index bad621ced6..afcdc19d27 100644 --- a/rts/win32/ThrIOManager.c +++ b/rts/win32/ThrIOManager.c @@ -152,7 +152,7 @@ ioManagerStart (void) Capability *cap;
if (io_manager_event == INVALID_HANDLE_VALUE) {
cap = rts_lock();
-#if defined(mingw32_HOST_OS) && defined(__PIC__)
+#if defined(mingw32_HOST_OS) && defined(i386_HOST_Arch) && defined(__PIC__)
rts_evalIO(&cap,_imp__base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
#else
rts_evalIO(&cap,&base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
|