OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Tobias Burnus 2013-03-01 17:39:43 +01:00 committed by Tobias Burnus
parent fa585637b0
commit 2b62c97f03
3 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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.

2
gcc/fortran/iresolve.c
View File

@ -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);
}

1
gcc/fortran/symbol.c
View File

@ -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);
}