X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeItbls.lhs;h=6513ff62c5eb3f204960c487a20a6d123f75d22a;hb=63739e3fb4bd70e9c789d4d05fcbc66debd1401f;hp=74346c621865ca38215bd14ed06d9ef10bf5049d;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

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}