Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/ed8d7a19d2378889cb77a2a9537e5bad66cdd8b9 >--------------------------------------------------------------- commit ed8d7a19d2378889cb77a2a9537e5bad66cdd8b9 Author: Ian Lynagh <[email protected]> Date: Tue Aug 28 23:26:40 2012 +0100 Remove some CPP from nativeGen/X86/Instr.hs >--------------------------------------------------------------- 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 c8066e1..a2263b3 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" _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
