X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FMachCodeGen.hs;fp=compiler%2FnativeGen%2FMachCodeGen.hs;h=081947e8ada78927540c2c7d0c45c996a8400d6c;hb=3c8d3f11b25e2628d2d027fbdb342c3fa99129bc;hp=325a4e8bf4fd8a331c91d25f2bb41586fdc90486;hpb=09dc0da9b6ac28a80bb0e0e8caa4f5c0c1b6bf0c;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs
index 325a4e8..081947e 100644
--- a/compiler/nativeGen/MachCodeGen.hs
+++ b/compiler/nativeGen/MachCodeGen.hs
@@ -3669,8 +3669,10 @@ genCCall target dest_regs argsAndHints = do
 			= unitOL $ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest
 
 			| not $ isFloatType rep
-			, W64	<- width
-			= unitOL $ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest
+			, W64		<- width
+			, r_dest_hi	<- getHiVRegFromLo r_dest
+			= toOL 	[ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest_hi
+				, mkRegRegMoveInstr (RealReg $ oReg 1) r_dest]
 			
 	   in	result