mirror of
https://github.com/mruby/mruby
synced 2026-06-08 16:11:16 +00:00
Corey Powell
eb172c28d7
Based on the gc patch by ko1 https://github.com/ruby/ruby/commit/5922c954614e5947a548780bb3b894626affe6dd
58 lines
1.6 KiB
C
58 lines
1.6 KiB
C
/*
|
|
** mruby/object.h - mruby object definition
|
|
**
|
|
** See Copyright Notice in mruby.h
|
|
*/
|
|
|
|
#ifndef MRUBY_OBJECT_H
|
|
#define MRUBY_OBJECT_H
|
|
|
|
#define MRB_OBJECT_HEADER \
|
|
enum mrb_vtype tt:8;\
|
|
uint32_t color:3;\
|
|
uint32_t flags:21;\
|
|
struct RClass *c;\
|
|
struct RBasic *gcnext
|
|
|
|
#define MRB_FLAG_TEST(obj, flag) ((obj)->flags & flag)
|
|
|
|
/* white: 011, black: 100, gray: 000 */
|
|
#define MRB_GC_GRAY 0
|
|
#define MRB_GC_WHITE_A 1
|
|
#define MRB_GC_WHITE_B (1 << 1)
|
|
#define MRB_GC_BLACK (1 << 2)
|
|
#define MRB_GC_WHITES (MRB_GC_WHITE_A | MRB_GC_WHITE_B)
|
|
#define MRB_GC_COLOR_MASK 7
|
|
|
|
#define paint_gray(o) ((o)->color = MRB_GC_GRAY)
|
|
#define paint_black(o) ((o)->color = MRB_GC_BLACK)
|
|
#define paint_white(o) ((o)->color = MRB_GC_WHITES)
|
|
#define paint_partial_white(s, o) ((o)->color = (s)->current_white_part)
|
|
#define is_gray(o) ((o)->color == MRB_GC_GRAY)
|
|
#define is_white(o) ((o)->color & MRB_GC_WHITES)
|
|
#define is_black(o) ((o)->color & MRB_GC_BLACK)
|
|
#define is_dead(s, o) (((o)->color & other_white_part(s) & MRB_GC_WHITES) || (o)->tt == MRB_TT_FREE)
|
|
#define flip_white_part(s) ((s)->current_white_part = other_white_part(s))
|
|
#define other_white_part(s) ((s)->current_white_part ^ MRB_GC_WHITES)
|
|
|
|
struct RBasic {
|
|
MRB_OBJECT_HEADER;
|
|
};
|
|
#define mrb_basic_ptr(v) ((struct RBasic*)(mrb_ptr(v)))
|
|
|
|
struct RObject {
|
|
MRB_OBJECT_HEADER;
|
|
struct iv_tbl *iv;
|
|
};
|
|
#define mrb_obj_ptr(v) ((struct RObject*)(mrb_ptr(v)))
|
|
|
|
#define mrb_immediate_p(x) (mrb_type(x) < MRB_TT_HAS_BASIC)
|
|
#define mrb_special_const_p(x) mrb_immediate_p(x)
|
|
|
|
struct RFiber {
|
|
MRB_OBJECT_HEADER;
|
|
struct mrb_context *cxt;
|
|
};
|
|
|
|
#endif /* MRUBY_OBJECT_H */
|