[ruby-dev:27357] Re: possible SEGV in rb_autoload_load?

なかだです。

At Wed, 28 Sep 2005 19:28:19 +0900,
H.Yamamoto wrote in [ruby-dev:27351]:
> >こっちはなぜか手元では const_missing() の戻り値を使うように直し
> >てありました。

理由を思い出せなかったので、もう一度よく考えてみましたが、

> const_missing が何をしているのかもよくわかってないので、お任せ
> したいです。

ここはconst_missing()を呼ばずにそのままreturnしたほうがいいとい
う気がして来ました。const_missing()は、そのあと最終的に見付から
なかった場合にだけ呼ばれるべきではないかと。


Index: eval.c
===================================================================
RCS file: /cvs/ruby/src/ruby/eval.c,v
retrieving revision 1.832
diff -U2 -p -r1.832 eval.c
--- eval.c      20 Sep 2005 09:26:03 -0000      1.832
+++ eval.c      28 Sep 2005 14:28:31 -0000
@@ -1796,5 +1796,5 @@ ev_const_get(NODE *cref, ID id, VALUE se
        while (RCLASS(klass)->iv_tbl && st_lookup(RCLASS(klass)->iv_tbl, id, 
&result)) {
            if (result == Qundef) {
-               rb_autoload_load(klass, id);
+               if (!RTEST(rb_autoload_load(klass, id))) break;
                continue;
            }
Index: intern.h
===================================================================
RCS file: /cvs/ruby/src/ruby/intern.h,v
retrieving revision 1.182
diff -U2 -p -r1.182 intern.h
--- intern.h    14 Sep 2005 08:30:15 -0000      1.182
+++ intern.h    28 Sep 2005 14:30:24 -0000
@@ -532,5 +532,5 @@ void rb_name_class(VALUE, ID);
 VALUE rb_class_name(VALUE);
 void rb_autoload(VALUE, ID, const char*);
-void rb_autoload_load(VALUE, ID);
+VALUE rb_autoload_load(VALUE, ID);
 VALUE rb_autoload_p(VALUE, ID);
 void rb_gc_mark_global_tbl(void);
Index: variable.c
===================================================================
RCS file: /cvs/ruby/src/ruby/variable.c,v
retrieving revision 1.128
diff -U2 -p -r1.128 variable.c
--- variable.c  24 Sep 2005 00:17:41 -0000      1.128
+++ variable.c  28 Sep 2005 14:28:43 -0000
@@ -1216,5 +1216,5 @@ autoload_delete(VALUE mod, ID id)
 }
 
-void
+VALUE
 rb_autoload_load(VALUE klass, ID id)
 {
@@ -1223,7 +1223,7 @@ rb_autoload_load(VALUE klass, ID id)
 
     if (!load || !(file = load->nd_lit) || rb_provided(RSTRING(file)->ptr)) {
-       const_missing(klass, id);
+       return Qfalse;
     }
-    rb_require_safe(file, load->nd_nth);
+    return rb_require_safe(file, load->nd_nth);
 }
 
@@ -1284,5 +1284,5 @@ rb_const_get_0(VALUE klass, ID id, int e
        while (RCLASS(tmp)->iv_tbl && st_lookup(RCLASS(tmp)->iv_tbl,id,&value)) 
{
            if (value == Qundef) {
-               rb_autoload_load(tmp, id);
+               if (!RTEST(rb_autoload_load(tmp, id))) break;
                continue;
            }


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