From c83f6043834e171a0360bb8f456c5a57f875dc0e Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 13 Jun 2007 14:45:05 +0000 Subject: [PATCH] I didn't quite fix #1424 completely - hopefully this gets it right --- compiler/nativeGen/MachCodeGen.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs index d371214..79c8d69 100644 --- 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) , - 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 -- 1.7.10.4