Always delete $testarchive first

Always delete $testarchive first so that it exists only when it is
supported,

	* testsuite/binutils-all/objdump.exp: Always delete $testarchive
	first.
This commit is contained in:
H.J. Lu 2017-07-13 08:10:57 -07:00
parent bbe7ef6699
commit a502b0bbb8
2 changed files with 10 additions and 7 deletions

View file

@ -1,3 +1,8 @@
2017-07-13 H.J. Lu <hongjiu.lu@intel.com>
* testsuite/binutils-all/objdump.exp: Always delete $testarchive
first.
2017-07-12 Alan Modra <amodra@gmail.com>
* po/bg.po: Update from translationproject.org/latest/binutils/.

View file

@ -75,18 +75,16 @@ if [is_remote host] {
set testfile2 tmpdir/bintest2.o
}
# $testarchive exists only if it is supported.
set testarchive tmpdir/bintest.a
remote_file host file delete $testarchive
if { ![istarget "alpha-*-*"] || [is_elf_format] } then {
remote_file host file delete tmpdir/bintest.a
set got [binutils_run $AR "rc tmpdir/bintest.a $testfile2"]
if ![string match "" $got] then {
fail "bintest.a"
remote_file host delete tmpdir/bintest.a
} else {
if [is_remote host] {
set testarchive [remote_download host tmpdir/bintest.a]
} else {
set testarchive tmpdir/bintest.a
}
} elseif [is_remote host] {
set testarchive [remote_download host tmpdir/bintest.a]
}
remote_file host delete tmpdir/bintest2.o
}