Fix dangling pointer reference in T8242
authorTakano Akio <aljee@hyper.cx>
Thu, 24 Oct 2013 12:44:36 +0000 (21:44 +0900)
committerAustin Seipp <austin@well-typed.com>
Fri, 25 Oct 2013 14:20:58 +0000 (09:20 -0500)
Signed-off-by: Austin Seipp <austin@well-typed.com>
testsuite/tests/rts/T8242.hs

index a8dcef5..bbdf4bf 100644 (file)
@@ -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