[project @ 2000-05-01 14:53:47 by panne]

[ghc-hetmet.git] / ghc / lib / std / PrelHugs.lhs

diff --git a/ghc/lib/std/PrelHugs.lhs b/ghc/lib/std/PrelHugs.lhs
index 805f7b7..df948a7 100644 (file)
--- a/ghc/lib/std/PrelHugs.lhs
+++ b/ghc/lib/std/PrelHugs.lhs
@@ -79,9 +79,9 @@ connectWorlds hrealworld
 --                          StgAddr      typestr,
 --                          StgChar      callconv )
 
-foreign import "createAdjThunk" hugsCreateAdjThunk 
+foreign import "createAdjThunk" unsafe hugsCreateAdjThunk 
         :: StablePtr (a -> b) -> Addr{-mallocville String-} -> Char -> IO Addr
-foreign import "malloc" malloc 
+foreign import "malloc" unsafe malloc 
         :: Int -> IO Addr
 hugsprimCreateAdjThunk :: (a -> b) -> String -> Char -> IO Addr
 hugsprimCreateAdjThunk fun typestr callconv