From 07cab8007ee3832adbb2fd7280ce26f3c50bf5cc Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 17 Apr 2007 17:50:05 +0000
Subject: * yarvcore.c (th_init2): push initial blockptr value for  
 rb_block_given_p() outside ruby_exec().  [ruby-core:10923]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12191 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 yarvcore.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'yarvcore.c')

diff --git a/yarvcore.c b/yarvcore.c
index 75a37b6952..d8d332f9e7 100644
--- a/yarvcore.c
+++ b/yarvcore.c
@@ -318,9 +318,10 @@ th_init2(rb_thread_t *th)
     th->cfp--;
 
     th->cfp->pc = 0;
-    th->cfp->sp = th->stack;
+    th->cfp->sp = th->stack + 1;
     th->cfp->bp = 0;
     th->cfp->lfp = th->stack;
+    *th->cfp->lfp = 0;
     th->cfp->dfp = th->stack;
     th->cfp->self = Qnil;
     th->cfp->magic = 0;
-- 
cgit v1.2.3