From 930e4c71c01562dc6ff03af87486acc2de81cc9b Mon Sep 17 00:00:00 2001 From: Carson McDonald Date: Mon, 25 Mar 2013 00:23:22 -0400 Subject: Make mrb_top_self return a real instance. --- include/mruby.h | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'include') diff --git a/include/mruby.h b/include/mruby.h index c5c607893..1c26be1ea 100644 --- a/include/mruby.h +++ b/include/mruby.h @@ -74,6 +74,7 @@ typedef struct mrb_state { mrb_value *stack; mrb_value *stbase, *stend; + mrb_value *top_self; mrb_callinfo *ci; mrb_callinfo *cibase, *ciend; @@ -138,6 +139,7 @@ typedef struct mrb_state { struct RClass *eStandardError_class; void *ud; /* auxiliary data */ + } mrb_state; typedef mrb_value (*mrb_func_t)(mrb_state *mrb, mrb_value); @@ -238,11 +240,11 @@ int mrb_gc_arena_save(mrb_state*); void mrb_gc_arena_restore(mrb_state*,int); void mrb_gc_mark(mrb_state*,struct RBasic*); #define mrb_gc_mark_value(mrb,val) do {\ - if (mrb_type(val) >= MRB_TT_OBJECT) mrb_gc_mark((mrb), mrb_basic_ptr(val));\ + if (mrb_type(val) >= MRB_TT_MAIN) mrb_gc_mark((mrb), mrb_basic_ptr(val));\ } while (0) void mrb_field_write_barrier(mrb_state *, struct RBasic*, struct RBasic*); #define mrb_field_write_barrier_value(mrb, obj, val) do{\ - if ((val.tt >= MRB_TT_OBJECT)) mrb_field_write_barrier((mrb), (obj), mrb_basic_ptr(val));\ + if ((val.tt >= MRB_TT_MAIN)) mrb_field_write_barrier((mrb), (obj), mrb_basic_ptr(val));\ } while (0) void mrb_write_barrier(mrb_state *, struct RBasic*); -- cgit v1.2.3