From: John David Anglin <danglin@gcc.gnu.org>
Date: Sun, 29 Mar 2015 20:46:17 +0000 (+0000)
Subject: re PR libffi/65567 (ERROR: tcl error sourcing /test/gnu/gcc/gcc/libffi/testsuite... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=dc84325087ff9ed33e65cea23458bb63d99f2637;p=gcc.git

re PR libffi/65567 (ERROR: tcl error sourcing /test/gnu/gcc/gcc/libffi/testsuite/libffi.complex/complex.exp)

	PR libffi/65567
	* testsuite/lib/libffi.exp (libffi_feature_test): Use split to ensure
	lindex is applied to a list.

From-SVN: r221765
---

diff --git a/libffi/ChangeLog b/libffi/ChangeLog
index a690b7bbf98..09983cb5622 100644
--- a/libffi/ChangeLog
+++ b/libffi/ChangeLog
@@ -1,3 +1,9 @@
+2015-03-29  John David Anglin  <danglin@gcc.gnu.org>
+
+	PR libffi/65567
+	* testsuite/lib/libffi.exp (libffi_feature_test): Use split to ensure
+	lindex is applied to a list.
+
 2015-02-10  Andrew Pinski  <apinski@cavium.com>
 
 	* src/aarch64/ffitarget.h (ffi_arg): Use unsigned long long for ILP32.
diff --git a/libffi/testsuite/lib/libffi.exp b/libffi/testsuite/lib/libffi.exp
index 049b66d0d58..29b9510a35e 100644
--- a/libffi/testsuite/lib/libffi.exp
+++ b/libffi/testsuite/lib/libffi.exp
@@ -238,7 +238,7 @@ proc libffi_feature_test { test } {
     set lines [libffi_target_compile $src "" "preprocess" ""]
     file delete $src
 
-    set last [lindex $lines end]
+    set last [lindex [split $lines] end]
     return [regexp -- "xyzzy" $last]
 }