From dc84325087ff9ed33e65cea23458bb63d99f2637 Mon Sep 17 00:00:00 2001
From: John David Anglin <danglin@gcc.gnu.org>
Date: Sun, 29 Mar 2015 20:46:17 +0000
Subject: [PATCH] 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
---
libffi/ChangeLog | 6 ++++++
libffi/testsuite/lib/libffi.exp | 2 +-
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/libffi/ChangeLog b/libffi/ChangeLog
index a690b7bbf98c..09983cb5622c 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 049b66d0d58b..29b9510a35e5 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]
}
--
GitLab