[commit: ghc] master: Small refactoring; patch from nus (097f723)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/097f723255ef1aef1afaed33c32f503db3ab21f5

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

commit 097f723255ef1aef1afaed33c32f503db3ab21f5
Author: Ian Lynagh <igloo at earth.li>
Date:   Sat Feb 16 20:22:00 2013 +0000

    Small refactoring; patch from nus

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

 rts/win32/ThrIOManager.c |   10 +---------
 1 files changed, 1 insertions(+), 9 deletions(-)

diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c
index 41a1505..8557c23 100644
--- a/rts/win32/ThrIOManager.c
+++ b/rts/win32/ThrIOManager.c
@@ -152,15 +152,7 @@ ioManagerStart (void)
     Capability *cap;
     if (io_manager_event == INVALID_HANDLE_VALUE) {
 	cap = rts_lock();
-#if defined(COMPILING_WINDOWS_DLL)
-#  if defined(x86_64_HOST_ARCH)
-        rts_evalIO(&cap,__imp_base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
-#  else
-        rts_evalIO(&cap,_imp__base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
-#  endif
-#else
-        rts_evalIO(&cap,&base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
-#endif
+        rts_evalIO(&cap,DLL_IMPORT_DATA_REF(base_GHCziConcziIO_ensureIOManagerIsRunning_closure),NULL);
 	rts_unlock(cap);
     }
 }