Adjust trans_call_glue to push/pop an extra null word implicit arg, in position of closure/obj pointer.

This commit is contained in:
Roy Frostig 2010-07-13 13:28:48 -07:00
parent 7c8c98a6d7
commit dbb109853f
1 changed files with 2 additions and 0 deletions

View File

@ -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