[ruby-dev:945] patch for ruby-1.0* (mswin32)

木村です。

以前に出した 1.1a9用のパッチと重複してるのですが、もしこれから
1.0*をリリースするようなことがあればお願いします。 > まつもとさん
1125日版のものに対する差分です。

setbuf()の第一引数にNULLポインタが来ると、VC++のライブラリは不当
アクセスでこけてしまうのですが、他のライブラリはそうはなってない
んでしょうか?

--- io.c~	Mon Nov 17 10:13:43 1997
+++ io.c	Sat Nov 29 10:16:36 1997
@@ -880,7 +880,7 @@
     OpenFile *fptr;
 {
     if (fptr->f2 == 0) TypeError("non-writable fptr");
-    setbuf(fptr->f, NULL);
+    if (fptr->f != 0) setbuf(fptr->f, NULL);
     setbuf(fptr->f2, NULL);
     fptr->mode |= FMODE_SYNC;
 }

--- nt.c~	Tue Oct 14 18:46:40 1997
+++ nt.c	Sat Nov 29 10:21:04 1997
@@ -491,6 +491,21 @@
 		sa.lpSecurityDescriptor = NULL;
 		sa.bInheritHandle       = TRUE;
 
+		if (!reading) {
+        	FILE *fp;
+
+			fp = (_popen)(cmd, mode);
+
+			MyPopenRecord[slot].inuse = TRUE;
+			MyPopenRecord[slot].pipe = fp;
+			MyPopenRecord[slot].pid = -1;
+
+			if (!fp)
+				Fatal("cannot open pipe \"%s\" (%s)", cmd, strerror(errno));
+				return fp;
+		}
+
+
 		fRet = CreatePipe(&hInFile, &hOutFile, &sa, 2048L);
 		if (!fRet)
 			Fatal("cannot open pipe \"%s\" (%s)", cmd, strerror(errno));
@@ -609,6 +624,9 @@
 		Fatal("Invalid file pointer passed to mypclose!\n");
     }
 
+    if (MyPopenRecord[i].pid == -1) {
+        return (_pclose)(fp);
+    }
     //
     // get the return status of the process
     //


-- 
木村浩一
    e-mail [e-mail]
           [e-mail]