From 08c210fea8ad4008e9dd461dbe803a44194dcac5 Mon Sep 17 00:00:00 2001 From: knu Date: Sat, 3 Mar 2007 07:30:46 +0000 Subject: * env.h (SCOPE_CLONE): Introduce a new scope flag to prevent a local_tbl region from getting freed many times; submitted by Chikanaga Tomoyuki in [ruby-dev:30460]. * eval.c (proc_invoke): Ditto. * gc.c (obj_free): Ditto. * parse.y (top_local_setup_gen): Ditto. git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8_6@11965 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- eval.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 23c551461..5cf8afa8d 100644 --- a/eval.c +++ b/eval.c @@ -8547,11 +8547,12 @@ proc_invoke(proc, args, self, klass) if (klass) _block.frame.last_class = klass; _block.frame.argc = RARRAY(tmp)->len; _block.frame.flags = ruby_frame->flags; - if (_block.frame.argc && (ruby_frame->flags & FRAME_DMETH)) { + if (_block.frame.argc && DMETHOD_P()) { NEWOBJ(scope, struct SCOPE); OBJSETUP(scope, tmp, T_SCOPE); scope->local_tbl = _block.scope->local_tbl; scope->local_vars = _block.scope->local_vars; + scope->flags |= SCOPE_CLONE; _block.scope = scope; } /* modify current frame */ -- cgit