From ae4217e813a1067824965ad3ddc686e2dc30fddd Mon Sep 17 00:00:00 2001 From: "Yukihiro \"Matz\" Matsumoto" Date: Tue, 18 Apr 2017 16:47:24 +0900 Subject: Fixed a wrong condition; fix #3550 Shared TT_ENV should be unshared. Reversed condition. --- src/gc.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/gc.c b/src/gc.c index 15b92e638..81f47eed7 100644 --- 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--; -- cgit v1.2.3