[ruby-dev:12862] Re: recursive malloc / fork deadlock / thread deadlock

ごとうゆうぞうです。

In message <[e-mail]>,
 `[e-mail] (Yukihiro Matsumoto)' wrote:
> FreeBSDな人はこの辺をハックしてみませんか？

添付の修正で、malloc の再入は起きなくなったみたいです。
setvbuf のない環境ってあるのかどうか知りませんが、考慮
した方がいいんでしょうか？

それと、調整の余地はあるかもしれませんが、手元の環境で
は少しスピードが落ちてしまいました。

cheshire$ time ruby -ve 'open("/dev/zero"){ |i| 1000000.times{ i.read(1) } }'
ruby 1.7.0 (2001-04-02) [i386-freebsdelf5.0]

real    0m2.626s
user    0m2.591s
sys     0m0.002s
cheshire$ time ./ruby -ve 'open("/dev/zero"){ |i| 1000000.times{ i.read(1) } }'
ruby 1.7.0 (2001-04-02) [i386-freebsdelf5.0]

real    0m2.750s
user    0m2.738s
sys     0m0.002s

--
ごとうゆうぞう

diff -u2 ruby/io.c ruby.local/io.c
--- ruby/io.c	Wed Apr 11 03:09:29 2001
+++ ruby.local/io.c	Wed Apr 11 03:43:47 2001
@@ -1380,4 +1380,6 @@
 	}
     }
+    if (setvbuf(file, NULL, _IOFBF, 0) == EOF) rb_sys_fail(fname);
+
 #ifdef __human68k__
     fmode(file, _IOTEXT);
@@ -1923,9 +1925,11 @@
     }
 
-    if (freopen(RSTRING(fname)->ptr, mode, fptr->f) == 0) {
+    if (freopen(RSTRING(fname)->ptr, mode, fptr->f) == 0 ||
+	setvbuf(fptr->f, NULL, _IOFBF, 0) == EOF){
 	rb_sys_fail(fptr->path);
     }
     if (fptr->f2) {
-	if (freopen(RSTRING(fname)->ptr, "w", fptr->f2) == 0) {
+	if (freopen(RSTRING(fname)->ptr, "w", fptr->f2) == 0 ||
+	    setvbuf(fptr->f, NULL, _IOFBF, 0) == EOF){
 	    rb_sys_fail(fptr->path);
 	}
diff -u2 ruby/ruby.c ruby.local/ruby.c
--- ruby/ruby.c	Wed Apr 11 02:59:52 2001
+++ ruby.local/ruby.c	Wed Apr 11 02:52:44 2001
@@ -734,5 +734,5 @@
 	FILE *fp = fopen(fname, "r");
 
-	if (fp == NULL) {
+	if (fp == NULL || setvbuf(fp, NULL, _IOFBF, 0) == EOF){
 	    rb_load_fail(fname);
 	}