From 1cced27a7928a82241210ed5ccc47b9cdb9e8703 Mon Sep 17 00:00:00 2001 From: ksss Date: Sun, 15 Jun 2014 22:34:46 +0900 Subject: Proc class define before a first method mrb_define_method setting mrb->proc_class for method proc --- src/proc.c | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/proc.c') diff --git a/src/proc.c b/src/proc.c index d4fe86680..da1a52e19 100644 --- a/src/proc.c +++ b/src/proc.c @@ -201,9 +201,6 @@ mrb_init_proc(mrb_state *mrb) call_irep->iseq = call_iseq; call_irep->ilen = 1; - mrb->proc_class = mrb_define_class(mrb, "Proc", mrb->object_class); /* 15.2.17 */ - MRB_SET_INSTANCE_TT(mrb->proc_class, MRB_TT_PROC); - mrb_define_method(mrb, mrb->proc_class, "initialize", mrb_proc_initialize, MRB_ARGS_NONE()); mrb_define_method(mrb, mrb->proc_class, "initialize_copy", mrb_proc_init_copy, MRB_ARGS_REQ(1)); mrb_define_method(mrb, mrb->proc_class, "arity", mrb_proc_arity, MRB_ARGS_NONE()); -- cgit v1.2.3 From 907a29979071e14fd0cc00a56401ee1d55bef6c6 Mon Sep 17 00:00:00 2001 From: ksss Date: Sun, 15 Jun 2014 22:38:22 +0900 Subject: arity for cfunc is not implemented yet --- src/proc.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/proc.c') diff --git a/src/proc.c b/src/proc.c index da1a52e19..a61296ed4 100644 --- a/src/proc.c +++ b/src/proc.c @@ -149,9 +149,14 @@ mrb_proc_arity(mrb_state *mrb, mrb_value self) { struct RProc *p = mrb_proc_ptr(self); mrb_code *iseq = mrb_proc_iseq(mrb, p); - mrb_aspec aspec = GETARG_Ax(*iseq); + mrb_aspec aspec; int ma, ra, pa, arity; + if (MRB_PROC_CFUNC_P(p)) { + // TODO cfunc aspec not implemented yet + return mrb_fixnum_value(-1); + } + aspec = GETARG_Ax(*iseq); ma = MRB_ASPEC_REQ(aspec); ra = MRB_ASPEC_REST(aspec); pa = MRB_ASPEC_POST(aspec); -- cgit v1.2.3