projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
72475c8
)
I didn't quite fix #1424 completely - hopefully this gets it right
author
Simon Marlow
<simonmar@microsoft.com>
Wed, 13 Jun 2007 14:45:05 +0000
(14:45 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Wed, 13 Jun 2007 14:45:05 +0000
(14:45 +0000)
compiler/nativeGen/MachCodeGen.hs
patch
|
blob
|
history
diff --git
a/compiler/nativeGen/MachCodeGen.hs
b/compiler/nativeGen/MachCodeGen.hs
index
d371214
..
79c8d69
100644
(file)
--- a/
compiler/nativeGen/MachCodeGen.hs
+++ b/
compiler/nativeGen/MachCodeGen.hs
@@
-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) ,
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
push_args rest code'
| otherwise = do