should not unshare() reclaimed env objects; fix #3230

9a126278 · Yukihiro "Matz" Matsumoto · c45ed46f · 9a126278
Commit 9a126278 authored Oct 28, 2016 by Yukihiro "Matz" Matsumoto
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

src/gc.c src/gc.c +2 -1

No files found.
--- a/src/gc.c
+++ b/src/gc.c
@@ -736,7 +736,8 @@ obj_free(mrb_state *mrb, struct RBasic *obj)

        while (ce <= ci) {
          struct REnv *e = ci->env;
-          if (e && !is_dead(&mrb->gc, e) && MRB_ENV_STACK_SHARED_P(e)) {
+          if (e && !is_dead(&mrb->gc, e) &&
+              e->tt == MRB_TT_ENV && MRB_ENV_STACK_SHARED_P(e)) {
            mrb_env_unshare(mrb, e);
          }
          ci--;