[commit: testsuite] master: Fix dangling pointer reference in T8242 (de87db8)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/de87db840e01ed8acdf453185dbc45e019b5c565/testsuite

>---------------------------------------------------------------

commit de87db840e01ed8acdf453185dbc45e019b5c565
Author: Takano Akio <aljee at hyper.cx>
Date:   Thu Oct 24 21:44:36 2013 +0900

    Fix dangling pointer reference in T8242
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

de87db840e01ed8acdf453185dbc45e019b5c565
 tests/rts/T8242.hs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/rts/T8242.hs b/tests/rts/T8242.hs
index a8dcef5..bbdf4bf 100644
--- a/tests/rts/T8242.hs
+++ b/tests/rts/T8242.hs
@@ -13,7 +13,8 @@ import GHC.Exts
 foreign import ccall unsafe "&puts" puts :: FunPtr (Ptr CChar -> IO ())
 
 main :: IO ()
-main = alloca $ \ptr@(Ptr p) -> do
+main = do
+  ptr@(Ptr p) <- malloc
   poke (ptr :: Ptr CChar) 0
   setNumCapabilities 2
   let !(FunPtr puts#) = puts