[project @ 2000-10-24 10:36:08 by simonpj]

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

diff --git a/ghc/lib/std/PrelHugs.lhs b/ghc/lib/std/PrelHugs.lhs
index 805f7b7..183fa20 100644 (file)
--- a/ghc/lib/std/PrelHugs.lhs
+++ b/ghc/lib/std/PrelHugs.lhs
@@ -1,9 +1,11 @@
+% ------------------------------------------------------------------------------
+% $Id: PrelHugs.lhs,v 1.13 2000/06/30 13:39:35 simonmar Exp $
 %
-% (c) The AQUA Project, Glasgow University, 1994-2000
+% (c) The University of Glasgow, 2000
 %
 
 \begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS -fno-implicit-prelude -#include "Assembler.h" -#include "../../rts/Schedule.h" -#include "../../rts/ForeignCall.h" #-}
 
 module PrelHugs (
    hugsprimPmInt,
@@ -79,9 +81,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
@@ -191,4 +193,4 @@ hugsprimRunIO_toplevel m
          catchException (m >> hFlush stderr >> hFlush stdout)
                         (\e -> putStr ("error: " ++ show e ++ "\n"))
       )
-\end{code}
\ No newline at end of file
+\end{code}