primary.c (gfc_free_structure_ctor_component): Also free the component structure itself.

2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>

	* primary.c (gfc_free_structure_ctor_component): Also free the
	component structure itself.

From-SVN: r165032
This commit is contained in:
Mikael Morin 2010-10-06 14:43:55 +00:00
parent ccd2b32278
commit 3d2e4fe675
2 changed files with 6 additions and 0 deletions

View File

@ -1,3 +1,8 @@
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
* primary.c (gfc_free_structure_ctor_component): Also free the
component structure itself.
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
* module.c (gfc_use_module): Free atom_string when done with it.

View File

@ -2164,6 +2164,7 @@ gfc_free_structure_ctor_component (gfc_structure_ctor_component *comp)
{
gfc_free (comp->name);
gfc_free_expr (comp->val);
gfc_free (comp);
}