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

fix double release for stable pointers

Browse Source
This commit is contained in:
krangelov
2021-09-22 11:16:29 +02:00
parent be43b0ba35
commit 58b8c2771e
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/runtime/c/pgf/expr.cxx
View File

@@ -812,6 +812,9 @@ PgfType PgfExprParser::parse_type()
size_t n_hypos = 0;
PgfTypeHypo *hypos = NULL;
size_t n_types = 0;
PgfType *types = NULL;
PgfText *cat = NULL;
size_t n_args = 0;
@@ -851,6 +854,9 @@ PgfType PgfExprParser::parse_type()
if (type == 0)
goto exit;
types = (PgfType*) realloc(types, sizeof(PgfType)*(n_types+1));
types[n_types++] = type;
if (token_tag != PGF_TOKEN_RPAR)
goto exit;
@@ -891,6 +897,9 @@ PgfType PgfExprParser::parse_type()
bt->type = u->dtyp(0,NULL,cat,n_args,args);
n_hypos++;
types = (PgfType*) realloc(types, sizeof(PgfType)*(n_types+1));
types[n_types++] = bt->type;
while (n_args > 0) {
u->free_ref(args[--n_args]);
}
@@ -909,11 +918,16 @@ PgfType PgfExprParser::parse_type()
exit:
while (n_hypos > 0) {
PgfTypeHypo *hypo = &hypos[--n_hypos];
u->free_ref(hypo->type);
free(hypo->cid);
}
free(hypos);
while (n_types > 0) {
PgfType type = types[--n_types];
u->free_ref(type);
}
free(types);
free(cat);
while (n_args > 0) {