Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
5985b613
Commit
5985b613
authored
Nov 27, 2001
by
sof
Browse files
[project @ 2001-11-27 00:18:59 by sof]
track 5.03's change to PrelHandle.fillReadBuffer
parent
343b371a
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/utils/StringBuffer.lhs
View file @
5985b613
...
...
@@ -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'
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment