From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 13 Jun 2007 14:45:05 +0000 (+0000)
Subject: I didn't quite fix #1424 completely - hopefully this gets it right
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c83f6043834e171a0360bb8f456c5a57f875dc0e

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

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