Remove redundant indirection-function.

This commit is contained in:
Graydon Hoare 2010-07-01 11:11:07 -07:00
parent a7016ade65
commit bb3aad72c4

View file

@ -2210,13 +2210,11 @@ let trans_visitor
(ty_align abi ty))
(tydesc_rty abi))
and box_ctrl_cell (cell:Il.cell) (off:int) : Il.cell =
and box_rc_cell (cell:Il.cell) : Il.cell =
let off = Abi.box_rc_slot_field_refcnt in
let (mem, _) = need_mem_cell (deref_imm cell (word_n off)) in
word_at mem
and box_rc_cell (cell:Il.cell) : Il.cell =
box_ctrl_cell cell Abi.box_rc_slot_field_refcnt
and box_allocation_size
(ty:Ast.ty)
: Il.operand =