mark root fiber object; close #1865

9201af7d · Yukihiro "Matz" Matsumoto · 2f8dbd8e · 9201af7d
Commit 9201af7d authored Mar 18, 2014 by Yukihiro "Matz" Matsumoto
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

src/gc.c src/gc.c +3 -0

No files found.
--- a/src/gc.c
+++ b/src/gc.c
@@ -697,6 +697,9 @@ root_scan_phase(mrb_state *mrb)
  mrb_gc_mark(mrb, (struct RBasic*)mrb->exc);

  mark_context(mrb, mrb->root_c);
+  if (mrb->root_c->fib) {
+    mrb_gc_mark(mrb, (struct RBasic*)mrb->root_c->fib);
+  }
  if (mrb->root_c != mrb->c) {
    mark_context(mrb, mrb->c);
  }