From: simonmar <unknown>
Date: Thu, 11 Mar 2004 10:00:23 +0000 (+0000)
Subject: [project @ 2004-03-11 10:00:23 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~10
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=798614f1e492463c5cbe29e5ff19d446885c0d54;p=ghc-hetmet.git

[project @ 2004-03-11 10:00:23 by simonmar]
Don't call hGetArray with a size of zero (fixes read021).
---

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index 7c61b5b..6c5d653 100644
--- 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")