From 7872d2974d379975943fd8346cabf5198c3ee7d7 Mon Sep 17 00:00:00 2001 From: Narihiro Nakamura Date: Sun, 6 Jan 2013 23:48:49 +0900 Subject: These places need the write barrier --- src/variable.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/variable.c') diff --git a/src/variable.c b/src/variable.c index 5d46ffc60..6aa6e71bd 100644 --- a/src/variable.c +++ b/src/variable.c @@ -710,6 +710,7 @@ mrb_mod_cv_set(mrb_state *mrb, struct RClass * c, mrb_sym sym, mrb_value v) iv_tbl *t = c->iv; if (iv_get(mrb, t, sym, NULL)) { + mrb_write_barrier(mrb, (struct RBasic*)c); iv_put(mrb, t, sym, v); return; } @@ -721,6 +722,7 @@ mrb_mod_cv_set(mrb_state *mrb, struct RClass * c, mrb_sym sym, mrb_value v) cls->iv = iv_new(mrb); } + mrb_write_barrier(mrb, (struct RBasic*)cls); iv_put(mrb, cls->iv, sym, v); } @@ -771,6 +773,7 @@ mrb_vm_cv_set(mrb_state *mrb, mrb_sym sym, mrb_value v) iv_tbl *t = c->iv; if (iv_get(mrb, t, sym, NULL)) { + mrb_write_barrier(mrb, (struct RBasic*)c); iv_put(mrb, t, sym, v); return; } @@ -781,6 +784,7 @@ mrb_vm_cv_set(mrb_state *mrb, mrb_sym sym, mrb_value v) if (!c->iv) { c->iv = iv_new(mrb); } + mrb_write_barrier(mrb, (struct RBasic*)c); iv_put(mrb, c->iv, sym, v); } -- cgit v1.2.3