GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Haskell binding: free memory pool to avoid space leak when readPGF fails

Browse Source
This commit is contained in:
hallgren
2014-05-13 14:07:36 +00:00
parent 108d546db8
commit 33af15e803
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -55,8 +55,10 @@ readPGF fpath =
if ty == gu_type__GuErrno
then do perrno <- (#peek GuExn, data.data) exn
errno <- peek perrno
gu_pool_free pool
ioError (errnoToIOError "readPGF" (Errno errno) Nothing (Just fpath))
else throw (PGFError "The grammar cannot be loaded")
else do gu_pool_free pool
throw (PGFError "The grammar cannot be loaded")
else return pgf
master <- newForeignPtr gu_pool_finalizer pool
return PGF {pgf = pgf, pgfMaster = master}