From b5e410468351013a327246a90198ea5ba9cd0f0b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 10 Oct 2000 09:28:50 +0000
Subject: [PATCH] [project @ 2000-10-10 09:28:50 by simonmar] Loop in
 fill_up_line_buffer if read returns EINTR.  The code
 previously just returned in this case.

---
 ghc/lib/std/cbits/fileObject.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/lib/std/cbits/fileObject.c b/ghc/lib/std/cbits/fileObject.c
index bfe279d..20c0ab3 100644
--- a/ghc/lib/std/cbits/fileObject.c
+++ b/ghc/lib/std/cbits/fileObject.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: fileObject.c,v 1.10 2000/04/14 16:26:53 rrt Exp $
+ * $Id: fileObject.c,v 1.11 2000/10/10 09:28:50 simonmar Exp $
  *
  * hPutStr Runtime Support
  */
@@ -131,7 +131,7 @@ fill_up_line_buffer(IOFileObject* fo)
   len = fo->bufSize - fo->bufWPtr;
   p   = (unsigned char*)fo->buf + fo->bufWPtr;
 
-  if ((count = 
+  while ((count = 
          (
 #ifdef USE_WINSOCK
 	   fo->flags & FILEOBJ_WINSOCK ?
-- 
1.7.10.4