1
Fork 0

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

View file

@ -1723,11 +1723,13 @@ let trans_visitor
do do
emit (Il.Push (Il.Cell args.(i))) emit (Il.Push (Il.Cell args.(i)))
done; done;
emit (Il.Push zero);
emit (Il.Push (Il.Cell abi.Abi.abi_tp_cell)); emit (Il.Push (Il.Cell abi.Abi.abi_tp_cell));
emit (Il.Push dst); emit (Il.Push dst);
call_code code; call_code code;
pop (); pop ();
pop (); pop ();
pop ();
Array.iter (fun _ -> pop()) args; Array.iter (fun _ -> pop()) args;
in in
match dst with match dst with