resolve.c (add_dt_to_dt_list): Remove unneeded if.
2010-10-06 Mikael Morin <mikael@gcc.gnu.org> * resolve.c (add_dt_to_dt_list): Remove unneeded if. From-SVN: r165035
This commit is contained in:
parent
99b41d521c
commit
f372a0c01a
|
@ -1,3 +1,7 @@
|
||||||
|
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
|
||||||
|
|
||||||
|
* resolve.c (add_dt_to_dt_list): Remove unneeded if.
|
||||||
|
|
||||||
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
|
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
|
||||||
|
|
||||||
* resolve.c (check_typebound_baseobject): Free local expr before
|
* resolve.c (check_typebound_baseobject): Free local expr before
|
||||||
|
|
|
@ -11088,15 +11088,12 @@ add_dt_to_dt_list (gfc_symbol *derived)
|
||||||
|
|
||||||
for (dt_list = gfc_derived_types; dt_list; dt_list = dt_list->next)
|
for (dt_list = gfc_derived_types; dt_list; dt_list = dt_list->next)
|
||||||
if (derived == dt_list->derived)
|
if (derived == dt_list->derived)
|
||||||
break;
|
return;
|
||||||
|
|
||||||
if (dt_list == NULL)
|
dt_list = gfc_get_dt_list ();
|
||||||
{
|
dt_list->next = gfc_derived_types;
|
||||||
dt_list = gfc_get_dt_list ();
|
dt_list->derived = derived;
|
||||||
dt_list->next = gfc_derived_types;
|
gfc_derived_types = dt_list;
|
||||||
dt_list->derived = derived;
|
|
||||||
gfc_derived_types = dt_list;
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue