From 9772b3f828280e89ef9ea1cce28752dee216f23e Mon Sep 17 00:00:00 2001
From: "wolfgang.thaller@gmx.net" <unknown>
Date: Sat, 25 Feb 2006 22:59:20 +0000
Subject: [PATCH] NCG: fix mkRegRegMoveInstr for x86-64

---
 ghc/compiler/nativeGen/RegAllocInfo.hs |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ghc/compiler/nativeGen/RegAllocInfo.hs b/ghc/compiler/nativeGen/RegAllocInfo.hs
index e5b4b14..98c4e2d 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
-- 
1.7.10.4