diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-12-09 10:28:31 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-12-09 12:58:09 +0000 |
| commit | 4bc413de1dbe7ca6d3d521ab9044d9c1cbf6fd5b (patch) | |
| tree | 4925ba2d865caa8b90f142ab0dab6995d87c95f9 | |
| parent | 18d339146a9e068d3009865482c58d93c21f6257 (diff) | |
| download | haskell-4bc413de1dbe7ca6d3d521ab9044d9c1cbf6fd5b.tar.gz | |
Fix a real bug, exposed by my recent change to the rts_evalIO() API. Yay!
| -rw-r--r-- | rts/win32/ThrIOManager.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c index f48b20387e..bad621ced6 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_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
+ rts_evalIO(&cap,_imp__base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
#else
- rts_evalIO(cap,&base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
+ rts_evalIO(&cap,&base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
#endif
rts_unlock(cap);
}
|