mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-14 05:20:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

trans-decl.c (gfc_trans_deferred_vars): Free expr after use.

Browse Source 
2013-03-01  Tobias Burnus  <burnus@net-b.de>

        * trans-decl.c (gfc_trans_deferred_vars): Free expr after use.
        * trans-io.c (build_dt): Ditto.

From-SVN: r196372
This commit is contained in:
Tobias Burnus 2013-03-01 11:24:11 +01:00 committed by Tobias Burnus
parent cf2f3b1b67
commit 76c1a7ec3d
3 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2013-03-01 Tobias Burnus <burnus@net-b.de>
* trans-decl.c (gfc_trans_deferred_vars): Free expr after use.
* trans-io.c (build_dt): Ditto.
2013-02-24 Joseph Myers <joseph@codesourcery.com>
* resolve.c (generate_component_assignments): Don't use UTF-8

10
gcc/fortran/trans-decl.c
View File

@ -3818,10 +3818,12 @@ gfc_trans_deferred_vars (gfc_symbol * proc_sym, gfc_wrapped_block * block)
NULL_TREE, true, NULL,
true);
else
tmp = gfc_deallocate_scalar_with_status (se.expr, NULL_TREE,
true,
gfc_lval_expr_from_sym (sym),
sym->ts);
{
gfc_expr *expr = gfc_lval_expr_from_sym (sym);
tmp = gfc_deallocate_scalar_with_status (se.expr, NULL_TREE,
true, expr, sym->ts);
gfc_free_expr (expr);
}
}
if (sym->ts.type == BT_CLASS)
{

2
gcc/fortran/trans-io.c
View File

@ -1782,6 +1782,8 @@ build_dt (tree function, gfc_code * code)
mask |= set_string (&block, &post_block, var, IOPARM_dt_namelist_name,
nmlname);
gfc_free_expr (nmlname);
if (last_dt == READ)
mask |= IOPARM_dt_namelist_read_mode;