projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
305df3a
)
[project @ 2002-03-11 14:53:51 by simonmar]
author
simonmar
<unknown>
Mon, 11 Mar 2002 14:53:51 +0000
(14:53 +0000)
committer
simonmar
<unknown>
Mon, 11 Mar 2002 14:53:51 +0000
(14:53 +0000)
Use updated FFI syntax
GHC/TopHandler.lhs
patch
|
blob
|
history
diff --git
a/GHC/TopHandler.lhs
b/GHC/TopHandler.lhs
index
f0c272e
..
75d7b81
100644
(file)
--- 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
--
--
-- (c) The University of Glasgow, 2001
--
@@
-77,19
+77,19
@@
reportError bombOut str = do
else return ()
#ifndef ILX
else return ()
#ifndef ILX
-foreign label "ErrorHdrHook" errorHdrHook :: Ptr ()
+foreign import ccall "&ErrorHdrHook" errorHdrHook :: Ptr ()
#else
#else
-foreign import "ErrorHdrHook" errorHdrHook :: Ptr ()
+foreign import ccall "ErrorHdrHook" errorHdrHook :: Ptr ()
#endif
#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.
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 ()
callStackOverflowHook :: IO ()
-foreign import ccall "stg_exit" unsafe
+foreign import ccall unsafe "stg_exit"
stg_exit :: Int -> IO ()
\end{code}
stg_exit :: Int -> IO ()
\end{code}