Fix some validation errors

[ghc-hetmet.git] / compiler / nativeGen / PPC / CodeGen.hs

diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs
index ae8ef40..736d564 100644 (file)
--- 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)
                         (mop == MO_Memcpy ||
                          mop == MO_Memset ||
                          mop == MO_Memmove)

-                      -> init argsAndHints
+                      = init argsAndHints

 
                       | otherwise
 
                       | otherwise

-                      -> argsAndHints
+                      = argsAndHints

 
        args = map hintlessCmm argsAndHints'
        argReps = map cmmExprType args
 
        args = map hintlessCmm argsAndHints'
        argReps = map cmmExprType args