Commit 0920c8ee authored by simonmar's avatar simonmar
Browse files

[project @ 2002-04-02 09:09:21 by simonmar]

The hPutBuf bug looks to be in 5.00 as well as 4.08 - so enable the
workaround on GHC <= 5.00.  Hopefully should fix bootstrapping
problems on Alpha.
parent bf448f42
...@@ -227,8 +227,8 @@ writeBinMem (BinMem _ ix_r sz_r arr_r) fn = do ...@@ -227,8 +227,8 @@ writeBinMem (BinMem _ ix_r sz_r arr_r) fn = do
arr <- readIORef arr_r arr <- readIORef arr_r
ix <- readFastMutInt ix_r ix <- readFastMutInt ix_r
hPutArray h arr ix hPutArray h arr ix
#if __GLASGOW_HASKELL__ < 500 #if __GLASGOW_HASKELL__ <= 500
-- workaround a bug in ghc 4.08's implementation of hPutBuf (it doesn't -- workaround a bug in old implementation of hPutBuf (it doesn't
-- set the FILEOBJ_RW_WRITTEN flag on the file object, so the file doens't -- set the FILEOBJ_RW_WRITTEN flag on the file object, so the file doens't
-- get flushed properly). Adding an extra '\0' doens't do any harm. -- get flushed properly). Adding an extra '\0' doens't do any harm.
hPutChar h '\0' hPutChar h '\0'
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment