blob: be271c1aae5f74d5eba3c3c1cca65034a287409d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module B where
import Foreign.StablePtr
id2 :: Int
id2 = 2
createHeapObjectB :: IO (StablePtr [Int])
createHeapObjectB = do
newStablePtr [2+id2]
freeHeapObjectB :: StablePtr [Int] -> IO ()
freeHeapObjectB obj = freeStablePtr obj
foreign export ccall createHeapObjectB :: IO (StablePtr [Int])
foreign export ccall freeHeapObjectB :: StablePtr [Int] -> IO ()
|
