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

fix a leak of stable pointers

Browse Source
This commit is contained in:
Krasimir Angelov
2022-08-19 11:34:27 +02:00
parent 44c78e8cc7
commit a27e2dbbb4
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/PGF2.hsc
View File

@@ -414,7 +414,9 @@ inferExpr p e =
(#const PGF_EXN_NONE) -> do (#const PGF_EXN_NONE) -> do
c_e <- peek p_e c_e <- peek p_e
e <- deRefStablePtr c_e e <- deRefStablePtr c_e
freeStablePtr c_e
ty <- deRefStablePtr c_ty ty <- deRefStablePtr c_ty
freeStablePtr c_ty
return (Right (e,ty)) return (Right (e,ty))
(#const PGF_EXN_SYSTEM_ERROR) -> do (#const PGF_EXN_SYSTEM_ERROR) -> do
errno <- (#peek PgfExn, code) c_exn errno <- (#peek PgfExn, code) c_exn