From b1eefe62a01a5387177a5e80af8ac56b5fa0ce9a Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 31 May 2006 09:12:02 +0000 Subject: [PATCH] stgMallocBytesRWX --> allocateExec Not sure how I left this out of the previous patch, oh well. --- compiler/ghci/ByteCodeItbls.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/ghci/ByteCodeItbls.lhs b/compiler/ghci/ByteCodeItbls.lhs index 74346c6..6513ff6 100644 --- a/compiler/ghci/ByteCodeItbls.lhs +++ b/compiler/ghci/ByteCodeItbls.lhs @@ -357,10 +357,10 @@ load :: Storable a => PtrIO a load = do addr <- advance lift (peek addr) -foreign import ccall unsafe "stgMallocBytesRWX" - _stgMallocBytesRWX :: CInt -> IO (Ptr a) +foreign import ccall unsafe "allocateExec" + _allocateExec :: CUInt -> IO (Ptr a) malloc_exec :: Int -> IO (Ptr a) -malloc_exec bytes = _stgMallocBytesRWX (fromIntegral bytes) +malloc_exec bytes = _allocateExec (fromIntegral bytes) \end{code} -- 1.7.10.4