Commit ff124db4 authored by Simon Marlow's avatar Simon Marlow
Browse files

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

A real bug in the x86_64 native code gen: nice!

This bug would have been caught by -Wall, and I would have gone though
and Walled this file but I know Ben is hacking on this file quite
heavily and I don't want to create undue conflicts.  Ben: it would be
nice to enable -Wall here when you have time.
parent 65009a13
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment