diff options
author | Nicolas Frisby <nicolas.frisby@gmail.com> | 2014-08-19 20:03:23 -0500 |
---|---|---|
committer | Nicolas Frisby <nicolas.frisby@gmail.com> | 2014-08-19 20:04:15 -0500 |
commit | f17ceee98221de21f896ac412b7a7ddcfc35a0c6 (patch) | |
tree | 3b3237251bee546221b9023b9c7cf0a94bc7d37a /libraries/base/tests/stableptr005.hs | |
parent | 4d3f37e0c07f35be51b8bb24374ca3163b8b9a46 (diff) | |
parent | 15faa0ec3a5a783f3949dcff6adf412d5f21bdf8 (diff) | |
download | haskell-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.hs | 22 |
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" + |