struct mrb_mt_rom_list *rom_mt; /* heap-allocated ROM wrappers (freed at close) */

struct mrb_iv_shape *root_shape; /* root of IV shape tree */

void *ud; /* auxiliary data */

#ifdef MRB_FIXED_STATE_ATEXIT_STACK

size_t mrb_gc_mark_iv(mrb_state*, struct RObject*);

void mrb_gc_free_iv(mrb_state*, struct RObject*);

/* IV shape tree */

void mrb_init_shape(mrb_state*);

void mrb_free_shape(mrb_state*);

/* VM */

#define MRB_CI_VISIBILITY(ci) MRB_FLAGS_GET((ci)->vis, 0, 2)

#define MRB_CI_SET_VISIBILITY(ci, visi) MRB_FLAGS_SET((ci)->vis, 0, 2, visi)

#define MRB_OBJ_IS_FROZEN 1

#define mrb_frozen_p(o) ((o)->frozen)

/* Object shape flag -- when set, obj->iv is shaped, not iv_tbl* */

/* Bit 5: avoids conflict with MRB_INSTANCE_TT_MASK (bits 0-4) */

#define MRB_FL_OBJ_SHAPED (1 << 5)

#define MRB_OBJ_SHAPED_P(o) ((o)->flags & MRB_FL_OBJ_SHAPED)

struct RObject {

MRB_OBJECT_HEADER;

struct iv_tbl *iv;

*p = RVALUE_zero;

p->as.basic.tt = ttype;

p->as.basic.c = cls;

if (ttype == MRB_TT_OBJECT) {

p->as.basic.flags |= MRB_FL_OBJ_SHAPED;

}

paint_partial_white(gc, &p->as.basic);

return &p->as.basic;

}

int mrb_core_init_protect(mrb_state *mrb, void (*body)(mrb_state*, void*), void *opaque);

void mrb_init_shape(mrb_state*);

void mrb_free_shape(mrb_state*);

static void

init_gc_and_core(mrb_state *mrb, void *opaque)

{

static const struct mrb_context mrb_context_zero = { 0 };

mrb_gc_init(mrb, &mrb->gc);

mrb_init_shape(mrb);

mrb->c = (struct mrb_context*)mrb_malloc(mrb, sizeof(struct mrb_context));

*mrb->c = mrb_context_zero;

mrb->root_c = mrb->c;

/* free */

mrb_gc_free_gv(mrb);

mrb_gc_destroy(mrb, &mrb->gc);

mrb_free_shape(mrb);

mrb_free_context(mrb, mrb->root_c);

mrb_free_symtbl(mrb);