diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2024-10-29 21:52:27 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2024-10-30 11:20:10 +0100 |
| commit | b8291710e3a6d9f116fc9d4afba444ad697937f2 (patch) | |
| tree | 561be32b5e4941daee2ba7c4ee5a25228e9cdb17 /gcc/fortran/trans-expr.cc | |
| parent | df11cb0bc4ef9f12c2315c2833be3900a2847965 (diff) | |
| download | gcc-b8291710e3a6d9f116fc9d4afba444ad697937f2.zip gcc-b8291710e3a6d9f116fc9d4afba444ad697937f2.tar.gz gcc-b8291710e3a6d9f116fc9d4afba444ad697937f2.tar.bz2 | |
Fortran: fix several front-end memleaks
gcc/fortran/ChangeLog:
* trans-expr.cc (gfc_trans_class_init_assign): Free intermediate
gfc_expr's.
* trans.cc (get_final_proc_ref): Likewise.
(get_elem_size): Likewise.
(gfc_add_finalizer_call): Likewise.
Diffstat (limited to 'gcc/fortran/trans-expr.cc')
| -rw-r--r-- | gcc/fortran/trans-expr.cc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index ff8cde9..ddbb5ec 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -1890,6 +1890,8 @@ gfc_trans_class_init_assign (gfc_code *code) } gfc_add_expr_to_block (&block, tmp); + gfc_free_expr (lhs); + gfc_free_expr (rhs); return gfc_finish_block (&block); } |