Obj ctors are not obj fns so translate their frame entry as such.

This commit is contained in:
Roy Frostig 2010-08-25 10:27:17 -07:00
parent 3ab8cc6018
commit 2b9a48b9c9

View file

@ -4935,7 +4935,7 @@ let trans_visitor
(obj_id:node_id)
(header:Ast.header_slots)
: unit =
trans_frame_entry obj_id true false;
trans_frame_entry obj_id false false;
let all_args_rty = current_fn_args_rty None in
let all_args_cell = caller_args_cell all_args_rty in