[commit: ghc] master: Fix a real bug, exposed by my recent change to the rts_evalIO() API. Yay! (4bc413d)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/4bc413de1dbe7ca6d3d521ab9044d9c1cbf6fd5b

>---------------------------------------------------------------

commit 4bc413de1dbe7ca6d3d521ab9044d9c1cbf6fd5b
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Fri Dec 9 10:28:31 2011 +0000

    Fix a real bug, exposed by my recent change to the rts_evalIO() API.  Yay!

>---------------------------------------------------------------

 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 f48b203..bad621c 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);
     }