Commit 41df824d authored by simonmar's avatar simonmar

[project @ 2003-02-06 09:59:34 by simonmar]

Add test for missing rts_mkFunPtr (fails on 5.04.2).
parent 7457641d
...@@ -36,3 +36,5 @@ test('ffi008', exit_code(1), compile_and_run, ['']) ...@@ -36,3 +36,5 @@ test('ffi008', exit_code(1), compile_and_run, [''])
# doesn't do -ffloat-store and gets different answers when # doesn't do -ffloat-store and gets different answers when
# optimisation is on. # optimisation is on.
test('ffi009', expect_fail_for(['optasm']), compile_and_run, ['']) test('ffi009', expect_fail_for(['optasm']), compile_and_run, [''])
test('ffi010', normal, compile_and_run, [''])
import Foreign
-- !!! GHC 5.04.2 was missing rts_mkFunPtr, which meant that this example
-- !!! didn't link.
foreign import ccall "wrapper"
makeHaskellFun :: (FunPtr a -> IO ()) -> IO (FunPtr (FunPtr a -> IO ()))
main = makeHaskellFun (const (return ()))
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