From: simonmar <unknown>
Date: Wed, 14 Jul 1999 15:28:08 +0000 (+0000)
Subject: [project @ 1999-07-14 15:28:08 by simonmar]
X-Git-Tag: Approximately_9120_patches~5986
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=f1d1a25d571e790dbf63682f6fc99c5ce8296447

[project @ 1999-07-14 15:28:08 by simonmar]
pre-4.03 didn't have __HASKELL98__, use something else.
---

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index f70500a..ae6d872 100644
--- 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