[project @ 2004-03-11 10:00:23 by simonmar]

Don't call hGetArray with a size of zero (fixes read021).

[project @ 2004-03-11 10:00:23 by simonmar]
Don't call hGetArray with a size of zero (fixes read021).
798614f1 · simonmar · 4fc797aa · 798614f1
Commit 798614f1 authored Mar 11, 2004 by simonmar
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

ghc/compiler/utils/StringBuffer.lhs ghc/compiler/utils/StringBuffer.lhs +1 -1

No files found.
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -98,7 +98,7 @@ hGetStringBuffer fname = do
   r <- hGetBufBA h arr size_i
 #else
   arr <- newArray_ (0,size_i-1)
-   r <- hGetArray h arr size_i
+   r <- if size_i == 0 then return 0 else hGetArray h arr size_i
 #endif
   if (r /= size_i)
 	then ioError (userError "short read of file")