Cut links from `irep` in heaps finalization.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/gc.c b/src/gc.c
index 6d23354ae..196fb504c 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -817,7 +817,11 @@ obj_free(mrb_state *mrb, struct RBasic *obj, int end)
       struct RProc *p = (struct RProc*)obj;
 
       if (!MRB_PROC_CFUNC_P(p) && p->body.irep) {
-        mrb_irep_decref(mrb, p->body.irep);
+        mrb_irep *irep = p->body.irep;
+        if (end) {
+          mrb_irep_cutref(mrb, irep);
+        }
+        mrb_irep_decref(mrb, irep);
       }
     }
     break;