From patchwork Fri Mar 1 16:45:28 2013 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Subject: [Fortran,committed] Fix another two memory leaks X-Patchwork-Submitter: Tobias Burnus X-Patchwork-Id: 224409 Message-Id: <5130DB28.1090700@net-b.de> To: gcc patches , gfortran Date: Fri, 01 Mar 2013 17:45:28 +0100 From: Tobias Burnus List-Id: Committed after regtesting as Rev. 196387. (I forgot to mention that it fixes PR56491) http://gcc.gnu.org/ml/gcc-cvs/2013-03/msg00024.html Tobias Index: gcc/fortran/ChangeLog =================================================================== --- gcc/fortran/ChangeLog (Revision 196386) +++ gcc/fortran/ChangeLog (Arbeitskopie) @@ -1,5 +1,10 @@ 2013-03-01 Tobias Burnus + * iresolve.c (resolve_bound): Use gfc_get_string instead of xstrdup. + * symbol.c (free_components): Free proc-pointer components. + +2013-03-01 Tobias Burnus + * trans-decl.c (gfc_trans_deferred_vars): Free expr after use. * trans-io.c (build_dt): Ditto. Index: gcc/fortran/iresolve.c =================================================================== --- gcc/fortran/iresolve.c (Revision 196386) +++ gcc/fortran/iresolve.c (Arbeitskopie) @@ -140,7 +140,7 @@ resolve_bound (gfc_expr *f, gfc_expr *array, gfc_e } } - f->value.function.name = xstrdup (name); + f->value.function.name = gfc_get_string (name); } Index: gcc/fortran/symbol.c =================================================================== --- gcc/fortran/symbol.c (Revision 196386) +++ gcc/fortran/symbol.c (Arbeitskopie) @@ -2076,6 +2076,7 @@ free_components (gfc_component *p) gfc_free_array_spec (p->as); gfc_free_expr (p->initializer); + free (p->tb); free (p); }