Commit 5093e511 authored by rrt's avatar rrt

[project @ 2001-08-15 09:24:19 by rrt]

.NET can't cope with foreign labels
parent 95165ffc
-- -----------------------------------------------------------------------------
-- $Id: PrelTopHandler.lhs,v 1.3 2001/07/12 10:37:55 rrt Exp $
-- $Id: PrelTopHandler.lhs,v 1.4 2001/08/15 09:24:19 rrt Exp $
--
-- (c) The University of Glasgow, 2001
--
......@@ -67,7 +67,11 @@ reportError bombOut str = do
then stg_exit 1
else return ()
#ifndef ILX
foreign label "ErrorHdrHook" errorHdrHook :: Ptr ()
#else
foreign import "ErrorHdrHook" errorHdrHook :: Ptr ()
#endif
foreign import ccall "writeErrString__" unsafe
writeErrString :: Ptr () -> CString -> Int -> IO ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment