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
|
||||
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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue