diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-03-01 16:39:43 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-03-01 16:39:43 +0000 |
| commit | 23df2a577733c4a3cafee067e77e94f2a0549b6c (patch) | |
| tree | 819f540f06995e94cfeff41ddd522ca9be514800 /gcc | |
| parent | ea4efe9288301704c49e8f056911e380674510b9 (diff) | |
| download | gcc-23df2a577733c4a3cafee067e77e94f2a0549b6c.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@196387 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/iresolve.c | 2 | ||||
| -rw-r--r-- | gcc/fortran/symbol.c | 1 |
3 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cb6fd6122a0..56497ed2ec3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 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. * trans-io.c (build_dt): Ditto. 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); } |