msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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 if ty == gu_type__GuErrno
then do perrno <- (#peek GuExn, data.data) exn then do perrno <- (#peek GuExn, data.data) exn
errno <- peek perrno errno <- peek perrno
gu_pool_free pool
ioError (errnoToIOError "readPGF" (Errno errno) Nothing (Just fpath)) 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 else return pgf
master <- newForeignPtr gu_pool_finalizer pool master <- newForeignPtr gu_pool_finalizer pool
return PGF {pgf = pgf, pgfMaster = master} return PGF {pgf = pgf, pgfMaster = master}