diff options
| author | Johan Tibell <johan.tibell@gmail.com> | 2010-07-24 10:23:55 +0000 |
|---|---|---|
| committer | Johan Tibell <johan.tibell@gmail.com> | 2010-07-24 10:23:55 +0000 |
| commit | 401140734891ca804c336122581743251d61b3a6 (patch) | |
| tree | 67dcaaf1945f3cb12b04cd31a2083c20f6cbc94f /rts/win32 | |
| parent | 0cbdc7b1bd76c61ad31a14a43398ae05ce138489 (diff) | |
| download | haskell-401140734891ca804c336122581743251d61b3a6.tar.gz | |
Integrate new I/O manager, with signal support
Diffstat (limited to 'rts/win32')
| -rw-r--r-- | rts/win32/ThrIOManager.c | 4 | ||||
| -rw-r--r-- | rts/win32/libHSbase.def | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c index 054f568e00..f48b20387e 100644 --- a/rts/win32/ThrIOManager.c +++ b/rts/win32/ThrIOManager.c @@ -153,9 +153,9 @@ ioManagerStart (void) 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);
+ rts_evalIO(cap,_imp__base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
#else
- rts_evalIO(cap,&base_GHCziConc_ensureIOManagerIsRunning_closure,NULL);
+ rts_evalIO(cap,&base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
#endif
rts_unlock(cap);
}
diff --git a/rts/win32/libHSbase.def b/rts/win32/libHSbase.def index 8f5f54e2d4..b5c8a37070 100644 --- a/rts/win32/libHSbase.def +++ b/rts/win32/libHSbase.def @@ -27,8 +27,8 @@ EXPORTS base_GHCziPtr_Ptr_con_info base_GHCziPtr_FunPtr_con_info - base_GHCziConc_ensureIOManagerIsRunning_closure - base_GHCziConc_runSparks_closure + base_GHCziConcziIO_ensureIOManagerIsRunning_closure + base_GHCziConcziSync_runSparks_closure base_GHCziWeak_runFinalizzerBatch_closure base_GHCziPack_unpackCString_closure |