From 0fb05eb55f881b3508584cb3b199bddd37dc8825 Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby-lang.org>
Date: Wed, 12 Apr 2017 10:41:06 +0900
Subject: Should not unshare env stack repeatedly; fix #3601

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

(limited to 'src')

diff --git a/src/vm.c b/src/vm.c
index 05ab15e1c..a9c72cec5 100644
--- 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) */
-- 
cgit v1.2.3