From: H.J. Lu <hongjiu.lu@intel.com>
Date: Fri, 4 Sep 2015 15:09:22 +0000 (+0000)
Subject: Apppend $prop to et_prop_list only if needed
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0417fe49d6be14bb9ebf25b08f67d6a936958d25;p=gcc.git

Apppend $prop to et_prop_list only if needed

	PR testsuite/67450
	* lib/target-supports.exp (check_cached_effective_target):
	Apppend $prop to et_prop_list only if needed.

From-SVN: r227492
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9f692bdd582..bb4f975e363 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2015-09-04  H.J. Lu  <hongjiu.lu@intel.com>
+
+	PR testsuite/67450
+	* lib/target-supports.exp (check_cached_effective_target):
+	Apppend $prop to et_prop_list only if needed.
+
 2015-09-04  Marek Polacek  <polacek@redhat.com>
 
 	PR sanitizer/67279
diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index aad45f96c20..5e17b2657bb 100644
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -125,7 +125,10 @@ proc check_cached_effective_target { prop args } {
 	verbose "check_cached_effective_target $prop: checking $target" 2
 	set et_cache($prop,target) $target
 	set et_cache($prop,value) [uplevel eval $args]
-	lappend et_prop_list $prop
+	if {![info exists et_prop_list]
+	    || [lsearch $et_prop_list $prop] < 0} {
+	    lappend et_prop_list $prop
+	}
 	verbose "check_cached_effective_target cached list is now: $et_prop_list" 2
     }
     set value $et_cache($prop,value)