diff options
author | John David Anglin <danglin@gcc.gnu.org> | 2015-03-29 20:46:17 +0000 |
---|---|---|
committer | John David Anglin <danglin@gcc.gnu.org> | 2015-03-29 20:46:17 +0000 |
commit | dc84325087ff9ed33e65cea23458bb63d99f2637 (patch) | |
tree | 7289f9c8a7b91071b960f5bb63e68209a97f1d34 /libffi/testsuite | |
parent | 43b11666ccdfed41cab5b053a705209e33528402 (diff) | |
download | gcc-dc84325087ff9ed33e65cea23458bb63d99f2637.zip gcc-dc84325087ff9ed33e65cea23458bb63d99f2637.tar.gz gcc-dc84325087ff9ed33e65cea23458bb63d99f2637.tar.bz2 |
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
Diffstat (limited to 'libffi/testsuite')
-rw-r--r-- | libffi/testsuite/lib/libffi.exp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libffi/testsuite/lib/libffi.exp b/libffi/testsuite/lib/libffi.exp index 049b66d..29b9510 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] } |