From f372a0c01ae30dc52bf720936d85c9a2a003291e Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Wed, 6 Oct 2010 15:07:43 +0000 Subject: [PATCH] resolve.c (add_dt_to_dt_list): Remove unneeded if. 2010-10-06 Mikael Morin * resolve.c (add_dt_to_dt_list): Remove unneeded if. From-SVN: r165035 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/resolve.c | 13 +++++-------- 2 files changed, 9 insertions(+), 8 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 6d729de660c..57040218468 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2010-10-06 Mikael Morin + + * resolve.c (add_dt_to_dt_list): Remove unneeded if. + 2010-10-06 Mikael Morin * resolve.c (check_typebound_baseobject): Free local expr before diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 203f294200a..59f185399e6 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -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) 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->derived = derived; - gfc_derived_types = dt_list; - } + dt_list = gfc_get_dt_list (); + dt_list->next = gfc_derived_types; + dt_list->derived = derived; + gfc_derived_types = dt_list; } -- 2.30.2