[ruby-dev:22635] Re: marshaling a object which have singleton class which have singleton method

なかだです。

At Tue, 20 Jan 2004 02:40:09 +0900,
Yukihiro Matsumoto wrote:
> |... と思ったらどうやら次のように常に失敗するようになっているようで、こ
> |れは意図されていない挙動ではないかと思います。
> 
> 一箇所、singleton_methodのスキップを忘れてました。

w_extended()が実クラスを返すというのはやりすぎでしょうか。


* marshal.c (w_extended): now return real class, stripping "quiet"
  singleton and internal classes.

Index: marshal.c
===================================================================
RCS file: /cvs/ruby/src/ruby/marshal.c,v
retrieving revision 1.113
diff -u -2 -p -d -r1.113 marshal.c
--- marshal.c	17 Jan 2004 15:23:59 -0000	1.113
+++ marshal.c	19 Jan 2004 17:22:00 -0000
@@ -366,5 +366,5 @@ hash_each(key, value, arg)
 }
 
-static void
+static VALUE
 w_extended(klass, arg, check)
     VALUE klass;
@@ -387,4 +387,5 @@ w_extended(klass, arg, check)
 	klass = RCLASS(klass)->super;
     }
+    return klass;
 }
 
@@ -397,7 +398,7 @@ w_class(type, obj, arg, check)
 {
     char *path;
-
     VALUE klass = CLASS_OF(obj);
-    w_extended(klass, arg, check);
+
+    klass = w_extended(klass, arg, check);
     w_byte(type, arg);
     path = RSTRING(class2path(klass))->ptr;
@@ -412,6 +413,5 @@ w_uclass(obj, base_klass, arg)
     VALUE klass = CLASS_OF(obj);
 
-    w_extended(klass, arg, Qtrue);
-    klass = rb_class_real(klass);
+    klass = w_extended(klass, arg, Qtrue);
     if (klass != base_klass) {
 	w_byte(TYPE_UCLASS, arg);


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