* compile.c (ricsin_compile): fix to skip __Ccont__ 2nd argument.

ko1 · ko1 · commit 1681161d5108 · 2008-09-27T12:41:52.000Z
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ricsin@19598 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
diff --git a/compile.c b/compile.c
@@ -3029,13 +3029,18 @@ ricsin_compile(rb_iseq_t *iseq, LINK_ANCHOR *ret, NODE *node, int cx)
     if (cx) {
 	args = args->nd_next;
 
-	if (nd_type(args->nd_head) == NODE_LIT) {
-	    rb_ary_push(ary, args->nd_head->nd_lit);
-	    rb_ary_push(ary, (VALUE)iseq | 0x01 /* iseq id */);
+	if (args) {
+	    if (nd_type(args->nd_head) == NODE_LIT) {
+		rb_ary_push(ary, args->nd_head->nd_lit);
+		rb_ary_push(ary, (VALUE)iseq | 0x01 /* iseq id */);
+	    }
+	    else {
+		rb_bug("boo...: %s", ruby_node_name(nd_type(args->nd_head)));
+	    }
 	}
 	else {
-	    
-	    rb_bug("boo...: %s", ruby_node_name(nd_type(args->nd_head)));
+	    rb_ary_push(ary, INT2FIX(0));
+	    rb_ary_push(ary, (VALUE)iseq | 0x01 /* iseq id */);
 	}
 
 	args = args->nd_next;
diff --git a/ricsin/ChangeLog b/ricsin/ChangeLog
@@ -1,3 +1,7 @@
+Sat Sep 27 21:40:44 2008  Koichi Sasada  <ko1@atdot.net>
+
+	* compile.c (ricsin_compile): fix to skip __Ccont__ 2nd argument.
+
 Fri Sep 26 13:39:46 2008  Koichi Sasada  <ko1@atdot.net>
 
 	* compile.c, ricsin/ricsin.rb: rename __Cx__ to __Ccont__.
diff --git a/ricsin/t.rcb b/ricsin/t.rcb
@@ -1,3 +1,23 @@
+v = true
+__Ccont__('while (v != Qnil) {') # (a)
+  v = nil                        # (b)
+__Ccont__('  rb_p(v);')          # (c)
+__Ccont__('}')                   # (d)
+__END__
+
+__END__
+v = 42
+r = __C__(%q{
+  return INT2FIX(FIX2INT(v) + 1);
+})
+p r #=> 43 �ƕ\��
+__END__
+
+p [1, 2, 3].map(&__Cb__(%q{
+  return INT2FIX(FIX2INT(arg) * 2);
+}))
+__END__
+
 p $0
 p $0 == __FILE__
 
