X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FMachCodeGen.hs;fp=compiler%2FnativeGen%2FMachCodeGen.hs;h=325a4e8bf4fd8a331c91d25f2bb41586fdc90486;hb=27992bf89c008991fd6450b2b5bb224eda1f068a;hp=e90b40cd2c7a8f8b7d4ac811c3f9c13c0f71850b;hpb=240a8f698e7aa7be84fb68e8aa63ed68389e74de;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs
index e90b40c..325a4e8 100644
--- a/compiler/nativeGen/MachCodeGen.hs
+++ b/compiler/nativeGen/MachCodeGen.hs
@@ -3667,6 +3667,10 @@ genCCall target dest_regs argsAndHints = do
 			| not $ isFloatType rep
 			, W32	<- width
 			= unitOL $ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest
+
+			| not $ isFloatType rep
+			, W64	<- width
+			= unitOL $ mkRegRegMoveInstr (RealReg $ oReg 0) r_dest
 			
 	   in	result