[ruby-dev:27317] sizeof(FILE)

austin-group-l で Ruby をネタとして sizeof(FILE) の話題が出ていたので
すこし書いたら、Jeroen Ruigrok からもうひとつ sizeof(FILE) を見付けた
というメールをもらいました。(まつもとさんにも送ってあるそうですが。)

1.9 の ext/dl/cptr.c にあるそうで、次のように変えるのはどうでしょうか。

Index: ext/dl/cptr.c
===================================================================
RCS file: /src/ruby/ext/dl/cptr.c,v
retrieving revision 1.6
diff -u -p -r1.6 cptr.c
--- ext/dl/cptr.c	30 Apr 2005 13:00:16 -0000	1.6
+++ ext/dl/cptr.c	26 Sep 2005 02:51:01 -0000
@@ -426,7 +426,7 @@ rb_dlptr_s_to_ptr(VALUE self, VALUE val)
 #else
 	fp = fptr->f;
 #endif
-	return rb_dlptr_new(fp, sizeof(FILE), NULL);
+	return rb_dlptr_new(fp, 0, NULL);
     }
     else if( rb_obj_is_kind_of(val, rb_cString) == Qtrue ){
         char *ptr = StringValuePtr(val);

また、1.8 の DragonFly 用のコードはどこでも使えるはずだという人 (Paul
Eggert) もいて、まったくもってそのとおりだと思うので、次のようにするの
はどうでしょうか。

Index: ext/dl/dl.c
===================================================================
RCS file: /src/ruby/ext/dl/dl.c,v
retrieving revision 1.20.2.3
diff -u -p -r1.20.2.3 dl.c
--- ext/dl/dl.c	19 Sep 2005 09:38:39 -0000	1.20.2.3
+++ ext/dl/dl.c	26 Sep 2005 02:51:21 -0000
@@ -557,11 +557,7 @@ rb_io_to_ptr(VALUE self)
   GetOpenFile(self, fptr);
   fp = fptr->f;
 
-#if defined(__DragonFly__)
   return fp ? rb_dlptr_new(fp, 0, 0) : Qnil;
-#else
-  return fp ? rb_dlptr_new(fp, sizeof(FILE), 0) : Qnil;
-#endif
 }
 
 VALUE
-- 
[田中 哲][たなか あきら][Tanaka Akira]