struct RClass *c; \

struct RBasic *gcnext; \

enum mrb_vtype tt:8; \

uint32_t color:3; \

uint32_t gccolor:3; \

uint32_t flags:21

#define MRB_FLAG_TEST(obj, flag) ((obj)->flags & (flag))

ptr.proc = p;

if (p) {

if (p->color != MRB_GC_RED) {

if (p->gccolor != MRB_GC_RED) {

p->flags |= MRB_PROC_SCOPE;

p->c = NULL;

mrb_field_write_barrier(mrb, (struct RBasic*)c, (struct RBasic*)p);

#define GC_COLOR_MASK 7

mrb_static_assert(MRB_GC_RED <= GC_COLOR_MASK);

#define paint_gray(o) ((o)->color = GC_GRAY)

#define paint_black(o) ((o)->color = GC_BLACK)

#define paint_white(o) ((o)->color = GC_WHITES)

#define paint_partial_white(s, o) ((o)->color = (s)->current_white_part)

#define is_gray(o) ((o)->color == GC_GRAY)

#define is_white(o) ((o)->color & GC_WHITES)

#define is_black(o) ((o)->color == GC_BLACK)

#define is_red(o) ((o)->color == GC_RED)

#define paint_gray(o) ((o)->gccolor = GC_GRAY)

#define paint_black(o) ((o)->gccolor = GC_BLACK)

#define paint_white(o) ((o)->gccolor = GC_WHITES)

#define paint_partial_white(s, o) ((o)->gccolor = (s)->current_white_part)

#define is_gray(o) ((o)->gccolor == GC_GRAY)

#define is_white(o) ((o)->gccolor & GC_WHITES)

#define is_black(o) ((o)->gccolor == GC_BLACK)

#define is_red(o) ((o)->gccolor == GC_RED)

#define flip_white_part(s) ((s)->current_white_part = other_white_part(s))

#define other_white_part(s) ((s)->current_white_part ^ GC_WHITES)

#define is_dead(s, o) (((o)->color & other_white_part(s) & GC_WHITES) || (o)->tt == MRB_TT_FREE)

#define is_dead(s, o) (((o)->gccolor & other_white_part(s) & GC_WHITES) || (o)->tt == MRB_TT_FREE)

mrb_noreturn void mrb_raise_nomemory(mrb_state *mrb);