From 2b62c97f038337ffd7522bca3eef22a346ca5306 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Fri, 1 Mar 2013 17:39:43 +0100 Subject: [PATCH] iresolve.c (resolve_bound): Use gfc_get_string instead of xstrdup. 2013-03-01 Tobias Burnus * iresolve.c (resolve_bound): Use gfc_get_string instead of xstrdup. * symbol.c (free_components): Free proc-pointer components. From-SVN: r196387 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/iresolve.c | 2 +- gcc/fortran/symbol.c | 1 + 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cb6fd6122a0..56497ed2ec3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +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. diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 36e5363d39d..5b2f8c7b44e 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -140,7 +140,7 @@ resolve_bound (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *kind, } } - f->value.function.name = xstrdup (name); + f->value.function.name = gfc_get_string (name); } diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index acfebc55831..ad88da8a963 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -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); } -- 2.30.2