From 0c4e2b64ded029a20e19ef9bbd4aaf8fd0830d48 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 11 Mar 2002 14:53:51 +0000
Subject: [PATCH] [project @ 2002-03-11 14:53:51 by simonmar] Use updated FFI
 syntax

---
 GHC/TopHandler.lhs |   12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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}
-- 
1.7.10.4