restore arena index after funcall

7511508a · Yukihiro Matsumoto · 0220953e · 7511508a
Commit 7511508a authored Aug 01, 2012 by Yukihiro Matsumoto
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

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

No files found.
--- a/src/vm.c
+++ b/src/vm.c
@@ -219,7 +219,9 @@ mrb_funcall_with_block(mrb_state *mrb, mrb_value self, const char *name, int arg
  mrb->stack[argc+1] = blk;

  if (MRB_PROC_CFUNC_P(p)) {
+    int ai = mrb->arena_idx;
    val = p->body.func(mrb, self);
+    mrb->arena_idx = ai;
    mrb->stack = mrb->stbase + ci->stackidx;
    cipop(mrb);
  }