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

Add test for missing rts_mkFunPtr (fails on 5.04.2).

testsuite/tests/ghc-regress/ccall/should_run/all.T

@@ -36,3 +36,5 @@ test('ffi008', exit_code(1), compile_and_run, [''])
 # doesn't do -ffloat-store and gets different answers when
 # optimisation is on.
 test('ffi009', expect_fail_for(['optasm']), compile_and_run, [''])
+
+test('ffi010', normal, compile_and_run, [''])

testsuite/tests/ghc-regress/ccall/should_run/ffi010.hs

+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 ()))