diff options
Diffstat (limited to 'internal.h')
-rw-r--r-- | internal.h | 25 |
1 files changed, 22 insertions, 3 deletions
diff --git a/internal.h b/internal.h index 89a0e3ed2b..6f2091cdac 100644 --- a/internal.h +++ b/internal.h @@ -64,9 +64,7 @@ struct rb_classext_struct { rb_alloc_func_t allocator; }; -#undef RCLASS_SUPER #define RCLASS_EXT(c) (RCLASS(c)->ptr) -#define RCLASS_SUPER(c) (RCLASS_EXT(c)->super) #define RCLASS_IV_TBL(c) (RCLASS_EXT(c)->iv_tbl) #define RCLASS_CONST_TBL(c) (RCLASS_EXT(c)->const_tbl) #define RCLASS_M_TBL(c) (RCLASS(c)->m_tbl) @@ -74,6 +72,19 @@ struct rb_classext_struct { #define RCLASS_ORIGIN(c) (RCLASS_EXT(c)->origin) #define RCLASS_REFINED_CLASS(c) (RCLASS_EXT(c)->refined_class) +#undef RCLASS_SUPER +static inline VALUE +RCLASS_SUPER(VALUE c) +{ + return RCLASS_EXT(c)->super; +} + +static inline VALUE +RCLASS_SET_SUPER(VALUE a, VALUE b) { + RCLASS_EXT(a)->super = b; + return b; +} + struct vtm; /* defined by timev.h */ /* array.c */ @@ -220,7 +231,15 @@ VALUE rb_int_pred(VALUE num); /* object.c */ VALUE rb_obj_equal(VALUE obj1, VALUE obj2); -VALUE rb_obj_hide(VALUE obj); + +struct RBasicRaw { + VALUE flags; + VALUE klass; +}; + +#define RBASIC_CLEAR_CLASS(obj) (((struct RBasicRaw *)((VALUE)(obj)))->klass = 0) +#define RBASIC_SET_CLASS_RAW(obj, cls) (((struct RBasicRaw *)((VALUE)(obj)))->klass = (cls)) +#define RBASIC_SET_CLASS(obj, cls) do {((struct RBasicRaw *)(obj))->klass = cls; } while (0) /* parse.y */ VALUE rb_parser_get_yydebug(VALUE); |