X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate%2FX86CodeGen.hs;h=70ee0136e60c0cc0bdd482e823f252b9ad195707;hb=35124f75aedd2970b59a5b57bff250efbb04a965;hp=57ffdff6ef9f77dc5d807efa186b53120603ae1b;hpb=b6e379114b45fca215e766816e9db94199bb4f00;p=mate.git

diff --git a/Mate/X86CodeGen.hs b/Mate/X86CodeGen.hs
index 57ffdff..70ee013 100644
--- a/Mate/X86CodeGen.hs
+++ b/Mate/X86CodeGen.hs
@@ -294,7 +294,7 @@ emitFromBB method cls hmap =  do
   cArgs x = if (x' >= thisMethodArgCnt)
       -- TODO(bernhard): maybe s/(-4)/(-8)/
       then fromIntegral $ (-4) * (x' - thisMethodArgCnt + 1)
-      else 8 + (4 * x')
+      else 4 + (thisMethodArgCnt * 4) - (4 * x')
     where x' = fromIntegral x
 
   cArgs_ :: IMM -> Word32