diff options
| author | wolfgang.thaller@gmx.net <unknown> | 2006-02-25 22:59:20 +0000 |
|---|---|---|
| committer | wolfgang.thaller@gmx.net <unknown> | 2006-02-25 22:59:20 +0000 |
| commit | 9772b3f828280e89ef9ea1cce28752dee216f23e (patch) | |
| tree | a3c9b2b9df62777785a404f2d504da27edb8a903 /ghc | |
| parent | 17fc62713c508c5c3242f9a51477d98592e65719 (diff) | |
| download | haskell-9772b3f828280e89ef9ea1cce28752dee216f23e.tar.gz | |
NCG: fix mkRegRegMoveInstr for x86-64
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/compiler/nativeGen/RegAllocInfo.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ghc/compiler/nativeGen/RegAllocInfo.hs b/ghc/compiler/nativeGen/RegAllocInfo.hs index e5b4b146aa..98c4e2dfe0 100644 --- a/ghc/compiler/nativeGen/RegAllocInfo.hs +++ b/ghc/compiler/nativeGen/RegAllocInfo.hs @@ -803,7 +803,11 @@ mkRegRegMoveInstr src dst #if i386_TARGET_ARCH || x86_64_TARGET_ARCH = case regClass src of RcInteger -> MOV wordRep (OpReg src) (OpReg dst) +#if i386_TARGET_ARCH RcDouble -> GMOV src dst +#else + RcDouble -> MOV F64 (OpReg src) (OpReg dst) +#endif #elif powerpc_TARGET_ARCH = MR dst src #endif |