From 907a29979071e14fd0cc00a56401ee1d55bef6c6 Mon Sep 17 00:00:00 2001
From: ksss <co000ri@gmail.com>
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')

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