diff options
| author | Matthew Malcomson <matthew.malcomson@arm.com> | 2019-03-05 10:09:50 +0000 |
|---|---|---|
| committer | Nick Clifton <nickc@redhat.com> | 2019-03-05 10:09:50 +0000 |
| commit | 093f70ccd3d8366de1faae3335bbe2eebd2a75d4 (patch) | |
| tree | 2c3a4c6f153305091bd5ebb1de9165e160be4e50 /binutils | |
| parent | 54c56910ee0b9280e0cb33eae00e27ca90925fc0 (diff) | |
| download | gdb-093f70ccd3d8366de1faae3335bbe2eebd2a75d4.zip gdb-093f70ccd3d8366de1faae3335bbe2eebd2a75d4.tar.gz gdb-093f70ccd3d8366de1faae3335bbe2eebd2a75d4.tar.bz2 | |
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.
Diffstat (limited to 'binutils')
| -rw-r--r-- | binutils/ChangeLog | 6 | ||||
| -rw-r--r-- | binutils/testsuite/lib/binutils-common.exp | 8 |
2 files changed, 10 insertions, 4 deletions
diff --git a/binutils/ChangeLog b/binutils/ChangeLog index aa33e52..6a546fa 100644 --- a/binutils/ChangeLog +++ b/binutils/ChangeLog @@ -1,3 +1,9 @@ +2019-03-05 Matthew Malcomson <matthew.malcomson@arm.com> + + PR 24287 + * testsuite/lib/binutils-common.exp (run_dump_test): Replace a use + of "lmap" with a "foreach" loop. + 2019-03-04 Nick Clifton <nickc@redhat.com> PR 24281 diff --git a/binutils/testsuite/lib/binutils-common.exp b/binutils/testsuite/lib/binutils-common.exp index e01b3fb..8f622ba 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) |