testsuite/tests/lib/should_run/stableptr004.hs


1
2
3
4
5
6
7
8
9
10
11
12

import Foreign.StablePtr

-- compile without optimisation.
-- run with +RTS -D256 to see the stable pointer being garbage collected.

main = do
  let xs = [ 1 .. 50000 ]
  let ys = [ 1 .. 60000 ]
  s1 <- newStablePtr xs
  print (sum xs)
  freeStablePtr s1
  print (sum ys)