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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/e4744cd4bc68127f4af6d9afca5d4deae7255122

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

commit e4744cd4bc68127f4af6d9afca5d4deae7255122
Author: Ian Lynagh <[email protected]>
Date:   Fri Mar 16 23:17:27 2012 +0000

    Another Win64 fix

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

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

diff --git a/rts/Schedule.c b/rts/Schedule.c
index e17116b..c22b02d 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -611,7 +611,7 @@ schedulePreLoop(void)
 {
   // initialisation for scheduler - what cannot go into initScheduler()  
 
-#if defined(mingw32_HOST_OS)
+#if defined(mingw32_HOST_OS) && defined(i386_HOST_ARCH)
     win32AllocStack();
 #endif
 }



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

Reply via email to