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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/27402ecad9fcb6c696b8f495354954fd1f1861e9

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

commit 27402ecad9fcb6c696b8f495354954fd1f1861e9
Author: Ian Lynagh <[email protected]>
Date:   Tue Mar 20 14:52:53 2012 +0000

    Fix the Win32 build: A CPP symbol name was wrong

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

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

diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c
index afcdc19..9561ea6 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();
-#if defined(mingw32_HOST_OS) && defined(i386_HOST_Arch) && defined(__PIC__)
+#if defined(mingw32_HOST_OS) && defined(i386_HOST_ARCH) && defined(__PIC__)
         
rts_evalIO(&cap,_imp__base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);
 #else
         
rts_evalIO(&cap,&base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL);



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to