[ruby-dev:18761] Re: Different caller(0) in trace_func when NameError from toplevel between 1.6 and 1.7

なかだです。

At Wed, 13 Nov 2002 13:32:19 +0900,
NAKAMURA, Hiroshi <[e-mail]> wrote:
> > > 同様のものとしては、begin、ensure、elseがありますね。
> > 
> > ensureとelseは次の行になるような気がしますが、なんか勘違いして
> > ますか。
> 
> 1: if false
> 2:   1
> 3: else
> 4:   2
> 5: end
> 
> だと、現状
>   event: 行
>   line: 1
>   line: 1 (*1)
>   line: 4
> と遷移します。これを、
>   line: 1
>   condition: 1
>   line: 3
>   line: 4
> と遷移させたいという意図でした。うーん、でも、よく考えたら
> おかしいな。というか、ノードがないんだからどうしようもない。
> 
> どうしてもやるとしたら、NODE_IFでnd_body/nd_elseに行く前に
> 「condition-true/false」とか発生させるのかしらん。

そうなると思いますが、やはりelseは消えてますから3行目では発生さ
せられません。それでよければこんなとこでしょうか。Proc#to_sの修
正と[ruby-dev:18755]も含んでます。


Index: eval.c
===================================================================
RCS file: /cvs/ruby/src/ruby/eval.c,v
retrieving revision 1.351
diff -u -2 -p -w -r1.351 eval.c
--- eval.c	9 Nov 2002 02:52:55 -0000	1.351
+++ eval.c	13 Nov 2002 05:19:36 -0000
@@ -2101,4 +2101,5 @@ call_trace_func(event, node, self, id, k
     if (node) {
 	ruby_current_node = node;
+	ruby_frame->node = node;
 	ruby_sourcefile = node->nd_file;
 	ruby_sourceline = nd_line(node);
@@ -2319,10 +2320,12 @@ rb_eval(self, n)
 
       case NODE_IF:
+	{
+	    VALUE val = rb_eval(self, node->nd_cond);
 	if (trace_func) {
-	    call_trace_func("line", node, self,
+		call_trace_func(RTEST(val) ? "true" : "false", node, self,
 			    ruby_frame->last_func,
 			    ruby_frame->last_class);	
 	}
-	if (RTEST(rb_eval(self, node->nd_cond))) {
+	    if (RTEST(val)) {
 	    node = node->nd_body;
 	}
@@ -2330,4 +2333,5 @@ rb_eval(self, n)
 	    node = node->nd_else;
 	}
+	}
 	goto again;
 
@@ -6684,4 +6688,5 @@ proc_to_s(self, other)
 {
     struct BLOCK *data;
+    NODE *node;
     char *cname = rb_class2name(CLASS_OF(self));
     const int w = (SIZEOF_LONG * CHAR_BIT) / 4;
@@ -6690,9 +6695,9 @@ proc_to_s(self, other)
 
     Data_Get_Struct(self, struct BLOCK, data);
-    if (data->body) {
-	len += strlen(data->body->nd_file) + 2 + (SIZEOF_LONG*CHAR_BIT-NODE_LSHIFT)/3;
+    if ((node = data->frame.node) || (node = data->body)) {
+	len += strlen(node->nd_file) + 2 + (SIZEOF_LONG*CHAR_BIT-NODE_LSHIFT)/3;
 	str = rb_str_new(0, len);
 	sprintf(RSTRING(str)->ptr, "#<%s:0x%.*lx@%s:%d>", cname, w, (VALUE)data->tag,
-		data->body->nd_file, nd_line(data->body));
+		node->nd_file, nd_line(node));
     }
     else {


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦