Should not unshare env stack repeatedly; fix #3601

0fb05eb5 · Yukihiro "Matz" Matsumoto · 2a4db1a4 · 0fb05eb5
Commit 0fb05eb5 authored Apr 12, 2017 by Yukihiro "Matz" Matsumoto
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

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

No files found.
--- a/src/vm.c
+++ b/src/vm.c
@@ -260,6 +260,7 @@ mrb_env_unshare(mrb_state *mrb, struct REnv *e)
  mrb_value *p = (mrb_value *)mrb_malloc(mrb, sizeof(mrb_value)*len);
  ptrdiff_t cioff = e->cioff;

+  if (!MRB_ENV_STACK_SHARED_P(e)) return;
  MRB_ENV_UNSHARE_STACK(e);
  if (!e->c) {
    /* save block argument position (negated) */