Fixed a wrong condition; fix #3550

Shared TT_ENV should be unshared. Reversed condition.

Fixed a wrong condition; fix #3550
Shared TT_ENV should be unshared. Reversed condition.
ae4217e8 · Yukihiro "Matz" Matsumoto · e8dca6b0 · ae4217e8
Commit ae4217e8 authored Apr 18, 2017 by Yukihiro "Matz" Matsumoto
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

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

No files found.
--- a/src/gc.c
+++ b/src/gc.c
@@ -769,7 +769,7 @@ obj_free(mrb_state *mrb, struct RBasic *obj, int end)
        while (ce <= ci) {
          struct REnv *e = ci->env;
          if (e && !is_dead(&mrb->gc, e) &&
-              e->tt == MRB_TT_ENV && MRB_ENV_STACK_SHARED_P(e)) {
+              e->tt == MRB_TT_ENV && !MRB_ENV_STACK_SHARED_P(e)) {
            mrb_env_unshare(mrb, e);
          }
          ci--;