summaryrefslogtreecommitdiff
path: root/proc.c
diff options
context:
space:
mode:
authorko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2007-12-24 09:09:21 +0000
committerko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2007-12-24 09:09:21 +0000
commite2e23e688fd655c55112872b10a7bd6840314653 (patch)
tree1be14c402bfd9c6b51b1e674b5e2df8ec1ccd3ab /proc.c
parentc332266ee0d026340e369c9b67d01837ba2ed2e4 (diff)
* iseq.c (Init_ISeq): disable ISeq.load() because there is no verifier.
* iseq.c, proc.c: add ISeq.disasm(method). git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@14595 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'proc.c')
-rw-r--r--proc.c17
1 files changed, 16 insertions, 1 deletions
diff --git a/proc.c b/proc.c
index d316f042be..d9eca588ab 100644
--- a/proc.c
+++ b/proc.c
@@ -652,7 +652,7 @@ proc_to_proc(VALUE self)
* eval("param", b) #=> 99
*/
-void
+static void
bm_mark(struct METHOD *data)
{
rb_gc_mark(data->rclass);
@@ -661,6 +661,21 @@ bm_mark(struct METHOD *data)
rb_gc_mark((VALUE)data->body);
}
+NODE *
+rb_method_body(VALUE method)
+{
+ struct METHOD *data;
+
+ if (TYPE(method) == T_DATA &&
+ RDATA(method)->dmark == (RUBY_DATA_FUNC) bm_mark) {
+ Data_Get_Struct(method, struct METHOD, data);
+ return data->body;
+ }
+ else {
+ return 0;
+ }
+}
+
NODE *rb_get_method_body(VALUE klass, ID id, ID *idp);
static VALUE