From 72581696d35e8da79a3a9d606294602c83abdf9f Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby.or.jp>
Date: Thu, 3 May 2018 15:15:30 +0900
Subject: `env` referred from top-level callinfo should not be unshared; fix
 #4019

Because `mirb` keeps top-level environment across each iteration.
---
 src/vm.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/vm.c b/src/vm.c
index a80d170b4..c9e923ee0 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -300,6 +300,7 @@ mrb_env_unshare(mrb_state *mrb, struct REnv *e)
 
     if (!MRB_ENV_STACK_SHARED_P(e)) return;
     if (e->cxt != mrb->c) return;
+    if (e == mrb->c->cibase->env) return; /* for mirb */
     p = (mrb_value *)mrb_malloc(mrb, sizeof(mrb_value)*len);
     if (len > 0) {
       stack_copy(p, e->stack, len);
-- 
cgit v1.2.3