diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-28 23:26:40 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-28 23:26:40 +0100 |
| commit | ed8d7a19d2378889cb77a2a9537e5bad66cdd8b9 (patch) | |
| tree | a0c7e165a3868b77e73f00f5d640ddcd42952550 /compiler/nativeGen | |
| parent | 350b5c4e1915ae0cc61a0c4c4315917b15166303 (diff) | |
| download | haskell-ed8d7a19d2378889cb77a2a9537e5bad66cdd8b9.tar.gz | |
Remove some CPP from nativeGen/X86/Instr.hs
Diffstat (limited to 'compiler/nativeGen')
| -rw-r--r-- | compiler/nativeGen/X86/Instr.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/compiler/nativeGen/X86/Instr.hs b/compiler/nativeGen/X86/Instr.hs index c8066e13d0..a2263b3116 100644 --- a/compiler/nativeGen/X86/Instr.hs +++ b/compiler/nativeGen/X86/Instr.hs @@ -710,11 +710,10 @@ x86_mkRegRegMoveInstr x86_mkRegRegMoveInstr platform src dst = case targetClassOfReg platform src of -#if i386_TARGET_ARCH - RcInteger -> MOV II32 (OpReg src) (OpReg dst) -#else - RcInteger -> MOV II64 (OpReg src) (OpReg dst) -#endif + RcInteger -> case platformArch platform of + ArchX86 -> MOV II32 (OpReg src) (OpReg dst) + ArchX86_64 -> MOV II64 (OpReg src) (OpReg dst) + _ -> panic "x86_mkRegRegMoveInstr: Bad arch" RcDouble -> GMOV src dst RcDoubleSSE -> MOV FF64 (OpReg src) (OpReg dst) _ -> panic "X86.RegInfo.mkRegRegMoveInstr: no match" |