diff options
Diffstat (limited to 'src/kernel.c')
| -rw-r--r-- | src/kernel.c | 10 |
1 files changed, 8 insertions, 2 deletions
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) { |