From 3dc3643e34e1e9f119594ebd550f19e876d60e26 Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby.or.jp>
Date: Mon, 29 Oct 2018 11:58:10 +0900
Subject: Marking from terminated fibers are not needed; ref #4143

The old condition marks the top-level callinfo even after the
fiber is terminated.
---
 src/gc.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/gc.c b/src/gc.c
index 9b11b7a83..bacc322e8 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -801,10 +801,10 @@ obj_free(mrb_state *mrb, struct RBasic *obj, int end)
       struct mrb_context *c = ((struct RFiber*)obj)->cxt;
 
       if (c && c != mrb->root_c) {
-        mrb_callinfo *ci = c->ci;
-        mrb_callinfo *ce = c->cibase;
+        if (!end && c->status != MRB_FIBER_TERMINATED) {
+          mrb_callinfo *ci = c->ci;
+          mrb_callinfo *ce = c->cibase;
 
-        if (!end) {
           while (ce <= ci) {
             struct REnv *e = ci->env;
             if (e && !is_dead(&mrb->gc, e) &&
-- 
cgit v1.2.3