Commit a93f881d authored by simonmar's avatar simonmar
Browse files

[project @ 2002-03-28 10:28:07 by simonmar]

Update
parent f96a9a1e
......@@ -3,12 +3,11 @@
module Main where
import Foreign
import Stable
-- simple test for building/dereferencing stable ptrs
main
= do l <- mapM makeStablePtr [1..100000]
= do l <- mapM newStablePtr [1..100000]
sum <- stable_sum l
print sum
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment