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

fixed memory leak in the Haskell binding to the C runtime

Browse Source
This commit is contained in:
kr.angelov
2014-06-16 08:49:13 +00:00
parent bc01842f3c
commit 21e855c91d
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -76,6 +76,7 @@ languages p =
do fptr <- wrapMapItorCallback (getLanguages ref) do fptr <- wrapMapItorCallback (getLanguages ref)
(#poke GuMapItor, fn) itor fptr (#poke GuMapItor, fn) itor fptr
pgf_iter_languages (pgf p) itor nullPtr pgf_iter_languages (pgf p) itor nullPtr
freeHaskellFunPtr fptr
readIORef ref readIORef ref
where where
getLanguages :: IORef (Map.Map String Concr) -> MapItorCallback getLanguages :: IORef (Map.Map String Concr) -> MapItorCallback
@@ -171,6 +172,7 @@ lookupMorpho (Concr concr master) sent = unsafePerformIO $
(#poke PgfMorphoCallback, callback) cback fptr (#poke PgfMorphoCallback, callback) cback fptr
withCString sent $ \c_sent -> withCString sent $ \c_sent ->
pgf_lookup_morpho concr c_sent cback nullPtr pgf_lookup_morpho concr c_sent cback nullPtr
freeHaskellFunPtr fptr
readIORef ref readIORef ref
fullFormLexicon :: Concr -> [(String, [MorphoAnalysis])] fullFormLexicon :: Concr -> [(String, [MorphoAnalysis])]