GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-02 15:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

now release the FunPtr:s that are allocated for each literal callback

Browse Source
This commit is contained in:
kr.angelov
2014-09-10 15:41:53 +00:00
parent d84d3b5763
commit 5c0ef5c4ed
4 changed files with 37 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -267,8 +267,7 @@ addLiteral :: Concr -> String -> (Int -> String -> Int -> Maybe (Expr,Float,Int)
addLiteral lang cat match =
withCString cat $ \ccat ->
withGuPool $ \tmp_pool -> do
pool <- pgf_concr_get_pool (concr lang)
callback <- gu_malloc pool (#size PgfLiteralCallback)
callback <- hspgf_new_literal_callback (concr lang)
match <- wrapLiteralMatchCallback match_callback
predict <- wrapLiteralPredictCallback predict_callback
(#poke PgfLiteralCallback, match) callback match
@@ -283,7 +282,7 @@ addLiteral lang cat match =
msg <- peekCString c_msg
throwIO (PGFError msg)
else throwIO (PGFError "The literal cannot be added")
else do return ()
else return ()
where
match_callback _ clin_idx csentence poffset out_pool = do
sentence <- peekCString csentence