OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

LD/testsuite: run_dump_test: Use the intended test name ASAP 

Bring the LD implementation of `run_dump_test' in line with its binutils
and GAS counterparts and use the intended test name, from the `name' tag
if set, for test status reporting as soon as it is available.

	ld/
	* testsuite/lib/ld-lib.exp (run_dump_test): Move the setting of
	`testname' earlier on and use it for test status reporting.
This commit is contained in:
Maciej W. Rozycki 2018-07-09 15:50:57 +01:00
parent 9dcb0ba445
commit 8f7fc65182
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ld/ChangeLog
View File

@ -1,3 +1,8 @@
2018-07-09 Maciej W. Rozycki <macro@mips.com>
* testsuite/lib/ld-lib.exp (run_dump_test): Move the setting of
`testname' earlier on and use it for test status reporting.
2018-07-09 Alan Modra <amodra@gmail.com>
* testsuite/ld-discard/extern.d: Remove m68hc12 xfail.

18
ld/testsuite/lib/ld-lib.exp
View File

@ -746,6 +746,12 @@ proc run_dump_test { name {extra_options {}} } {
[big_or_little_endian] opts($opt)
}
if { $opts(name) == "" } {
set testname "$subdir/$name"
} else {
set testname $opts(name)
}
# Decide early whether we should run the test for this target.
if { [llength $opts(target)] > 0 } {
set targmatch 0
@ -782,7 +788,7 @@ proc run_dump_test { name {extra_options {}} } {
readelf { set program readelf }
default
{ perror "unrecognized program option $opts(PROG) in $file.d"
unresolved $subdir/$name
unresolved $testname
return }
}
} else {
@ -791,7 +797,7 @@ proc run_dump_test { name {extra_options {}} } {
if {$opts($p) != ""} {
if {$program != ""} {
perror "ambiguous dump program in $file.d"
unresolved $subdir/$name
unresolved $testname
return
} else {
set program $p
@ -806,17 +812,11 @@ proc run_dump_test { name {extra_options {}} } {
&& $opts(error) == "" \
&& $opts(error_output) == "" } {
perror "dump program unspecified in $file.d"
unresolved $subdir/$name
unresolved $testname
return
}
}
if { $opts(name) == "" } {
set testname "$subdir/$name"
} else {
set testname $opts(name)
}
if { $opts(source) == "" } {
set sourcefiles [list ${file}.s]
set asflags [list ""]