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

I didn't quite fix #1424 completely - hopefully this gets it right

parent 72475c82
......@@ -3363,8 +3363,8 @@ genCCall target dest_regs args vols = do
setDeltaNat (delta-arg_size)
let code' = code `appOL` arg_code `appOL` toOL [
SUB wordRep (OpImm (ImmInt arg_size)) (OpReg rsp) ,
MOV arg_rep (OpReg arg_reg) (OpAddr (spRel 0)),
DELTA (delta-arg_size)]
DELTA (delta-arg_size),
MOV arg_rep (OpReg arg_reg) (OpAddr (spRel 0))]
push_args rest code'
| otherwise = do
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