From: simonmar <unknown>
Date: Fri, 27 Oct 2000 14:36:16 +0000 (+0000)
Subject: [project @ 2000-10-27 14:36:16 by simonmar]
X-Git-Tag: Approximately_9120_patches~3485
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6697c8de8348d7297c6f0561e96ce7767bf323bc;p=ghc-hetmet.git

[project @ 2000-10-27 14:36:16 by simonmar]
s/allocMemory__/malloc
---

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index f84311b..84bfeb3 100644
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -293,13 +293,12 @@ reAllocMem ptr sz = do
 
 allocMem :: Int -> IO Addr
 allocMem sz = do
-#if __GLASGOW_HASKELL__ < 303
    chunk <- _ccall_ malloc sz
+#if __GLASGOW_HASKELL__ < 303
    if chunk == nullAddr 
       then fail (userError "allocMem")
       else return chunk
 #else
-   chunk <- _ccall_ allocMemory__ sz
    if chunk == nullAddr 
       then constructErrorAndFail "allocMem"
       else return chunk