A few hppa testcase tidies

binutils/
	* testsuite/lib/binutils-common.exp (is_som_format): New proc.
	(run_dump_test): Correct target test for alternate .comm syntax.
	(get_standard_section_names): Handle som format.
	* testsuite/lib/utils-lib.exp (default_binutils_assemble_flags):
	Correct target test for alternate .comm syntax.
gas/
	* testsuite/gas/all/gas.exp (redef3): Don't xfail for hppa.
	(octa): Run for hppa.
	* testsuite/gas/elf/elf.exp (common1, common2): Likewise.
	* testsuite/gas/elf/symver.d: Delete notarget.
ld/
	* testsuite/ld-elf/comm-data5.d: Remove notarget for hppa.
	* testsuite/ld-scripts/defined6.d: Likewise.
This commit is contained in:
Alan Modra
2018-09-17 08:51:24 +09:30
parent 8c9604b6a2
commit 0b1352e04c
10 changed files with 45 additions and 24 deletions

View File

@@ -105,6 +105,19 @@ proc is_pecoff_format {} {
return 1
}
proc is_som_format {} {
if { ![istarget hppa*-*-*] || [istarget hppa*64*-*-*] } {
return 0;
}
if { [istarget *-*-osf*] \
|| [istarget {*-*-h[ip]ux*}] \
|| [istarget *-*-mpeix*] \
|| [istarget *-*-bsd*] } {
return 1;
}
return 0;
}
# True if the object format is known to be 64-bit ELF.
#
proc is_elf64 { binary_file } {
@@ -945,7 +958,9 @@ proc run_dump_test { name {extra_options {}} } {
set cmdret 1
}
} else {
if { [istarget "hppa*-*-*"] && ![istarget "*-*-linux*" ] } {
if { [istarget "hppa*-*-*"] \
&& ![istarget "*-*-linux*"] \
&& ![istarget "*-*-netbsd*" ] } {
set cmd "sed -e 's/^\[ \]*\.comm \\(\[^,\]*\\),\\(.*\\)/\\1 .comm \\2/' < $sourcefile > tmpdir/asm.s"
send_log "$cmd\n"
set cmdret [remote_exec host [concat sh -c [list "$cmd"]]]
@@ -1328,9 +1343,8 @@ proc get_standard_section_names {} {
if [istarget "rx-*-*"] {
return { "P" "D_1" "B_1" }
}
if [istarget "alpha*-*-*vms*"] {
# Double quote: for TCL and for sh.
return { "\\\$CODE\\\$" "\\\$DATA\\\$" "\\\$BSS\\\$" }
if { [istarget "alpha*-*-*vms*"] || [is_som_format] } {
return { {\$CODE\$} {\$DATA\$} {\$BSS\$} }
}
return
}