public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r10-8775] Fortran: Avoid double-free with parse error (PR96041, PR93423)
@ 2020-09-18 20:19 Harald Anlauf
0 siblings, 0 replies; only message in thread
From: Harald Anlauf @ 2020-09-18 20:19 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:13421890f81844acb134a460eda7132db3e504ed
commit r10-8775-g13421890f81844acb134a460eda7132db3e504ed
Author: Tobias Burnus <tobias@codesourcery.com>
Date: Thu Sep 17 14:01:09 2020 +0200
Fortran: Avoid double-free with parse error (PR96041, PR93423)
gcc/fortran/
PR fortran/96041
PR fortran/93423
* decl.c (gfc_match_submod_proc): Avoid later double-free
in the error case.
(cherry picked from commit c12facd22881517127ebbe213d7ecc7fc1fcea4e)
Diff:
---
gcc/fortran/decl.c | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index e6c500bf8d2..c1a15f1a84a 100644
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -9801,6 +9801,15 @@ gfc_match_submod_proc (void)
if (gfc_match_eos () != MATCH_YES)
{
+ /* Unset st->n.sym. Note: in reject_statement (), the symbol changes are
+ undone, such that the st->n.sym->formal points to the original symbol;
+ if now this namespace is finalized, the formal namespace is freed,
+ but it might be still needed in the parent namespace. */
+ gfc_symtree *st = gfc_find_symtree (gfc_current_ns->sym_root, sym->name);
+ st->n.sym = NULL;
+ gfc_free_symbol (sym->tlink);
+ sym->tlink = NULL;
+ sym->refs--;
gfc_syntax_error (ST_MODULE_PROC);
return MATCH_ERROR;
}
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2020-09-18 20:19 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2020-09-18 20:19 [gcc r10-8775] Fortran: Avoid double-free with parse error (PR96041, PR93423) Harald Anlauf
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).