From 50cc9c1308a7bf4a616fa5a964936443811638aa Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 17 Sep 2001 16:51:55 +0000
Subject: [PATCH] [project @ 2001-09-17 16:51:55 by simonmar] More small
 performance improvements

---
 ghc/lib/std/PrelIO.hsc |   12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/ghc/lib/std/PrelIO.hsc b/ghc/lib/std/PrelIO.hsc
index b4da0af..76cd36d 100644
--- a/ghc/lib/std/PrelIO.hsc
+++ b/ghc/lib/std/PrelIO.hsc
@@ -3,7 +3,7 @@
 #undef DEBUG_DUMP
 
 -- -----------------------------------------------------------------------------
--- $Id: PrelIO.hsc,v 1.14 2001/09/17 16:21:41 simonmar Exp $
+-- $Id: PrelIO.hsc,v 1.15 2001/09/17 16:51:55 simonmar Exp $
 --
 -- (c) The University of Glasgow, 1992-2001
 --
@@ -626,13 +626,15 @@ commitBuffer' hdl raw sz@(I## _) count@(I## _) flush release
 			     else allocateBuffer size WriteBuffer
 
       -- release the buffer if necessary
-      if release && bufSize buf_ret == size
-	 then do
+      case buf_ret of
+        Buffer{ bufSize=buf_ret_sz, bufBuf=buf_ret_raw } -> do
+          if release && buf_ret_sz == size
+	    then do
 	      spare_bufs <- readIORef spare_buf_ref
 	      writeIORef spare_buf_ref 
-		(BufferListCons (bufBuf buf_ret) spare_bufs)
+		(BufferListCons buf_ret_raw spare_bufs)
 	      return buf_ret
-	 else
+	    else
 	      return buf_ret
 
 
-- 
1.7.10.4