Adjust trans_call_glue to push/pop an extra null word implicit arg, in position of closure/obj pointer.
This commit is contained in:
parent
7c8c98a6d7
commit
dbb109853f
1 changed files with 2 additions and 0 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue