[commit: ghc] master: Simplify some code; patch from Bill Tutt (8d1e91a)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/8d1e91a95caa6362a98e214424a2ca109e0a6df6

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

commit 8d1e91a95caa6362a98e214424a2ca109e0a6df6
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Feb 17 15:11:55 2013 +0000

    Simplify some code; patch from Bill Tutt

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

 rts/Schedule.c           |    5 +----
 rts/win32/ThrIOManager.c |    2 +-
 2 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/rts/Schedule.c b/rts/Schedule.c
index ea779dd..b32c1e5 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2068,10 +2068,7 @@ setNumCapabilities (nat new_n_capabilities USED_IF_THREADS)
     }
 
     // Notify IO manager that the number of capabilities has changed.
-    rts_evalIO(
-       &cap,
-       DLL_IMPORT_DATA_REF(base_GHCziConcziIO_ioManagerCapabilitiesChanged_closure),
-       NULL);
+    rts_evalIO(&cap, ioManagerCapabilitiesChanged_closure, NULL);
 
     rts_unlock(cap);
 
diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c
index 4a76c30..c497401 100644
--- a/rts/win32/ThrIOManager.c
+++ b/rts/win32/ThrIOManager.c
@@ -152,7 +152,7 @@ ioManagerStart (void)
     Capability *cap;
     if (io_manager_event == INVALID_HANDLE_VALUE) {
 	cap = rts_lock();
-        rts_evalIO(&cap,DLL_IMPORT_DATA_REF(base_GHCziConcziIO_ensureIOManagerIsRunning_closure),NULL);
+        rts_evalIO(&cap,ensureIOManagerIsRunning_closure,NULL);
 	rts_unlock(cap);
     }
 }