From f88cb8807343c91c2fbad486aa6b09ccee0b9643 Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby-lang.org>
Date: Thu, 25 May 2017 14:13:16 +0900
Subject: Avoid unsharing stack if env refers top-level; ref #3643

---
 src/vm.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/vm.c b/src/vm.c
index b3e06cb54..4d7fc9720 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -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) */
-- 
cgit v1.2.3