X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FPPC%2FCodeGen.hs;h=736d5640c54af384776f0efcce13f5a924d866a5;hp=ae8ef406881cb563d5d85ddb0d5ec0ee00ebb28b;hb=79f275092de54ba5f7e7336c13231ad5198befdf;hpb=4513387ea2c580aaae160948b810277e69f41850

diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs
index ae8ef40..736d564 100644
--- a/compiler/nativeGen/PPC/CodeGen.hs
+++ b/compiler/nativeGen/PPC/CodeGen.hs
@@ -942,10 +942,10 @@ genCCall target dest_regs argsAndHints
                         (mop == MO_Memcpy ||
                          mop == MO_Memset ||
                          mop == MO_Memmove)
-                      -> init argsAndHints
+                      = init argsAndHints
 
                       | otherwise
-                      -> argsAndHints
+                      = argsAndHints
 
 	args = map hintlessCmm argsAndHints'
 	argReps = map cmmExprType args