FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow multiple tests to be run on systems with older versions of TCL installed.

Browse source 
PR 24287
	* testsuite/lib/binutils-common.exp (run_dump_test): Replace a use
	of "lmap" with a "foreach" loop.
This commit is contained in:
Matthew Malcomson 2019-03-05 10:09:50 +00:00 • committed by Nick Clifton
parent 54c56910ee
commit 093f70ccd3
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
binutils/ChangeLog
View file

@ -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> 2019-03-04 Nick Clifton <nickc@redhat.com>
PR 24281 PR 24281

8
binutils/testsuite/lib/binutils-common.exp
View file

@ -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 } { if { [llength $opts(as)] == 0 } {
set opts(as) [list " "] 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] } { if { [string length $x] && [string length $as_additional_flags] } {
append x " " append x " "
} }
append x $as_additional_flags append x $as_additional_flags
regsub {\[big_or_little_endian\]} $x \ regsub {\[big_or_little_endian\]} $x \
[big_or_little_endian] x [big_or_little_endian] x
expr {$x} lappend as_final_flags $x
}] }
regsub {\[big_or_little_endian\]} $opts(ld) \ regsub {\[big_or_little_endian\]} $opts(ld) \
[big_or_little_endian] opts(ld) [big_or_little_endian] opts(ld)