From 0f408e10bab2a3831560beedb4e4424869330d88 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 7 Oct 2009 16:23:20 +0000
Subject: * iseq.c (iseq_s_disasm): accept proc objects.  [ruby-core:18762]

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

(limited to 'iseq.c')

diff --git a/iseq.c b/iseq.c
index a14f374687..72f7f0c7bb 100644
--- a/iseq.c
+++ b/iseq.c
@@ -1011,6 +1011,15 @@ iseq_s_disasm(VALUE klass, VALUE body)
     if ((iseq = rb_method_get_iseq(body)) != 0) {
 	ret = rb_iseq_disasm(iseq->self);
     }
+    else {
+	rb_proc_t *proc;
+	VALUE iseqval;
+	GetProcPtr(body, proc);
+	iseqval = proc->block.iseq->self;
+	if (RUBY_VM_NORMAL_ISEQ_P(iseqval)) {
+	    ret = rb_iseq_disasm(iseqval);
+	}
+    }
 
     return ret;
 }
-- 
cgit v1.2.3