layout.js

//
// Code auto-generated from "runtime/layout.py". Do not modify.
//

$ir_obj_def_const(this, "$rt_LAYOUT_STR", 0, false);

function $rt_str_ofs_next(o)
{    
    return 0;
}

function $rt_str_ofs_header(o)
{    
    return $ir_add_i32(0, 8);
}

function $rt_str_ofs_len(o)
{    
    return $ir_add_i32($ir_add_i32(0, 8), 4);
}

function $rt_str_ofs_hash(o)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4);
}

function $rt_str_ofs_data(o, i)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), $ir_mul_i32(2, i));
}

function $rt_str_get_next(o)
{    
    return $ir_load_refptr(o, $rt_str_ofs_next(o));
}

function $rt_str_get_header(o)
{    
    return $ir_load_u32(o, $rt_str_ofs_header(o));
}

function $rt_str_get_len(o)
{    
    return $ir_load_u32(o, $rt_str_ofs_len(o));
}

function $rt_str_get_hash(o)
{    
    return $ir_load_u32(o, $rt_str_ofs_hash(o));
}

function $rt_str_get_data(o, i)
{    
    return $ir_load_u16(o, $rt_str_ofs_data(o, i));
}

function $rt_str_set_next(o, v)
{    
    $ir_store_refptr(o, $rt_str_ofs_next(o), v);
}

function $rt_str_set_header(o, v)
{    
    $ir_store_u32(o, $rt_str_ofs_header(o), v);
}

function $rt_str_set_len(o, v)
{    
    $ir_store_u32(o, $rt_str_ofs_len(o), v);
}

function $rt_str_set_hash(o, v)
{    
    $ir_store_u32(o, $rt_str_ofs_hash(o), v);
}

function $rt_str_set_data(o, i, v)
{    
    $ir_store_u16(o, $rt_str_ofs_data(o, i), v);
}

function $rt_str_comp_size(len)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), $ir_mul_i32(2, len));
}

function $rt_str_sizeof(o)
{    
    return $rt_str_comp_size($rt_str_get_len(o));
}

function $rt_str_alloc(len)
{    
    var o = $ir_alloc_string($rt_str_comp_size(len));
    $rt_str_set_len(o, len);
    return o;
}

function $rt_str_visit_gc(o)
{    
    $rt_str_set_next(o, $rt_gcForward(vm, $rt_str_get_next(o)));
}

$ir_obj_def_const(this, "$rt_LAYOUT_STRTBL", 1, false);

function $rt_strtbl_ofs_next(o)
{    
    return 0;
}

function $rt_strtbl_ofs_header(o)
{    
    return $ir_add_i32(0, 8);
}

function $rt_strtbl_ofs_cap(o)
{    
    return $ir_add_i32($ir_add_i32(0, 8), 4);
}

function $rt_strtbl_ofs_num_strs(o)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4);
}

function $rt_strtbl_ofs_str(o, i)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, i));
}

function $rt_strtbl_get_next(o)
{    
    return $ir_load_refptr(o, $rt_strtbl_ofs_next(o));
}

function $rt_strtbl_get_header(o)
{    
    return $ir_load_u32(o, $rt_strtbl_ofs_header(o));
}

function $rt_strtbl_get_cap(o)
{    
    return $ir_load_u32(o, $rt_strtbl_ofs_cap(o));
}

function $rt_strtbl_get_num_strs(o)
{    
    return $ir_load_u32(o, $rt_strtbl_ofs_num_strs(o));
}

function $rt_strtbl_get_str(o, i)
{    
    return $ir_load_refptr(o, $rt_strtbl_ofs_str(o, i));
}

function $rt_strtbl_set_next(o, v)
{    
    $ir_store_refptr(o, $rt_strtbl_ofs_next(o), v);
}

function $rt_strtbl_set_header(o, v)
{    
    $ir_store_u32(o, $rt_strtbl_ofs_header(o), v);
}

function $rt_strtbl_set_cap(o, v)
{    
    $ir_store_u32(o, $rt_strtbl_ofs_cap(o), v);
}

function $rt_strtbl_set_num_strs(o, v)
{    
    $ir_store_u32(o, $rt_strtbl_ofs_num_strs(o), v);
}

function $rt_strtbl_set_str(o, i, v)
{    
    $ir_store_refptr(o, $rt_strtbl_ofs_str(o, i), v);
}

function $rt_strtbl_comp_size(cap)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, cap));
}

function $rt_strtbl_sizeof(o)
{    
    return $rt_strtbl_comp_size($rt_strtbl_get_cap(o));
}

function $rt_strtbl_alloc(cap)
{    
    var o = $ir_alloc_refptr($rt_strtbl_comp_size(cap));
    $rt_strtbl_set_cap(o, cap);
    $rt_strtbl_set_header(o, 1);
    return o;
}

function $rt_strtbl_visit_gc(o)
{    
    $rt_strtbl_set_next(o, $rt_gcForward(vm, $rt_strtbl_get_next(o)));
    var cap = $rt_strtbl_get_cap(o);
    for (var i = 0; $ir_lt_i32(i, cap); i = $ir_add_i32(i, 1))
    {    
        $rt_strtbl_set_str(o, i, $rt_gcForward(vm, $rt_strtbl_get_str(o, i)));
    }
}

$ir_obj_def_const(this, "$rt_LAYOUT_ROPE", 2, false);

function $rt_rope_ofs_next(o)
{    
    return 0;
}

function $rt_rope_ofs_header(o)
{    
    return $ir_add_i32(0, 8);
}

function $rt_rope_ofs_len(o)
{    
    return $ir_add_i32($ir_add_i32(0, 8), 4);
}

function $rt_rope_ofs_left(o)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4);
}

function $rt_rope_ofs_right(o)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 8);
}

function $rt_rope_get_next(o)
{    
    return $ir_load_refptr(o, $rt_rope_ofs_next(o));
}

function $rt_rope_get_header(o)
{    
    return $ir_load_u32(o, $rt_rope_ofs_header(o));
}

function $rt_rope_get_len(o)
{    
    return $ir_load_u32(o, $rt_rope_ofs_len(o));
}

function $rt_rope_get_left(o)
{    
    return $ir_load_refptr(o, $rt_rope_ofs_left(o));
}

function $rt_rope_get_right(o)
{    
    return $ir_load_refptr(o, $rt_rope_ofs_right(o));
}

function $rt_rope_set_next(o, v)
{    
    $ir_store_refptr(o, $rt_rope_ofs_next(o), v);
}

function $rt_rope_set_header(o, v)
{    
    $ir_store_u32(o, $rt_rope_ofs_header(o), v);
}

function $rt_rope_set_len(o, v)
{    
    $ir_store_u32(o, $rt_rope_ofs_len(o), v);
}

function $rt_rope_set_left(o, v)
{    
    $ir_store_refptr(o, $rt_rope_ofs_left(o), v);
}

function $rt_rope_set_right(o, v)
{    
    $ir_store_refptr(o, $rt_rope_ofs_right(o), v);
}

function $rt_rope_comp_size()
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 8), 8);
}

function $rt_rope_sizeof(o)
{    
    return $rt_rope_comp_size();
}

function $rt_rope_alloc()
{    
    var o = $ir_alloc_rope($rt_rope_comp_size());
    $rt_rope_set_header(o, 2);
    return o;
}

function $rt_rope_visit_gc(o)
{    
    $rt_rope_set_next(o, $rt_gcForward(vm, $rt_rope_get_next(o)));
    $rt_rope_set_left(o, $rt_gcForward(vm, $rt_rope_get_left(o)));
    $rt_rope_set_right(o, $rt_gcForward(vm, $rt_rope_get_right(o)));
}

$ir_obj_def_const(this, "$rt_LAYOUT_OBJ", 3, false);

function $rt_obj_ofs_next(o)
{    
    return 0;
}

function $rt_obj_ofs_header(o)
{    
    return $ir_add_i32(0, 8);
}

function $rt_obj_ofs_cap(o)
{    
    return $ir_add_i32($ir_add_i32(0, 8), 4);
}

function $rt_obj_ofs_shape_idx(o)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4);
}

function $rt_obj_ofs_word(o, i)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, i));
}

function $rt_obj_ofs_tag(o, i)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, $rt_obj_get_cap(o))), $ir_mul_i32(1, i));
}

function $rt_obj_get_next(o)
{    
    return $ir_load_refptr(o, $rt_obj_ofs_next(o));
}

function $rt_obj_get_header(o)
{    
    return $ir_load_u32(o, $rt_obj_ofs_header(o));
}

function $rt_obj_get_cap(o)
{    
    return $ir_load_u32(o, $rt_obj_ofs_cap(o));
}

function $rt_obj_get_shape_idx(o)
{    
    return $ir_load_u32(o, $rt_obj_ofs_shape_idx(o));
}

function $rt_obj_get_word(o, i)
{    
    return $ir_load_u64(o, $rt_obj_ofs_word(o, i));
}

function $rt_obj_get_tag(o, i)
{    
    return $ir_load_u8(o, $rt_obj_ofs_tag(o, i));
}

function $rt_obj_set_next(o, v)
{    
    $ir_store_refptr(o, $rt_obj_ofs_next(o), v);
}

function $rt_obj_set_header(o, v)
{    
    $ir_store_u32(o, $rt_obj_ofs_header(o), v);
}

function $rt_obj_set_cap(o, v)
{    
    $ir_store_u32(o, $rt_obj_ofs_cap(o), v);
}

function $rt_obj_set_shape_idx(o, v)
{    
    $ir_store_u32(o, $rt_obj_ofs_shape_idx(o), v);
}

function $rt_obj_set_word(o, i, v)
{    
    $ir_store_u64(o, $rt_obj_ofs_word(o, i), v);
}

function $rt_obj_set_tag(o, i, v)
{    
    $ir_store_u8(o, $rt_obj_ofs_tag(o, i), v);
}

function $rt_obj_comp_size(cap)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, cap)), $ir_mul_i32(1, cap));
}

function $rt_obj_sizeof(o)
{    
    return $rt_obj_comp_size($rt_obj_get_cap(o));
}

function $rt_obj_alloc(cap)
{    
    var o = $ir_alloc_object($rt_obj_comp_size(cap));
    $rt_obj_set_cap(o, cap);
    $rt_obj_set_header(o, 3);
    return o;
}

function $rt_obj_visit_gc(o)
{    
    $rt_obj_set_next(o, $rt_gcForward(vm, $rt_obj_get_next(o)));
    var cap = $rt_obj_get_cap(o);
    for (var i = 0; $ir_lt_i32(i, cap); i = $ir_add_i32(i, 1))
    {    
        $rt_obj_set_word(o, i, $rt_gcForward(vm, $rt_obj_get_word(o, i), $rt_obj_get_tag(o, i)));
    }
}

$ir_obj_def_const(this, "$rt_LAYOUT_CLOS", 4, false);

function $rt_clos_ofs_next(o)
{    
    return 0;
}

function $rt_clos_ofs_header(o)
{    
    return $ir_add_i32(0, 8);
}

function $rt_clos_ofs_cap(o)
{    
    return $ir_add_i32($ir_add_i32(0, 8), 4);
}

function $rt_clos_ofs_shape_idx(o)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4);
}

function $rt_clos_ofs_word(o, i)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, i));
}

function $rt_clos_ofs_tag(o, i)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, $rt_clos_get_cap(o))), $ir_mul_i32(1, i));
}

function $rt_clos_ofs_num_cells(o)
{    
    return $ir_and_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, $rt_clos_get_cap(o))), $ir_mul_i32(1, $rt_clos_get_cap(o))), 7), -8);
}

function $rt_clos_ofs_cell(o, i)
{    
    return $ir_add_i32($ir_add_i32($ir_and_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, $rt_clos_get_cap(o))), $ir_mul_i32(1, $rt_clos_get_cap(o))), 7), -8), 4), $ir_mul_i32(8, i));
}

function $rt_clos_get_next(o)
{    
    return $ir_load_refptr(o, $rt_clos_ofs_next(o));
}

function $rt_clos_get_header(o)
{    
    return $ir_load_u32(o, $rt_clos_ofs_header(o));
}

function $rt_clos_get_cap(o)
{    
    return $ir_load_u32(o, $rt_clos_ofs_cap(o));
}

function $rt_clos_get_shape_idx(o)
{    
    return $ir_load_u32(o, $rt_clos_ofs_shape_idx(o));
}

function $rt_clos_get_word(o, i)
{    
    return $ir_load_u64(o, $rt_clos_ofs_word(o, i));
}

function $rt_clos_get_tag(o, i)
{    
    return $ir_load_u8(o, $rt_clos_ofs_tag(o, i));
}

function $rt_clos_get_num_cells(o)
{    
    return $ir_load_u32(o, $rt_clos_ofs_num_cells(o));
}

function $rt_clos_get_cell(o, i)
{    
    return $ir_load_refptr(o, $rt_clos_ofs_cell(o, i));
}

function $rt_clos_set_next(o, v)
{    
    $ir_store_refptr(o, $rt_clos_ofs_next(o), v);
}

function $rt_clos_set_header(o, v)
{    
    $ir_store_u32(o, $rt_clos_ofs_header(o), v);
}

function $rt_clos_set_cap(o, v)
{    
    $ir_store_u32(o, $rt_clos_ofs_cap(o), v);
}

function $rt_clos_set_shape_idx(o, v)
{    
    $ir_store_u32(o, $rt_clos_ofs_shape_idx(o), v);
}

function $rt_clos_set_word(o, i, v)
{    
    $ir_store_u64(o, $rt_clos_ofs_word(o, i), v);
}

function $rt_clos_set_tag(o, i, v)
{    
    $ir_store_u8(o, $rt_clos_ofs_tag(o, i), v);
}

function $rt_clos_set_num_cells(o, v)
{    
    $ir_store_u32(o, $rt_clos_ofs_num_cells(o), v);
}

function $rt_clos_set_cell(o, i, v)
{    
    $ir_store_refptr(o, $rt_clos_ofs_cell(o, i), v);
}

function $rt_clos_comp_size(cap, num_cells)
{    
    return $ir_add_i32($ir_add_i32($ir_and_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, cap)), $ir_mul_i32(1, cap)), 7), -8), 4), $ir_mul_i32(8, num_cells));
}

function $rt_clos_sizeof(o)
{    
    return $rt_clos_comp_size($rt_clos_get_cap(o), $rt_clos_get_num_cells(o));
}

function $rt_clos_alloc(cap, num_cells)
{    
    var o = $ir_alloc_closure($rt_clos_comp_size(cap, num_cells));
    $rt_clos_set_cap(o, cap);
    $rt_clos_set_num_cells(o, num_cells);
    $rt_clos_set_header(o, 4);
    return o;
}

function $rt_clos_visit_gc(o)
{    
    $rt_clos_set_next(o, $rt_gcForward(vm, $rt_clos_get_next(o)));
    var cap = $rt_clos_get_cap(o);
    for (var i = 0; $ir_lt_i32(i, cap); i = $ir_add_i32(i, 1))
    {    
        $rt_clos_set_word(o, i, $rt_gcForward(vm, $rt_clos_get_word(o, i), $rt_clos_get_tag(o, i)));
    }
    var num_cells = $rt_clos_get_num_cells(o);
    for (var i = 0; $ir_lt_i32(i, num_cells); i = $ir_add_i32(i, 1))
    {    
        $rt_clos_set_cell(o, i, $rt_gcForward(vm, $rt_clos_get_cell(o, i)));
    }
}

$ir_obj_def_const(this, "$rt_LAYOUT_CELL", 5, false);

function $rt_cell_ofs_next(o)
{    
    return 0;
}

function $rt_cell_ofs_header(o)
{    
    return $ir_add_i32(0, 8);
}

function $rt_cell_ofs_word(o)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4);
}

function $rt_cell_ofs_tag(o)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 8);
}

function $rt_cell_get_next(o)
{    
    return $ir_load_refptr(o, $rt_cell_ofs_next(o));
}

function $rt_cell_get_header(o)
{    
    return $ir_load_u32(o, $rt_cell_ofs_header(o));
}

function $rt_cell_get_word(o)
{    
    return $ir_load_u64(o, $rt_cell_ofs_word(o));
}

function $rt_cell_get_tag(o)
{    
    return $ir_load_u8(o, $rt_cell_ofs_tag(o));
}

function $rt_cell_set_next(o, v)
{    
    $ir_store_refptr(o, $rt_cell_ofs_next(o), v);
}

function $rt_cell_set_header(o, v)
{    
    $ir_store_u32(o, $rt_cell_ofs_header(o), v);
}

function $rt_cell_set_word(o, v)
{    
    $ir_store_u64(o, $rt_cell_ofs_word(o), v);
}

function $rt_cell_set_tag(o, v)
{    
    $ir_store_u8(o, $rt_cell_ofs_tag(o), v);
}

function $rt_cell_comp_size()
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 8), 1);
}

function $rt_cell_sizeof(o)
{    
    return $rt_cell_comp_size();
}

function $rt_cell_alloc()
{    
    var o = $ir_alloc_refptr($rt_cell_comp_size());
    $rt_cell_set_header(o, 5);
    $rt_cell_set_word(o, $ir_get_word($undef));
    return o;
}

function $rt_cell_visit_gc(o)
{    
    $rt_cell_set_next(o, $rt_gcForward(vm, $rt_cell_get_next(o)));
    $rt_cell_set_word(o, $rt_gcForward(vm, $rt_cell_get_word(o), $rt_cell_get_tag(o)));
}

$ir_obj_def_const(this, "$rt_LAYOUT_ARR", 6, false);

function $rt_arr_ofs_next(o)
{    
    return 0;
}

function $rt_arr_ofs_header(o)
{    
    return $ir_add_i32(0, 8);
}

function $rt_arr_ofs_cap(o)
{    
    return $ir_add_i32($ir_add_i32(0, 8), 4);
}

function $rt_arr_ofs_shape_idx(o)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4);
}

function $rt_arr_ofs_word(o, i)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, i));
}

function $rt_arr_ofs_tag(o, i)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, $rt_arr_get_cap(o))), $ir_mul_i32(1, i));
}

function $rt_arr_get_next(o)
{    
    return $ir_load_refptr(o, $rt_arr_ofs_next(o));
}

function $rt_arr_get_header(o)
{    
    return $ir_load_u32(o, $rt_arr_ofs_header(o));
}

function $rt_arr_get_cap(o)
{    
    return $ir_load_u32(o, $rt_arr_ofs_cap(o));
}

function $rt_arr_get_shape_idx(o)
{    
    return $ir_load_u32(o, $rt_arr_ofs_shape_idx(o));
}

function $rt_arr_get_word(o, i)
{    
    return $ir_load_u64(o, $rt_arr_ofs_word(o, i));
}

function $rt_arr_get_tag(o, i)
{    
    return $ir_load_u8(o, $rt_arr_ofs_tag(o, i));
}

function $rt_arr_set_next(o, v)
{    
    $ir_store_refptr(o, $rt_arr_ofs_next(o), v);
}

function $rt_arr_set_header(o, v)
{    
    $ir_store_u32(o, $rt_arr_ofs_header(o), v);
}

function $rt_arr_set_cap(o, v)
{    
    $ir_store_u32(o, $rt_arr_ofs_cap(o), v);
}

function $rt_arr_set_shape_idx(o, v)
{    
    $ir_store_u32(o, $rt_arr_ofs_shape_idx(o), v);
}

function $rt_arr_set_word(o, i, v)
{    
    $ir_store_u64(o, $rt_arr_ofs_word(o, i), v);
}

function $rt_arr_set_tag(o, i, v)
{    
    $ir_store_u8(o, $rt_arr_ofs_tag(o, i), v);
}

function $rt_arr_comp_size(cap)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), 4), 4), $ir_mul_i32(8, cap)), $ir_mul_i32(1, cap));
}

function $rt_arr_sizeof(o)
{    
    return $rt_arr_comp_size($rt_arr_get_cap(o));
}

function $rt_arr_alloc(cap)
{    
    var o = $ir_alloc_array($rt_arr_comp_size(cap));
    $rt_arr_set_cap(o, cap);
    $rt_arr_set_header(o, 6);
    return o;
}

function $rt_arr_visit_gc(o)
{    
    $rt_arr_set_next(o, $rt_gcForward(vm, $rt_arr_get_next(o)));
    var cap = $rt_arr_get_cap(o);
    for (var i = 0; $ir_lt_i32(i, cap); i = $ir_add_i32(i, 1))
    {    
        $rt_arr_set_word(o, i, $rt_gcForward(vm, $rt_arr_get_word(o, i), $rt_arr_get_tag(o, i)));
    }
}

$ir_obj_def_const(this, "$rt_LAYOUT_ARRTBL", 7, false);

function $rt_arrtbl_ofs_next(o)
{    
    return 0;
}

function $rt_arrtbl_ofs_header(o)
{    
    return $ir_add_i32(0, 8);
}

function $rt_arrtbl_ofs_cap(o)
{    
    return $ir_add_i32($ir_add_i32(0, 8), 4);
}

function $rt_arrtbl_ofs_word(o, i)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), $ir_mul_i32(8, i));
}

function $rt_arrtbl_ofs_tag(o, i)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), $ir_mul_i32(8, $rt_arrtbl_get_cap(o))), $ir_mul_i32(1, i));
}

function $rt_arrtbl_get_next(o)
{    
    return $ir_load_refptr(o, $rt_arrtbl_ofs_next(o));
}

function $rt_arrtbl_get_header(o)
{    
    return $ir_load_u32(o, $rt_arrtbl_ofs_header(o));
}

function $rt_arrtbl_get_cap(o)
{    
    return $ir_load_u32(o, $rt_arrtbl_ofs_cap(o));
}

function $rt_arrtbl_get_word(o, i)
{    
    return $ir_load_u64(o, $rt_arrtbl_ofs_word(o, i));
}

function $rt_arrtbl_get_tag(o, i)
{    
    return $ir_load_u8(o, $rt_arrtbl_ofs_tag(o, i));
}

function $rt_arrtbl_set_next(o, v)
{    
    $ir_store_refptr(o, $rt_arrtbl_ofs_next(o), v);
}

function $rt_arrtbl_set_header(o, v)
{    
    $ir_store_u32(o, $rt_arrtbl_ofs_header(o), v);
}

function $rt_arrtbl_set_cap(o, v)
{    
    $ir_store_u32(o, $rt_arrtbl_ofs_cap(o), v);
}

function $rt_arrtbl_set_word(o, i, v)
{    
    $ir_store_u64(o, $rt_arrtbl_ofs_word(o, i), v);
}

function $rt_arrtbl_set_tag(o, i, v)
{    
    $ir_store_u8(o, $rt_arrtbl_ofs_tag(o, i), v);
}

function $rt_arrtbl_comp_size(cap)
{    
    return $ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32($ir_add_i32(0, 8), 4), 4), $ir_mul_i32(8, cap)), $ir_mul_i32(1, cap));
}

function $rt_arrtbl_sizeof(o)
{    
    return $rt_arrtbl_comp_size($rt_arrtbl_get_cap(o));
}

function $rt_arrtbl_alloc(cap)
{    
    var o = $ir_alloc_refptr($rt_arrtbl_comp_size(cap));
    $rt_arrtbl_set_cap(o, cap);
    $rt_arrtbl_set_header(o, 7);
    return o;
}

function $rt_arrtbl_visit_gc(o)
{    
    $rt_arrtbl_set_next(o, $rt_gcForward(vm, $rt_arrtbl_get_next(o)));
    var cap = $rt_arrtbl_get_cap(o);
    for (var i = 0; $ir_lt_i32(i, cap); i = $ir_add_i32(i, 1))
    {    
        $rt_arrtbl_set_word(o, i, $rt_gcForward(vm, $rt_arrtbl_get_word(o, i), $rt_arrtbl_get_tag(o, i)));
    }
}

function $rt_layout_sizeof(o)
{    
    var t = $rt_obj_get_header(o);
    if ($ir_eq_i32(t, LAYOUT_STR))
    {    
        return $rt_str_sizeof(o);
    }
    if ($ir_eq_i32(t, LAYOUT_STRTBL))
    {    
        return $rt_strtbl_sizeof(o);
    }
    if ($ir_eq_i32(t, LAYOUT_ROPE))
    {    
        return $rt_rope_sizeof(o);
    }
    if ($ir_eq_i32(t, LAYOUT_OBJ))
    {    
        return $rt_obj_sizeof(o);
    }
    if ($ir_eq_i32(t, LAYOUT_CLOS))
    {    
        return $rt_clos_sizeof(o);
    }
    if ($ir_eq_i32(t, LAYOUT_CELL))
    {    
        return $rt_cell_sizeof(o);
    }
    if ($ir_eq_i32(t, LAYOUT_ARR))
    {    
        return $rt_arr_sizeof(o);
    }
    if ($ir_eq_i32(t, LAYOUT_ARRTBL))
    {    
        return $rt_arrtbl_sizeof(o);
    }
    $rt_assert(false, "invalid layout in layout_sizeof");
}

function $rt_layout_visit_gc(o)
{    
    var t = $rt_obj_get_header(o);
    if ($ir_eq_i32(t, LAYOUT_STR))
    {    
        $rt_str_visit_gc(vm, o);
        return;
    }
    if ($ir_eq_i32(t, LAYOUT_STRTBL))
    {    
        $rt_strtbl_visit_gc(vm, o);
        return;
    }
    if ($ir_eq_i32(t, LAYOUT_ROPE))
    {    
        $rt_rope_visit_gc(vm, o);
        return;
    }
    if ($ir_eq_i32(t, LAYOUT_OBJ))
    {    
        $rt_obj_visit_gc(vm, o);
        return;
    }
    if ($ir_eq_i32(t, LAYOUT_CLOS))
    {    
        $rt_clos_visit_gc(vm, o);
        return;
    }
    if ($ir_eq_i32(t, LAYOUT_CELL))
    {    
        $rt_cell_visit_gc(vm, o);
        return;
    }
    if ($ir_eq_i32(t, LAYOUT_ARR))
    {    
        $rt_arr_visit_gc(vm, o);
        return;
    }
    if ($ir_eq_i32(t, LAYOUT_ARRTBL))
    {    
        $rt_arrtbl_visit_gc(vm, o);
        return;
    }
    $rt_assert(false, "invalid layout in layout_visit_gc");
}