msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fix memory leak in the Haskell binding

Browse Source
This commit is contained in:
kr.angelov
2014-05-08 08:41:58 +00:00
parent b7bd866237
commit c2ae35cfb2
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/runtime/haskell-bind/PGF2.hsc
View File

@@ -215,12 +215,18 @@ parse lang cat sent =
if ty == gu_type__PgfParseError
then do c_tok <- (#peek GuExn, data.data) exn
tok <- peekCString c_tok
gu_pool_free parsePl
gu_pool_free exprPl
return (Left tok)
else if ty == gu_type__PgfExn
then do c_msg <- (#peek GuExn, data.data) exn
msg <- peekCString c_msg
gu_pool_free parsePl
gu_pool_free exprPl
throw (PGFError msg)
else throw (PGFError "Parsing failed")
else do gu_pool_free parsePl
gu_pool_free exprPl
throw (PGFError "Parsing failed")
else do parseFPl <- newForeignPtr gu_pool_finalizer parsePl
exprFPl <- newForeignPtr gu_pool_finalizer exprPl
exprs <- fromPgfExprEnum enum parseFPl (lang,exprFPl)