From a7b0ab3769d9f7f13d47c2c6f23298c87b88eee8 Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby-lang.org>
Date: Wed, 5 Apr 2017 22:28:46 +0900
Subject: Save block argument position in e->cioff; fix #3593

---
 src/kernel.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'src/kernel.c')

diff --git a/src/kernel.c b/src/kernel.c
index 8670e0651..5ac0a3774 100644
--- a/src/kernel.c
+++ b/src/kernel.c
@@ -157,8 +157,14 @@ mrb_f_block_given_p_m(mrb_state *mrb, mrb_value self)
         /* top-level does not have block slot (alway false) */
         if (sp == mrb->c->stbase)
           return mrb_false_value();
-        ci = mrb->c->cibase + e->cioff;
-        bp = ci[1].stackent + 1;
+        if (e->cioff < 0) {
+          /* use saved block arg position */
+          bp = &e->stack[-e->cioff];
+        }
+        else {
+          ci = mrb->c->cibase + e->cioff;
+          bp = ci[1].stackent + 1;
+        }
       }
     }
     if (ci->argc > 0) {
-- 
cgit v1.2.3