GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki 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 if ty == gu_type__PgfParseError
then do c_tok <- (#peek GuExn, data.data) exn then do c_tok <- (#peek GuExn, data.data) exn
tok <- peekCString c_tok tok <- peekCString c_tok
gu_pool_free parsePl
gu_pool_free exprPl
return (Left tok) return (Left tok)
else if ty == gu_type__PgfExn else if ty == gu_type__PgfExn
then do c_msg <- (#peek GuExn, data.data) exn then do c_msg <- (#peek GuExn, data.data) exn
msg <- peekCString c_msg msg <- peekCString c_msg
gu_pool_free parsePl
gu_pool_free exprPl
throw (PGFError msg) 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 else do parseFPl <- newForeignPtr gu_pool_finalizer parsePl
exprFPl <- newForeignPtr gu_pool_finalizer exprPl exprFPl <- newForeignPtr gu_pool_finalizer exprPl
exprs <- fromPgfExprEnum enum parseFPl (lang,exprFPl) exprs <- fromPgfExprEnum enum parseFPl (lang,exprFPl)