From 8b2c108c527baedd03b55284cf501477084e9726 Mon Sep 17 00:00:00 2001
From: ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 19 Aug 2007 04:02:21 +0000
Subject: * insnhelper.ci (vm_call_bmethod): fix to propagate information  
 that this proc is "from Method".  [ruby-dev:31490] * proc.c (method_proc,
 rb_mod_define_method): ditto. * vm.c (vm_invoke_proc_core): removed. *
 vm_core.h: ditto.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@13111 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 proc.c | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'proc.c')

diff --git a/proc.c b/proc.c
index 507f1a8bd..d1e4436bd 100644
--- a/proc.c
+++ b/proc.c
@@ -957,6 +957,7 @@ rb_mod_define_method(int argc, VALUE *argv, VALUE mod)
 	    proc->block.iseq->defined_method_id = id;
 	    proc->block.iseq->klass = mod;
 	    proc->is_lambda = Qtrue;
+	    proc->is_from_method = Qtrue;
 	}
 	node = NEW_BMETHOD(body);
     }
@@ -1351,7 +1352,8 @@ rb_proc_new(
 static VALUE
 method_proc(VALUE method)
 {
-    VALUE proc;
+    VALUE procval;
+    rb_proc_t *proc;
     /*
      * class Method
      *   def to_proc
@@ -1361,8 +1363,10 @@ method_proc(VALUE method)
      *   end
      * end
      */
-    proc = rb_iterate((VALUE (*)(VALUE))mlambda, 0, bmcall, method);
-    return proc;
+    procval = rb_iterate((VALUE (*)(VALUE))mlambda, 0, bmcall, method);
+    GetProcPtr(procval, proc);
+    proc->is_from_method = 1;
+    return procval;
 }
 
 static VALUE
-- 
cgit