summaryrefslogtreecommitdiff
path: root/libraries/base/tests/stableptr005.hs
diff options
context:
space:
mode:
authorNicolas Frisby <nicolas.frisby@gmail.com>2014-08-19 20:03:23 -0500
committerNicolas Frisby <nicolas.frisby@gmail.com>2014-08-19 20:04:15 -0500
commitf17ceee98221de21f896ac412b7a7ddcfc35a0c6 (patch)
tree3b3237251bee546221b9023b9c7cf0a94bc7d37a /libraries/base/tests/stableptr005.hs
parent4d3f37e0c07f35be51b8bb24374ca3163b8b9a46 (diff)
parent15faa0ec3a5a783f3949dcff6adf412d5f21bdf8 (diff)
downloadhaskell-f17ceee98221de21f896ac412b7a7ddcfc35a0c6.tar.gz
Merge branch 'master' into late-lam-lift
Silly conflicts because of new flags -- not sure how best to resolve/avoid this. git is requiring my commit to mention 'submodule' for some reason? Conflicts: compiler/main/DynFlags.hs
Diffstat (limited to 'libraries/base/tests/stableptr005.hs')
-rw-r--r--libraries/base/tests/stableptr005.hs22
1 files changed, 22 insertions, 0 deletions
diff --git a/libraries/base/tests/stableptr005.hs b/libraries/base/tests/stableptr005.hs
new file mode 100644
index 0000000000..dc4928ab6c
--- /dev/null
+++ b/libraries/base/tests/stableptr005.hs
@@ -0,0 +1,22 @@
+-- !!! triggered a temporary bug in freeStablePtr around 20020424
+
+module Main where
+import Foreign.StablePtr (newStablePtr, freeStablePtr)
+
+data Foo = A | B | C | D
+
+main :: IO ()
+main = do aSPtr <- newStablePtr A
+ bSPtr <- newStablePtr B
+ cSPtr <- newStablePtr C
+ cSPtr' <- newStablePtr C
+ freeStablePtr aSPtr
+ freeStablePtr bSPtr
+ freeStablePtr cSPtr
+ freeStablePtr cSPtr'
+ aSPtr <- newStablePtr A
+ bSPtr <- newStablePtr B
+ cSPtr <- newStablePtr C
+ dSPtr <- newStablePtr D
+ print "Hello World"
+