Commit 6697c8de authored by simonmar's avatar simonmar
Browse files

[project @ 2000-10-27 14:36:16 by simonmar]

s/allocMemory__/malloc
parent 4b3b733b
......@@ -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
......
Markdown is supported
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