1 -- !!! Testing callbacks
2 module Main(main) where
7 count :: IORef Int -> IO Int
13 createCounter :: IO Addr
18 foreign export dynamic mkCounter :: (IO Int) -> IO Addr
23 v1 <- _casm_GC_ `` do { typedef int (*f)(); %r=(int)((f)%0)();} while (0); '' x
25 v2 <- _casm_GC_ `` do { typedef int (*f)(); %r=(int)((f)%0)();} while (0); '' x