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
This commit is contained in:
parent
fa585637b0
commit
2b62c97f03
|
@ -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>
|
2013-03-01 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
* trans-decl.c (gfc_trans_deferred_vars): Free expr after use.
|
* trans-decl.c (gfc_trans_deferred_vars): Free expr after use.
|
||||||
|
|
|
@ -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);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -2076,6 +2076,7 @@ free_components (gfc_component *p)
|
||||||
|
|
||||||
gfc_free_array_spec (p->as);
|
gfc_free_array_spec (p->as);
|
||||||
gfc_free_expr (p->initializer);
|
gfc_free_expr (p->initializer);
|
||||||
|
free (p->tb);
|
||||||
|
|
||||||
free (p);
|
free (p);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue