diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-08-28 16:49:15 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-08-28 16:49:15 +0200 |
| commit | 46f4f794839998430e405d13d0f1b449f48a13c4 (patch) | |
| tree | 1235ae5b42a3961dbe50871871e9c6c717ed22f4 /gcc/fortran/decl.c | |
| parent | 94c15c51f92331fa0084b5eb467e5581f00aebf6 (diff) | |
| download | gcc-46f4f794839998430e405d13d0f1b449f48a13c4.zip gcc-46f4f794839998430e405d13d0f1b449f48a13c4.tar.gz gcc-46f4f794839998430e405d13d0f1b449f48a13c4.tar.bz2 | |
re PR fortran/54384 (gfortran memory leaks)
2012-08-28 Tobias Burnus <burnus@net-b.de>
PR fortran/54384
* decl.c (match_data_constant): Add missing gfc_free_expr.
(top_val_list): Remove always-true condition.
* data.c (get_array_index, create_character_initializer):
Free temporary expressions.
(gfc_assign_data_value): Free expression when aborting.
From-SVN: r190751
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index efd21dc..6f609e9 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -361,6 +361,8 @@ match_data_constant (gfc_expr **result) m = MATCH_ERROR; return m; } + else if (m == MATCH_YES) + gfc_free_expr (*result); gfc_current_locus = old_loc; @@ -451,8 +453,7 @@ top_val_list (gfc_data *data) } else { - if (expr->ts.type == BT_INTEGER) - mpz_set (tail->repeat, expr->value.integer); + mpz_set (tail->repeat, expr->value.integer); gfc_free_expr (expr); m = match_data_constant (&tail->expr); |