# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779779839 0
# Node ID f44e40e722b248fbf27b23f7940f7e0218b85afe
# Parent  90a35a24cde1b254b1ebd735bf055f5d1d4ff6c9
(Fcall_process) [__osf__ && __alpha]:
Don't stop reading if read returns negative.

diff -r 90a35a24cde1 -r f44e40e722b2 src/callproc.c
--- a/src/callproc.c	Sat Sep 17 05:16:09 1994 +0000
+++ b/src/callproc.c	Sat Sep 17 05:30:39 1994 +0000
@@ -427,8 +427,16 @@
     register int nread;
     int first = 1;
 
-    while ((nread = read (fd[0], buf, sizeof buf)) > 0)
+    while ((nread = read (fd[0], buf, sizeof buf)) != 0)
       {
+	if (nread < 0)
+	  {
+#if defined (__osf__) && defined (__alpha)
+	    continue;		/* Work around bug in DEC OSF/1 V3.0.  */
+#else
+	    break;
+#endif
+	  }
 	immediate_quit = 0;
 	if (!NILP (buffer))
 	  insert (buf, nread);