From: simonmar <unknown>
Date: Mon, 11 Mar 2002 14:53:51 +0000 (+0000)
Subject: [project @ 2002-03-11 14:53:51 by simonmar]
X-Git-Tag: nhc98-1-18-release~1092
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=0c4e2b64ded029a20e19ef9bbd4aaf8fd0830d48;p=ghc-base.git

[project @ 2002-03-11 14:53:51 by simonmar]
Use updated FFI syntax
---

diff --git a/GHC/TopHandler.lhs b/GHC/TopHandler.lhs
index f0c272e..75d7b81 100644
--- a/GHC/TopHandler.lhs
+++ b/GHC/TopHandler.lhs
@@ -1,5 +1,5 @@
 -- -----------------------------------------------------------------------------
--- $Id: TopHandler.lhs,v 1.5 2002/02/11 12:28:57 simonmar Exp $
+-- $Id: TopHandler.lhs,v 1.6 2002/03/11 14:53:51 simonmar Exp $
 --
 -- (c) The University of Glasgow, 2001
 --
@@ -77,19 +77,19 @@ reportError bombOut str = do
         else return ()
 
 #ifndef ILX
-foreign label "ErrorHdrHook" errorHdrHook :: Ptr ()
+foreign import ccall "&ErrorHdrHook" errorHdrHook :: Ptr ()
 #else
-foreign import "ErrorHdrHook" errorHdrHook :: Ptr ()
+foreign import ccall "ErrorHdrHook" errorHdrHook :: Ptr ()
 #endif
 
-foreign import ccall "writeErrString__" unsafe
+foreign import ccall unsafe "writeErrString__"
 	writeErrString :: Ptr () -> CString -> Int -> IO ()
 
 -- SUP: Are the hooks allowed to re-enter Haskell land?  If so, remove
 -- the unsafe below.
-foreign import ccall "stackOverflow" unsafe
+foreign import ccall unsafe "stackOverflow"
 	callStackOverflowHook :: IO ()
 
-foreign import ccall "stg_exit" unsafe
+foreign import ccall unsafe "stg_exit"
 	stg_exit :: Int -> IO ()
 \end{code}