testsuite/tests/rts/T10296b.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

-- A variant of the T10296a.hs test case in which
--   - the FFI machinery has been eliminated
--   - a primop (deRefStablePtr#) is used to dereference the stable pointer
--   - the stable pointers are explicitly freed at the end


import Control.Concurrent
import Control.Monad
import Foreign.StablePtr


main :: IO ()
main = do
    sp <- newStablePtr ()
    _ <- forkIO $ forever $ deRefStablePtr sp >> threadDelay 0
    sps <- replicateM 1048576 $ newStablePtr ()
    ----------------------------------------------------------
    mapM_ freeStablePtr sps
    freeStablePtr sp