Avoid unsharing stack if env refers top-level; ref #3643

2026-06-08 16:11:16 +00:00 · 2017-05-25 14:13:16 +09:00
parent e0931126ff
commit f88cb88073
1 changed files with 1 additions and 0 deletions
@@ -264,6 +264,7 @@ mrb_env_unshare(mrb_state *mrb, struct REnv *e)
  mrb_value *p;

  if (!MRB_ENV_STACK_SHARED_P(e)) return;
+  if (e->cioff == 0 && e->cxt.c == mrb->root_c) return;
  MRB_ENV_UNSHARE_STACK(e);
  if (!e->c) {
    /* save block argument position (negated) */