iresolve.c (resolve_bound): Use gfc_get_string instead of xstrdup.

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

        * iresolve.c (resolve_bound): Use gfc_get_string instead of xstrdup.
        * symbol.c (free_components): Free proc-pointer components.

From-SVN: r196387

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index cb6fd6122a03a0dec52887afd5befa670432582c..56497ed2ec30f39c77e7fb45d6bbc4e54d62abf2 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2013-03-01  Tobias Burnus  <burnus@net-b.de>
+
+       * iresolve.c (resolve_bound): Use gfc_get_string instead of xstrdup.
+       * symbol.c (free_components): Free proc-pointer components.
+
 2013-03-01  Tobias Burnus  <burnus@net-b.de>
 
        * trans-decl.c (gfc_trans_deferred_vars): Free expr after use.

diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c
index 36e5363d39df996db236eb22635340b4930e102e..5b2f8c7b44ea9348e818c28c902650cca9043e64 100644 (file)
--- 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 acfebc558312c7c1ce2e3dd73ffc60556406bd56..ad88da8a963b2d7c640b8d0d3f98f75685a40e9e 100644 (file)
--- 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);
     }