diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-03-19 15:06:22 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-03-19 15:06:22 +0000 |
| commit | f424fc205bef02f5731243477b7d14c95b436b2e (patch) | |
| tree | aad8b7d7b49b45f515e4a9ef599c99d82204a617 /compiler/nativeGen/X86/Regs.hs | |
| parent | a3dc885bd1e13ef4951b8e36feb5258677b963d4 (diff) | |
| download | haskell-f424fc205bef02f5731243477b7d14c95b436b2e.tar.gz | |
Define allArgRegs correctly for Win64
Diffstat (limited to 'compiler/nativeGen/X86/Regs.hs')
| -rw-r--r-- | 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 68ab351e86..9c4c2629c3 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" |