From 5df82e357cb1c083e88c93d27a9f227b79c74288 Mon Sep 17 00:00:00 2001
From: Miura Hideki <m-72@tf6.so-net.ne.jp>
Date: Sun, 9 Feb 2014 16:42:25 +0900
Subject: Store raw stack address in callinfo instead of offset from stbas

---
 src/kernel.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/kernel.c')

diff --git a/src/kernel.c b/src/kernel.c
index b17977052..f13a13ea2 100644
--- a/src/kernel.c
+++ b/src/kernel.c
@@ -218,7 +218,7 @@ mrb_f_block_given_p_m(mrb_state *mrb, mrb_value self)
   mrb_value *bp;
   mrb_bool given_p;
 
-  bp = mrb->c->stbase + ci->stackidx + 1;
+  bp = ci->stackent + 1;
   ci--;
   if (ci <= mrb->c->cibase) {
     given_p = 0;
-- 
cgit v1.2.3