From: mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 6 Oct 2010 15:07:43 +0000 (+0000)
Subject: 2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
X-Git-Tag: upstream/4.9.2~26092
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=84e25a666cfc1ac0e5d146229aaec90b3c33b7c5;p=platform%2Fupstream%2Flinaro-gcc.git

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

	* resolve.c (add_dt_to_dt_list): Remove unneeded if.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165035 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 6d729de..5704021 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,9 @@
 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>
+
 	* resolve.c (check_typebound_baseobject): Free local expr before
 	returning.
 
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 203f294..59f1853 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;
 }