[ruby-dev:10922] Re: proper tail recursion

前田です。

At Fri, 15 Sep 2000 05:26:55 +0900,
Shugo Maeda <[e-mail]> wrote:
> tail recursiveにする方法を思いついたので、試しに実装してみました。

スレッドからreturnした場合に問題があったのと、行番号がずれていた
のを直しました。

-- 
前田 修吾

--- eval.c.orig	Fri Sep 15 10:55:55 2000
+++ eval.c	Fri Sep 15 10:56:03 2000
@@ -2384,6 +2384,7 @@
 	  tail_call_mid = node->nd_mid;
 	  tail_call_args = rb_ary_new4(argc, argv);
 	  TMP_PROTECT_END;
+	  return_check();
 	  JUMP_TAG(TAG_TAILCALL);
         }
 	break;
@@ -2391,6 +2392,7 @@
       case NODE_RETURN_VCALL:
 	tail_call_mid = node->nd_mid;
 	tail_call_args = Qnil;
+	return_check();
 	JUMP_TAG(TAG_TAILCALL);
 	break;
 
--- parse.y.orig	Fri Sep 15 11:00:07 2000
+++ parse.y	Fri Sep 15 10:58:48 2000
@@ -4481,12 +4481,14 @@
     case NODE_FCALL:
 	if (node->nd_mid == cur_mid) {
 	    nd_set_type(node, NODE_RETURN_FCALL);
+	    nd_set_line(node, ruby_sourceline);
 	    return node;
 	}
 	break;
     case NODE_VCALL:
 	if (node->nd_mid == cur_mid) {
 	    nd_set_type(node, NODE_RETURN_VCALL);
+	    nd_set_line(node, ruby_sourceline);
 	    return node;
 	}
 	break;