From dbb109853f0ca15e9bb82c39ddecb83d2838e7fc Mon Sep 17 00:00:00 2001
From: Roy Frostig <rfrostig@mozilla.com>
Date: Tue, 13 Jul 2010 13:28:48 -0700
Subject: [PATCH] Adjust trans_call_glue to push/pop an extra null word
 implicit arg, in position of closure/obj pointer.

---
 src/boot/me/trans.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml
index 46be9326ef4..97e94aec422 100644
--- a/src/boot/me/trans.ml
+++ b/src/boot/me/trans.ml
@@ -1723,11 +1723,13 @@ let trans_visitor
         do
           emit (Il.Push (Il.Cell args.(i)))
         done;
+        emit (Il.Push zero);
         emit (Il.Push (Il.Cell abi.Abi.abi_tp_cell));
         emit (Il.Push dst);
         call_code code;
         pop ();
         pop ();
+        pop ();
         Array.iter (fun _ -> pop()) args;
     in
       match dst with