Fix #2961: we lost some of the generated code for stack args in genCCall

[ghc-hetmet.git] / compiler / nativeGen / MachCodeGen.hs

diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs
index d9b2028..1cfc7a3 100644 (file)
--- a/compiler/nativeGen/MachCodeGen.hs
+++ b/compiler/nativeGen/MachCodeGen.hs
@@ -3567,8 +3567,9 @@ genCCall target dest_regs args = do
         (arg_op, arg_code) <- getOperand arg
          delta <- getDeltaNat
          setDeltaNat (delta-arg_size)
-        let code' = code `appOL` toOL [PUSH II64 arg_op, 
-                                       DELTA (delta-arg_size)]
+        let code' = code `appOL` arg_code `appOL` toOL [
+                        PUSH II64 arg_op, 
+                       DELTA (delta-arg_size)]
         push_args rest code'
        where
          arg_rep = cmmExprType arg