mirror of git://gcc.gnu.org/git/gcc.git
re PR fortran/54384 (gfortran memory leaks)
2012-08-27 Tobias Burnus <burnus@net-b.de>
PR fortran/54384
* trans-expr.c (gfc_trans_arrayfunc_assign): Free se.ss
and loop.
From-SVN: r190713
This commit is contained in:
parent
7b93bdde91
commit
c0782a4002
|
|
@ -1,3 +1,9 @@
|
||||||
|
2012-08-27 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
|
PR fortran/54384
|
||||||
|
* trans-expr.c (gfc_trans_arrayfunc_assign): Free se.ss
|
||||||
|
and loop.
|
||||||
|
|
||||||
2012-08-27 Tobias Burnus <burnus@net-b.de>
|
2012-08-27 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
PR fortran/41093
|
PR fortran/41093
|
||||||
|
|
|
||||||
|
|
@ -6781,6 +6781,11 @@ gfc_trans_arrayfunc_assign (gfc_expr * expr1, gfc_expr * expr2)
|
||||||
gfc_conv_function_expr (&se, expr2);
|
gfc_conv_function_expr (&se, expr2);
|
||||||
gfc_add_block_to_block (&se.pre, &se.post);
|
gfc_add_block_to_block (&se.pre, &se.post);
|
||||||
|
|
||||||
|
if (ss)
|
||||||
|
gfc_cleanup_loop (&loop);
|
||||||
|
else
|
||||||
|
gfc_free_ss_chain (se.ss);
|
||||||
|
|
||||||
return gfc_finish_block (&se.pre);
|
return gfc_finish_block (&se.pre);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue