From: sof <unknown>
Date: Tue, 27 Nov 2001 00:18:59 +0000 (+0000)
Subject: [project @ 2001-11-27 00:18:59 by sof]
X-Git-Tag: Approximately_9120_patches~513
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5985b613ec6a83c3cb2b01d8ebab1cf0bdf581f1;p=ghc-hetmet.git

[project @ 2001-11-27 00:18:59 by sof]
track 5.03's change to PrelHandle.fillReadBuffer
---

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index 60686bb..291fee4 100644
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -245,7 +245,12 @@ trySlurp handle sz_i chunk =
 		buf <- readIORef ref
 		ch <- (if not (bufferEmpty buf)
 		      then hGetcBuffered fd ref buf
-		      else do new_buf <- fillReadBuffer fd True buf
+		      else do 
+#if __GLASGOW_HASKELL__ >= 503
+		              new_buf <- fillReadBuffer fd True False buf
+#else
+		              new_buf <- fillReadBuffer fd True buf
+#endif
 		              hGetcBuffered fd ref new_buf)
 		    `catch` \e -> if isEOFError e
 			then return '\xFFFF'