Protect Fiber from GC in `ecall()`; fix #4104

cab6b0f3 · Yukihiro "Matz" Matsumoto · 25d390d6 · cab6b0f3
Commit cab6b0f3 authored Nov 19, 2018 by Yukihiro "Matz" Matsumoto
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

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

No files found.
--- a/src/vm.c
+++ b/src/vm.c
@@ -364,6 +364,9 @@ ecall(mrb_state *mrb)
  if (exc) {
    mrb_gc_protect(mrb, mrb_obj_value(exc));
  }
+  if (mrb->c->fib) {
+    mrb_gc_protect(mrb, mrb_obj_value(mrb->c->fib));
+  }
  mrb_run(mrb, p, env->stack[0]);
  mrb->c = c;
  c->ci = c->cibase + cioff;