projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4e7d56f
)
[project @ 1999-07-14 15:28:08 by simonmar]
author
simonmar
<unknown>
Wed, 14 Jul 1999 15:28:08 +0000
(15:28 +0000)
committer
simonmar
<unknown>
Wed, 14 Jul 1999 15:28:08 +0000
(15:28 +0000)
pre-4.03 didn't have __HASKELL98__, use something else.
ghc/compiler/utils/StringBuffer.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/utils/StringBuffer.lhs
b/ghc/compiler/utils/StringBuffer.lhs
index
f70500a
..
ae6d872
100644
(file)
--- a/
ghc/compiler/utils/StringBuffer.lhs
+++ b/
ghc/compiler/utils/StringBuffer.lhs
@@
-279,10
+279,10
@@
reAllocMem :: Addr -> Int -> IO Addr
reAllocMem ptr sz = do
chunk <- _ccall_ realloc ptr sz
if chunk == nullAddr
-#ifndef __HASKELL98__
- then fail (userError "reAllocMem")
-#else
+#if __GLASGOW_HASKELL__ >= 400
then fail "reAllocMem"
+#else
+ then fail (userError "reAllocMem")
#endif
else return chunk