From 093f70ccd3d8366de1faae3335bbe2eebd2a75d4 Mon Sep 17 00:00:00 2001 From: Matthew Malcomson Date: Tue, 5 Mar 2019 10:09:50 +0000 Subject: [PATCH] Allow multiple tests to be run on systems with older versions of TCL installed. PR 24287 * testsuite/lib/binutils-common.exp (run_dump_test): Replace a use of "lmap" with a "foreach" loop. --- binutils/ChangeLog | 6 ++++++ binutils/testsuite/lib/binutils-common.exp | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/binutils/ChangeLog b/binutils/ChangeLog index aa33e52ae06..6a546fa5deb 100644 --- a/binutils/ChangeLog +++ b/binutils/ChangeLog @@ -1,3 +1,9 @@ +2019-03-05 Matthew Malcomson + + PR 24287 + * testsuite/lib/binutils-common.exp (run_dump_test): Replace a use + of "lmap" with a "foreach" loop. + 2019-03-04 Nick Clifton PR 24281 diff --git a/binutils/testsuite/lib/binutils-common.exp b/binutils/testsuite/lib/binutils-common.exp index e01b3fb4846..8f622ba6b4a 100644 --- a/binutils/testsuite/lib/binutils-common.exp +++ b/binutils/testsuite/lib/binutils-common.exp @@ -829,19 +829,19 @@ proc run_dump_test { name {extra_options {}} } { } } - # Ensure there is something in $opts(as) for the lmap below. + # Ensure there is something in $opts(as) for the foreach loop below. if { [llength $opts(as)] == 0 } { set opts(as) [list " "] } - set as_final_flags [lmap x $opts(as) { + foreach x $opts(as) { if { [string length $x] && [string length $as_additional_flags] } { append x " " } append x $as_additional_flags regsub {\[big_or_little_endian\]} $x \ [big_or_little_endian] x - expr {$x} - }] + lappend as_final_flags $x + } regsub {\[big_or_little_endian\]} $opts(ld) \ [big_or_little_endian] opts(ld) -- 2.30.2