From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 31 May 2006 09:12:02 +0000 (+0000)
Subject: stgMallocBytesRWX --> allocateExec
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b1eefe62a01a5387177a5e80af8ac56b5fa0ce9a

stgMallocBytesRWX --> allocateExec
Not sure how I left this out of the previous patch, oh well.
---

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}