From 6697c8de8348d7297c6f0561e96ce7767bf323bc Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 27 Oct 2000 14:36:16 +0000
Subject: [PATCH] [project @ 2000-10-27 14:36:16 by simonmar]
s/allocMemory__/malloc
---
ghc/compiler/utils/StringBuffer.lhs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index f84311b52a58..84bfeb334bad 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
--
GitLab