diff options
| author | Clemens Fruhwirth <clemens@endorphin.org> | 2008-10-13 20:16:08 +0000 |
|---|---|---|
| committer | Clemens Fruhwirth <clemens@endorphin.org> | 2008-10-13 20:16:08 +0000 |
| commit | 2f591deaf56c0361334c1fa1081d50bd9fb58883 (patch) | |
| tree | e3e4a09274cd345b86119bc0b4e9453f7b445564 /rts/win32/ThrIOManager.c | |
| parent | c7b676957a65e54bc3d5722f04468658df7704e3 (diff) | |
| download | haskell-2f591deaf56c0361334c1fa1081d50bd9fb58883.tar.gz | |
Build fixes for DLLized rts
Diffstat (limited to 'rts/win32/ThrIOManager.c')
| -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 a74aac12d7..e2310ef9f3 100644 --- a/rts/win32/ThrIOManager.c +++ b/rts/win32/ThrIOManager.c @@ -137,7 +137,11 @@ ioManagerStart (void) Capability *cap;
if (io_manager_event == INVALID_HANDLE_VALUE) {
cap = rts_lock();
+#if defined(mingw32_HOST_OS) && defined(__PIC__)
+ rts_evalIO(cap,_imp__base_GHCziConc_ensureIOManagerIsRunning_closure,NULL);
+#else
rts_evalIO(cap,&base_GHCziConc_ensureIOManagerIsRunning_closure,NULL);
+#endif
rts_unlock(cap);
}
}
|