[project @ 2000-04-12 17:33:16 by simonmar]

This commit fixes the trace/stderr problem, and also fixes some other
problems with the I/O library.

	- handles now contain a list of free buffers, which are
	  guaranteed to be the same size as the primary handle buffer.

	- hPutStr now doesn't evaluate any part of the input string with
	  the handle locked.  Instead, it acquires a buffer from the handle
	  copies characters into it, then commits the buffer.  This is
	  better for concurrency too, because the handle is only locked
	  while we're actually reading/writing, not while evaluating.

	- there were an even number of off-by-one errors in the I/O system
	  which compensated for each other.  This has been fixed.

	- made the I/O subsystem a little more exception-safe.  It still
	  isn't totally exception-safe, but I can't face doing that
	  without a complete rewrite of this thing in Haskell.

	- add hPutBufFull and hGetBufFull.  The compiler probably needs to
	  be updated to use these too.

1 files changed, 5 insertions, 1 deletions

diff --git a/ghc/lib/std/cbits/flushFile.c b/ghc/lib/std/cbits/flushFile.c
index 4416559a33..5631f38f95 100644
--- a/ghc/lib/std/cbits/flushFile.c
+++ b/ghc/lib/std/cbits/flushFile.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: flushFile.c,v 1.6 1999/11/25 16:54:14 simonmar Exp $
+ * $Id: flushFile.c,v 1.7 2000/04/12 17:33:16 simonmar Exp $
  *
  * hFlush Runtime Support
  */
@@ -38,6 +38,10 @@ flushBuffer(StgForeignPtr ptr)
        if (rc<0) return rc;
     }
     
+    /* TODO: shouldn't we do the lseek stuff from flushReadBuffer
+     * here???? --SDM
+     */
+
     /* Reset read & write pointer for input buffers */
     if ( (fo->flags & FILEOBJ_READ) ) {
        fo->bufRPtr=0;