Allow mmix-knuth-mmixware adjustments to objcopy --extract-symbols test.

* ld-scripts/script.exp (extract_symbol_test): Allow nm output of
	objcopy --extract-symbols result to differ from original on
	mmix-knuth-mmixware.
This commit is contained in:
Hans-Peter Nilsson 2015-10-22 09:28:40 +02:00
parent 64e59d8e11
commit 282b7d7b65
2 changed files with 22 additions and 1 deletions

View File

@ -1,3 +1,9 @@
2015-10-22 Hans-Peter Nilsson <hp@bitrange.com>
* ld-scripts/script.exp (extract_symbol_test): Allow nm output of
objcopy --extract-symbols result to differ from original on
mmix-knuth-mmixware.
2015-10-22 H.J. Lu <hongjiu.lu@intel.com>
* ld-i386/call3.s: New file.

View File

@ -111,6 +111,7 @@ proc extract_symbol_test { testfile testname } {
global objcopy
global nm
global size
global target_triplet
set copyfile tmpdir/extract
set args "--extract-symbol $testfile $copyfile"
@ -121,8 +122,22 @@ proc extract_symbol_test { testfile testname } {
}
set orig_syms [run_host_cmd $nm $testfile]
set syms_massaged $orig_syms
switch -regexp $target_triplet {
^mmix-knuth-mmixware$ {
# Without section sizes (stripped together with the
# contents for this target), we can't deduce the symbol
# types. Artificially tracking the symbol types is
# considered not worthwhile as there's no known use-case
# for --extract-symbols for this target. The option is
# supported just enough to emit the same symbol values,
# but absolute symbol types are expected.
regsub -all " \[TD\] " $syms_massaged " A " syms_massaged
}
}
set extract_syms [run_host_cmd $nm $copyfile]
if ![string equal $orig_syms $extract_syms] {
if ![string equal $syms_massaged $extract_syms] {
fail $testname
return
}