-# Copyright (C) 1994-2018 Free Software Foundation, Inc.
+# Copyright (C) 1994-2020 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
}
# Test that objcopy does not modify a file when copying it.
+# "object" or "executable" values for type are supported.
-proc objcopy_test {testname srcfile} {
+proc objcopy_test {testname srcfile type asflags ldflags} {
global OBJCOPY
global OBJCOPYFLAGS
global srcdir
global subdir
global tempfile
global copyfile
+ set t_tempfile $tempfile
+ set t_copyfile ${copyfile}.o
- if {![binutils_assemble $srcdir/$subdir/${srcfile} $tempfile]} then {
- unresolved "objcopy ($testname)"
- remote_file host delete $tempfile
+ if { $type != "object" && $type != "executable" } {
+ error "objcopy_test accepts only \"object\" or \"executable\" values for type"
+ }
+
+ if {![binutils_assemble_flags $srcdir/$subdir/${srcfile} $t_tempfile "$asflags"]} then {
+ unresolved "objcopy $type ($testname)"
+ remote_file host delete $t_tempfile
return
}
- set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS $tempfile ${copyfile}.o"]
+ set xflags ""
+ if { $type == "executable" } {
+ global LD
+ # Check that LD exists
+ if {[which $LD] == 0} then {
+ untested "objcopy $type ($testname)"
+ return
+ }
+
+ # Use tempfile and copyfile without the .o extension for executable files
+ set t_tempfile [string range $tempfile 0 end-2]
+ set t_copyfile $copyfile
+ set got [binutils_run $LD "$tempfile -o $t_tempfile $ldflags"]
+ if { ![string equal "" $got] } then {
+ unresolved "objcopy $type ($testname)"
+ return
+ }
+ set xflags "--preserve-dates"
+ }
+
+ set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS $xflags $t_tempfile $t_copyfile"]
if ![string equal "" $got] then {
- fail "objcopy ($testname)"
+ fail "objcopy $type ($testname)"
} else {
- send_log "cmp $tempfile ${copyfile}.o\n"
- verbose "cmp $tempfile ${copyfile}.o"
+ send_log "cmp $t_tempfile $t_copyfile\n"
+ verbose "cmp $t_tempfile $t_copyfile"
if [is_remote host] {
- set src1 tmpdir/bintest.o
- set src2 tmpdir/copy.o
- remote_upload host $tempfile $src1
- remote_upload host ${copyfile}.o $src2
+ set src1 tmpdir/bintest
+ set src2 tmpdir/copy
+ remote_upload host $t_tempfile $src1
+ remote_upload host $t_copyfile $src2
} else {
- set src1 ${tempfile}
- set src2 ${copyfile}.o
+ set src1 $t_tempfile
+ set src2 $t_copyfile
}
set status [remote_exec build cmp "${src1} ${src2}"]
set exec_output [lindex $status 1]
set exec_output [prune_warnings $exec_output]
- # On some systems the result of objcopy will not be identical.
- # Usually this is just because gas isn't using bfd to write the
- # files in the first place, and may order things a little
- # differently. Those systems should use setup_xfail here.
-
- setup_xfail "h8300-*-coff"
- setup_xfail "h8500-*-rtems*" "h8500-*-coff"
- setup_xfail "hppa*-*-*"
- setup_xfail "i960-*"
- setup_xfail "m68*-*-*coff" "m68*-*-hpux*" "m68*-*-lynxos*"
- setup_xfail "m68*-*-sysv*" "m68*-apple-aux*"
- setup_xfail "m8*-*"
- setup_xfail "sh-*-coff*"
- setup_xfail "tic80-*-*" "w65-*"
-
- clear_xfail "hppa*64*-*-hpux*" "hppa*-*-linux*" "hppa*-*-lites*"
- clear_xfail "hppa*-*-*n*bsd*" "hppa*-*-rtems*" "*-*-*elf*"
- clear_xfail "m68*-*-sysv4*"
-
if [string equal "" $exec_output] then {
- pass "objcopy ($testname)"
+ pass "objcopy $type ($testname)"
} else {
send_log "$exec_output\n"
verbose "$exec_output" 1
# On OSF/1, this succeeds with gas and fails with /bin/as.
setup_xfail "alpha*-*-osf*"
- fail "objcopy ($testname)"
+ fail "objcopy $type ($testname)"
+ }
+ }
+}
+
+setup_xfail "hppa*-*-*"
+setup_xfail "sh-*-coff*"
+setup_xfail "tic54x-*-*"
+clear_xfail "hppa*64*-*-hpux*" "hppa*-*-linux*" "hppa*-*-lites*"
+clear_xfail "hppa*-*-*n*bsd*" "hppa*-*-rtems*" "hppa*-*-*elf*"
+objcopy_test "simple copy" bintest.s object "" ""
+
+# Test verilog data width
+proc objcopy_test_verilog {testname} {
+ global OBJCOPY
+ global OBJCOPYFLAGS
+ global srcdir
+ global subdir
+ global copyfile
+ set binfile tmpdir/verilogtest.o
+ set verilog tmpdir/verilog
+
+ set got [binutils_assemble $srcdir/$subdir/verilogtest.s $binfile]
+ if {![binutils_assemble $srcdir/$subdir/verilogtest.s $binfile]} then {
+ unresolved "objcopy ($testname)"
+ return
+ }
+
+ set got [binutils_run $OBJCOPY "-O verilog $binfile $verilog"]
+ if ![string equal "" $got] then {
+ fail "objcopy ($testname)"
+ }
+
+ set got [binutils_run $OBJCOPY "-O verilog --verilog-data-width 0 $binfile $verilog-0.hex"]
+ if ![regexp "verilog data width must be at least 1 byte" $got] then {
+ fail "objcopy ($testname 0) {$got}"
+ } else {
+ pass "objcopy ($testname 0)"
+ }
+
+ foreach width {1 2 4 8} {
+ set got [binutils_run $OBJCOPY "-O verilog --verilog-data-width $width $binfile $verilog-$width.hex"]
+ if ![string equal "" $got] then {
+ fail "objcopy ($testname $width)"
+ }
+ send_log "regexp_diff $verilog-$width.hex $srcdir/$subdir/verilog-$width.hex\n"
+ if {! [regexp_diff "$verilog-$width.hex" "$srcdir/$subdir/verilog-$width.hex"]} {
+ pass "objcopy ($testname $width)"
+ } else {
+ fail "objcopy ($testname $width)"
}
}
}
-objcopy_test "simple copy" bintest.s
+objcopy_test_verilog "verilog data width"
if { [file exists $tempfile] } {
# Test reversing bytes in a section.
set reversed ${tempfile}-reversed
set sect_names [get_standard_section_names]
if { $sect_names != "" } {
- set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -j [lindex $sect_names 1] --reverse-bytes=4 $tempfile $reversed"]
+ if { [istarget hppa*-*-hpux*] } {
+ set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -j \$PRIVATE\$ -j [lindex $sect_names 1] --reverse-bytes=4 $tempfile $reversed"]
+ } else {
+ set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -j [lindex $sect_names 1] --reverse-bytes=4 $tempfile $reversed"]
+ }
} else {
set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -j .data --reverse-bytes=4 $tempfile $reversed"]
}
set found_rev [regexp -lineanchor $want $revdata -> revdata]
if {$found_orig == 0 || $found_rev == 0} then {
- # som doesn't have a .data section
- setup_xfail "hppa*-*-hpux*"
- clear_xfail "hppa*64*-*-hpux*"
-
fail "objcopy --reverse-bytes"
} else {
scan $origdata "%2x%2x%2x%2x" b1 b2 b3 b4
remote_file build delete tmpdir/libstrip.a
set exec_output [binutils_run $AR "rc $archive ${objfile}"]
+ set exec_output [prune_warnings $exec_output]
if ![string equal "" $exec_output] {
fail $test
unresolved "$test preserving OS/ABI"
}
set exec_output [binutils_run $STRIP "-g $archive"]
+ set exec_output [prune_warnings $exec_output]
if ![string equal "" $exec_output] {
fail $test
unresolved "$test preserving OS/ABI"
}
set exec_output [binutils_run $STRIP "$STRIPFLAGS $archive"]
+ set exec_output [prune_warnings $exec_output]
if ![string equal "" $exec_output] {
fail $test
unresolved "$test preserving OS/ABI"
}
set exec_output [binutils_run $STRIP "$STRIPFLAGS $objfile"]
+ set exec_output [prune_warnings $exec_output]
if ![string equal "" $exec_output] {
fail $test
return
}
set exec_output [binutils_run $NM "-a $NMFLAGS $objfile"]
+ set exec_output [prune_warnings $exec_output]
if ![string match "*: no symbols*" $exec_output] {
fail $test
return
}
set exec_output [binutils_run $STRIP "$STRIPFLAGS -K main -K _main $objfile"]
+ set exec_output [prune_warnings $exec_output]
if ![string equal "" $exec_output] {
fail $test
return
}
set exec_output [binutils_run $NM "$NMFLAGS $objfile"]
+ set exec_output [prune_warnings $exec_output]
if {![regexp {^([0-9a-fA-F]+)?[ ]+[TD] main} $exec_output] \
&& ![regexp {^([0-9a-fA-F]+)?[ ]+T _main} $exec_output]} {
fail $test
set res [build_wrapper testglue.o]
set flags { debug }
- if { [istarget *-*-uclinux*] && ![istarget tic6x-*-*] } {
+ if { [istarget *-*-uclinux*] && ![istarget tic6x-*-*] && ![istarget arm*-*-uclinuxfdpiceabi] } {
return 1
}
setup_xfail "*-*-*"
}
- setup_xfail "arm*-*-coff"
setup_xfail "arm*-*-pe"
setup_xfail "*-*-mingw*"
setup_xfail "*-*-cygwin*"
# ia64 specific tests
if { ([istarget "ia64-*-elf*"]
|| [istarget "ia64-*-linux*"]) } {
- objcopy_test "ia64 link order" link-order.s
+ objcopy_test "ia64 link order" link-order.s object "" ""
}
# ELF specific tests
+set elf64 ""
if [is_elf_format] {
objcopy_test_symbol_manipulation
objcopy_test_elf_common_symbols
- objcopy_test "ELF unknown section type" unknown.s
- objcopy_test_readelf "ELF group" group.s
- objcopy_test_readelf "ELF group" group-2.s
- objcopy_test_readelf "ELF group" group-3.s
- objcopy_test_readelf "ELF group" group-4.s
+
+ setup_xfail "hppa*-*-*"
+ setup_xfail "sh-*-coff*"
+ setup_xfail "tic54x-*-*"
+ clear_xfail "hppa*64*-*-hpux*" "hppa*-*-linux*" "hppa*-*-lites*"
+ clear_xfail "hppa*-*-*n*bsd*" "hppa*-*-rtems*" "hppa*-*-*elf*"
+ objcopy_test "ELF unknown section type" unknown.s object "" ""
+
+ objcopy_test_readelf "ELF group 1" group.s
+ objcopy_test_readelf "ELF group 2" group-2.s
+ objcopy_test_readelf "ELF group 3" group-3.s
+ objcopy_test_readelf "ELF group 4" group-4.s
objcopy_test_readelf "GNU_MBIND section" mbind1.s
run_dump_test "group-5"
run_dump_test "group-6"
run_dump_test "group-7c"
run_dump_test "copy-1"
run_dump_test "note-1"
- if [is_elf64 tmpdir/bintest.o] {
+ # Use copytest.o from the note-1 test to determine ELF32 or ELF64
+ if [is_elf64 tmpdir/copytest.o] {
+ set elf64 "--defsym ELF64=1"
run_dump_test "note-2-64"
run_dump_test "note-3-64"
run_dump_test "note-4-64"
+ run_dump_test "note-6-64"
} else {
run_dump_test "note-2-32"
run_dump_test "note-3-32"
run_dump_test "note-4-32"
+ run_dump_test "note-6-32"
}
+ run_dump_test "note-5"
}
run_dump_test "copy-2"
run_dump_test "copy-3"
run_dump_test "copy-4"
+run_dump_test "copy-5"
+run_dump_test "copy-6"
+
+# Use bintest.o from the copy-4 test to determine ELF reloc type
+set reloc_format rel
+if { [is_elf_format] && [is_rela tmpdir/bintest.o] } {
+ set reloc_format rela
+}
run_dump_test "pr19020a"
run_dump_test "pr19020b"
if { [istarget "mips64*-*-openbsd*"] } {
set reloc_format mips64
- } elseif { [istarget "arm-*"] \
- || [istarget "d10v-*"] \
- || [istarget "dlx-*"] \
- || [istarget "i*86-*"] \
- || [istarget "i960-*"] \
- || [istarget "m681*-*"] \
- || [istarget "m68hc1*-*"] \
- || ([istarget "mips*-*"] \
- && ![istarget "mips64*-ps2-elf*"] \
- && ![istarget "*-*-irix6*"] \
- && ![istarget "mips64*-*-freebsd*"] \
- && ![istarget "mips64*-*-kfreebsd*-gnu"] \
- && ![istarget "mips64*-*-linux*"]) \
- || [istarget "score*-*"] \
- || [istarget "xgate-*"] } {
- set reloc_format rel
+ }
+ # A relocation type not supported by any target
+ if { [istarget "nds32*-*"] } {
+ set reloc 255
} else {
- set reloc_format rela
+ set reloc 215
}
- run_dump_test "strip-13" [list [list source strip-13${reloc_format}.s]]
+ run_dump_test "strip-13" [list \
+ [list source strip-13${reloc_format}.s] \
+ [list as "${elf64} --defsym RELOC=${reloc}"]]
# Select a relocation number that corresponds to one actually
# supported by the target and ABI being tested.
if { [istarget "aarch64*-*"] } {
set reloc 259
} elseif { [istarget "ia64*-*"] \
|| [istarget "m32r*-*"] \
+ || [istarget "nds32*-*"] \
|| [istarget "v850*-*"] } {
set reloc 50
+ } elseif { [istarget "pru-*"] } {
+ set reloc 11
} else {
set reloc 1
}
run_dump_test "strip-14" [list \
- [list source strip-14${reloc_format}.s] \
- [list as "--defsym RELOC=${reloc}"] \
- [list as [expr {[is_elf64 tmpdir/bintest.o] \
- ? "--defsym ELF64=1" : ""}]]]
+ [list source strip-14${reloc_format}.s] \
+ [list as "${elf64} --defsym RELOC=${reloc}"]]
+ run_dump_test "strip-15" [list \
+ [list source strip-15${reloc_format}.s] \
+ [list as "${elf64} --defsym RELOC=${reloc}"]]
# This requires STB_GNU_UNIQUE support with OSABI set to GNU.
if { [supports_gnu_unique] } {
run_dump_test "strip-10"
}
- set extra_strip11 ""
- if { [istarget "sh64*-*"] } {
- # pr17755 testcase
- set extra_strip11 { { "as" "--isa=SHmedia --abi=64" } }
- }
- run_dump_test "strip-11" $extra_strip11
+ run_dump_test "strip-11"
if { [istarget "i*86-*"] || [istarget "x86_64-*-*"] } {
# Check to make sure we don't strip a symbol named in relocations.
run_dump_test "only-section-01"
run_dump_test "remove-section-01"
+ run_dump_test "keep-section-1"
+ run_dump_test "keep-section-2"
+
# Test the remove relocation functionality
set test_list [lsort [glob -nocomplain $srcdir/$subdir/remove-relocs-*.d]]
foreach t $test_list {
}
set exec_output [binutils_run $OBJCOPY "$OBJCOPYFLAGS --strip-unneeded $objfile"]
+ set exec_output [prune_warnings $exec_output]
if ![string equal "" $exec_output] {
fail $test
return
}
set exec_output [binutils_run $OBJDUMP "$OBJDUMPFLAGS -t $objfile"]
+ set exec_output [prune_warnings $exec_output]
if {![regexp "no symbols" $exec_output]} {
fail $test
return
setup_xfail aarch64*-*-* arm*-*-*
objcopy_test_without_global_symbol
+
+# objcopy remove relocation from executable test
+
+proc objcopy_remove_relocations_from_executable { } {
+ global OBJCOPY
+ global srcdir
+ global subdir
+ global READELF
+
+ set test "remove-section relocation sections"
+
+ if { [target_compile $srcdir/$subdir/testprog.c tmpdir/pr23611 executable debug] != "" } {
+ untested $test
+ return
+ }
+
+ if [is_remote host] {
+ set objfile [remote_download host tmpdir/pr23611]
+ } else {
+ set objfile tmpdir/pr23611
+ }
+ set out tmpdir/pr23611.out
+
+ set exec_output1 [binutils_run $OBJCOPY "-R .rela.plt -R .rela.dyn -R .rel.plt -R .rel.dyn $objfile $out"]
+ set exec_output2 [binutils_run $READELF "-S $out"]
+ if { [string match "*.rel.plt*" $exec_output2] || [string match "*.rela.plt*" $exec_output2] || [string match "*.rel.dyn*" $exec_output2] || [string match "*.rela.dyn*" $exec_output2] } {
+ fail $test
+ return
+ }
+ pass $test
+}
+
+objcopy_remove_relocations_from_executable
+
+run_dump_test "pr23633"
+
+run_dump_test "set-section-alignment"
+
+setup_xfail "hppa*-*-*"
+setup_xfail "sh-*-coff*"
+setup_xfail "spu-*-*"
+clear_xfail "hppa*64*-*-hpux*" "hppa*-*-linux*" "hppa*-*-lites*"
+clear_xfail "hppa*-*-*n*bsd*" "hppa*-*-rtems*" "hppa*-*-*elf*"
+if { [istarget pdp11-*-*] } {
+ set src "pr25662-pdp11.s"
+} else {
+ set src "pr25662.s"
+}
+
+#xcoff doesn't support arbitrary sections
+if { ![is_xcoff_format] } {
+ objcopy_test "pr25662" $src executable "" "-T$srcdir/$subdir/pr25662.ld"
+}
projects / deliverable / binutils-gdb.git / blobdiff