[project @ 2000-10-10 09:28:50 by simonmar]

[ghc-hetmet.git] / ghc / lib / std / cbits / fileObject.c

diff --git a/ghc/lib/std/cbits/fileObject.c b/ghc/lib/std/cbits/fileObject.c
index 617fca2..20c0ab3 100644 (file)
--- 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.9 2000/04/12 17:33:16 simonmar Exp $
+ * $Id: fileObject.c,v 1.11 2000/10/10 09:28:50 simonmar Exp $
  *
  * hPutStr Runtime Support
  */
@@ -128,10 +128,10 @@ fill_up_line_buffer(IOFileObject* fo)
       fo->bufWPtr=0;
   }
   ipos = fo->bufWPtr;
-  len = fo->bufSize - fo->bufWPtr + 1;
+  len = fo->bufSize - fo->bufWPtr;
   p   = (unsigned char*)fo->buf + fo->bufWPtr;
 
-  if ((count = 
+  while ((count = 
          (
 #ifdef USE_WINSOCK
           fo->flags & FILEOBJ_WINSOCK ?