Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/f424fc205bef02f5731243477b7d14c95b436b2e >--------------------------------------------------------------- commit f424fc205bef02f5731243477b7d14c95b436b2e Author: Ian Lynagh <[email protected]> Date: Mon Mar 19 15:06:22 2012 +0000 Define allArgRegs correctly for Win64 >--------------------------------------------------------------- compiler/nativeGen/X86/Regs.hs | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/compiler/nativeGen/X86/Regs.hs b/compiler/nativeGen/X86/Regs.hs index 68ab351..9c4c262 100644 --- a/compiler/nativeGen/X86/Regs.hs +++ b/compiler/nativeGen/X86/Regs.hs @@ -629,7 +629,11 @@ globalRegMaybe _ = Nothing allArgRegs = panic "X86.Regs.allArgRegs: should not be used!" #elif x86_64_TARGET_ARCH +#if defined(mingw32_HOST_OS) +allArgRegs = map regSingle [rcx,rdx,r8,r9] +#else allArgRegs = map regSingle [rdi,rsi,rdx,rcx,r8,r9] +#endif #else allArgRegs = panic "X86.Regs.allArgRegs: not defined for this architecture" _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
