From dc84325087ff9ed33e65cea23458bb63d99f2637 Mon Sep 17 00:00:00 2001 From: John David Anglin 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 a690b7bbf98..09983cb5622 100644 --- a/libffi/ChangeLog +++ b/libffi/ChangeLog @@ -1,3 +1,9 @@ +2015-03-29 John David Anglin + + 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 * 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] } -- 2.30.2