[commit: ghc] ghc-7.4: Fix a real bug, exposed by my recent change to the rts_evalIO() API. Yay! (62d4fa7)

[Ian Lynagh]

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

On branch  : ghc-7.4

http://hackage.haskell.org/trac/ghc/changeset/62d4fa7a3fd0f02df6024588caf5d7bb820905a3

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

commit 62d4fa7a3fd0f02df6024588caf5d7bb820905a3
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);
     }