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

bugfix in readContext

Browse Source
This commit is contained in:
Krasimir Angelov
2022-07-14 15:56:11 +02:00
parent 9ded2096fd
commit eb41d2661f
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/runtime/haskell/PGF2.hsc
View File

@@ -1467,26 +1467,26 @@ readContext str =
n_hypos <- peek p_n_hypos
if c_hypos == nullPtr && n_hypos /= 0
then return Nothing
else do hypos <- peekHypos (castPtrToStablePtr nullPtr) n_hypos c_hypos
else do hypos <- peekHypos Nothing n_hypos c_hypos
free c_hypos
return (Just hypos)
where
peekHypos last 0 p_hypo = do
if last /= castPtrToStablePtr nullPtr
then freeStablePtr last
else return ()
peekHypos mb_last 0 p_hypo = do
case mb_last of
Just last -> freeStablePtr last
_ -> return ()
return []
peekHypos last n_hypos p_hypo = do
peekHypos mb_last n_hypos p_hypo = do
bt <- fmap unmarshalBindType ((#peek PgfTypeHypo, bind_type) p_hypo)
c_cid <- (#peek PgfTypeHypo, cid) p_hypo
cid <- peekText c_cid
free c_cid
c_ty <- (#peek PgfTypeHypo, type) p_hypo
ty <- deRefStablePtr c_ty
if last /= c_ty
then freeStablePtr last
else return ()
hs <- peekHypos c_ty (n_hypos-1) (p_hypo `plusPtr` (#size PgfTypeHypo))
case mb_last of
Just last | last /= c_ty -> freeStablePtr last
_ -> return ()
hs <- peekHypos (Just c_ty) (n_hypos-1) (p_hypo `plusPtr` (#size PgfTypeHypo))
return ((bt,cid,ty):hs)
readProbabilitiesFromFile :: FilePath -> IO (Map.Map String Double)