diff options
| author | Ian Lynagh <igloo@earth.li> | 2013-02-16 20:22:00 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2013-02-16 20:22:00 +0000 |
| commit | 097f723255ef1aef1afaed33c32f503db3ab21f5 (patch) | |
| tree | 6103f144ac2312bac636123637fa1889dc124fd8 /rts/win32 | |
| parent | c39d3154d39571879bc44db1121fa255d6c84569 (diff) | |
| download | haskell-097f723255ef1aef1afaed33c32f503db3ab21f5.tar.gz | |
Small refactoring; patch from nus
Diffstat (limited to 'rts/win32')
| -rw-r--r-- | rts/win32/ThrIOManager.c | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c index 41a1505de0..8557c23442 100644 --- a/rts/win32/ThrIOManager.c +++ b/rts/win32/ThrIOManager.c @@ -152,15 +152,7 @@ ioManagerStart (void) Capability *cap;
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
+ rts_evalIO(&cap,DLL_IMPORT_DATA_REF(base_GHCziConcziIO_ensureIOManagerIsRunning_closure),NULL);
rts_unlock(cap);
}
}
|