diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-05 14:02:24 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-05 15:20:18 +0000 |
| commit | a385b85eb5bd62e696a2b6b3048ddae3e97f58eb (patch) | |
| tree | 7507aa40018ec7e4f588584c7280b26d353caa12 | |
| parent | 23a0ded304d9e2089e5f667fd08ae9436e741030 (diff) | |
| download | haskell-a385b85eb5bd62e696a2b6b3048ddae3e97f58eb.tar.gz | |
small refactoring
| -rw-r--r-- | compiler/nativeGen/X86/CodeGen.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/nativeGen/X86/CodeGen.hs b/compiler/nativeGen/X86/CodeGen.hs index 5ba1069785..e69aab40f4 100644 --- a/compiler/nativeGen/X86/CodeGen.hs +++ b/compiler/nativeGen/X86/CodeGen.hs @@ -1690,6 +1690,7 @@ genCCall32 target dest_regs args = use_sse2 <- sse2Enabled push_codes <- mapM (push_arg use_sse2) (reverse args) delta <- getDeltaNat + MASSERT (delta == delta0 - tot_arg_size) -- in -- deal with static vs dynamic call targets @@ -1728,10 +1729,10 @@ genCCall32 target dest_regs args = (if pop_size==0 then [] else [ADD II32 (OpImm (ImmInt pop_size)) (OpReg esp)]) ++ - [DELTA (delta + tot_arg_size)] + [DELTA delta0] ) -- in - setDeltaNat (delta + tot_arg_size) + setDeltaNat delta0 let -- assign the results, if necessary |