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

small refactoring

parent 23a0ded3
...@@ -1690,6 +1690,7 @@ genCCall32 target dest_regs args = ...@@ -1690,6 +1690,7 @@ genCCall32 target dest_regs args =
use_sse2 <- sse2Enabled use_sse2 <- sse2Enabled
push_codes <- mapM (push_arg use_sse2) (reverse args) push_codes <- mapM (push_arg use_sse2) (reverse args)
delta <- getDeltaNat delta <- getDeltaNat
MASSERT (delta == delta0 - tot_arg_size)
-- in -- in
-- deal with static vs dynamic call targets -- deal with static vs dynamic call targets
...@@ -1728,10 +1729,10 @@ genCCall32 target dest_regs args = ...@@ -1728,10 +1729,10 @@ genCCall32 target dest_regs args =
(if pop_size==0 then [] else (if pop_size==0 then [] else
[ADD II32 (OpImm (ImmInt pop_size)) (OpReg esp)]) [ADD II32 (OpImm (ImmInt pop_size)) (OpReg esp)])
++ ++
[DELTA (delta + tot_arg_size)] [DELTA delta0]
) )
-- in -- in
setDeltaNat (delta + tot_arg_size) setDeltaNat delta0
let let
-- assign the results, if necessary -- assign the results, if necessary
......
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