X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=binutils%2Ftestsuite%2Fbinutils-all%2Fobjdump.exp;h=58b66d4bb608f793808acca9dea0a1a0f26fb2e4;hb=62e6599087efba193e0156d89ee65fb74fc99cb2;hp=3206a00c13fafe4782b816e03f6ac09e181fd8b9;hpb=d4cb0ea0caf03bea93ae6891017bb2301facb33f;p=deliverable%2Fbinutils-gdb.git diff --git a/binutils/testsuite/binutils-all/objdump.exp b/binutils/testsuite/binutils-all/objdump.exp index 3206a00c13..58b66d4bb6 100644 --- a/binutils/testsuite/binutils-all/objdump.exp +++ b/binutils/testsuite/binutils-all/objdump.exp @@ -1,17 +1,15 @@ -# Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, -# 2003, 2004, 2007, 2008, 2009, 2011 -# Free Software Foundation, Inc. +# Copyright (C) 1993-2019 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 # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. -# +# # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. -# +# # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. @@ -36,13 +34,13 @@ send_user "Version [binutil_version $OBJDUMP]" set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -i"] set cpus_expected [list] -lappend cpus_expected alpha arc arm cris -lappend cpus_expected d10v d30v fr30 fr500 fr550 h8 hppa i386 i860 i960 ip2022 -lappend cpus_expected m16c m32c m32r m68hc11 m68hc12 m68k m88k MCore -lappend cpus_expected mips mn10200 mn10300 ms1 msp ns32k pj powerpc pyramid -lappend cpus_expected romp rs6000 s390 sh sparc -lappend cpus_expected tahoe tic54x tic80 tms320c30 tms320c4x tms320c54x v850 -lappend cpus_expected vax we32k x86-64 xscale xtensa z8k z8001 z8002 +lappend cpus_expected aarch64 alpha am33-2 arc ARC700 ARCv2 arm cris +lappend cpus_expected d10v d30v fr30 fr500 fr550 h8 hppa i386 iamcu ip2022 +lappend cpus_expected m16c m32c m32r m68hc11 m68hc12 m68k MCore mep c5 h1 MicroBlaze +lappend cpus_expected mips mn10200 mn10300 ms1 msp MSP430 nds32 n1h_v3 ns32k +lappend cpus_expected or1k or1knd pj powerpc pyramid riscv romp rs6000 s390 sh sparc +lappend cpus_expected tic54x tic80 tilegx tms320c30 tms320c4x tms320c54x +lappend cpus_expected v850 vax x86-64 xscale xtensa z8k z8001 z8002 # Make sure the target CPU shows up in the list. lappend cpus_expected ${target_cpu} @@ -64,98 +62,336 @@ if [regexp $want $got] then { if {![binutils_assemble $srcdir/$subdir/bintest.s tmpdir/bintest.o]} then { + fail "objdump (assembling bintest.s)" + return +} +if {![binutils_assemble $srcdir/$subdir/bintest.s tmpdir/bintest2.o]} then { + fail "objdump (assembling)" return } if [is_remote host] { set testfile [remote_download host tmpdir/bintest.o] + set testfile2 [remote_download host tmpdir/bintest2.o] } else { set testfile tmpdir/bintest.o + 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 { + 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 + } elseif [is_remote host] { + set testarchive [remote_download host tmpdir/bintest.a] + } + remote_file host delete tmpdir/bintest2.o } # Test objdump -f -set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f $testfile"] +proc test_objdump_f { testfile dumpfile } { + global OBJDUMP + global OBJDUMPFLAGS + global cpus_regex -set want "$testfile:\[ \]*file format.*architecture:\[ \]*${cpus_regex}.*HAS_RELOC.*HAS_SYMS" + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f $testfile"] -if ![regexp $want $got] then { - fail "objdump -f" -} else { - pass "objdump -f" + set want "$dumpfile:\[ \]*file format.*architecture:\[ \]*${cpus_regex}.*HAS_RELOC.*HAS_SYMS" + + if ![regexp $want $got] then { + fail "objdump -f ($testfile, $dumpfile)" + } else { + pass "objdump -f ($testfile, $dumpfile)" + } +} + +test_objdump_f $testfile $testfile +if { [ remote_file host exists $testarchive ] } then { + test_objdump_f $testarchive bintest2.o } # Test objdump -h -set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h $testfile"] +proc test_objdump_h { testfile dumpfile } { + global OBJDUMP + global OBJDUMPFLAGS -set want "$testfile:\[ \]*file format.*Sections.*\[0-9\]+\[ \]+\[^ \]*(text|TEXT|\\\$CODE\\\$)\[^ \]*\[ \]*(\[0-9a-fA-F\]+).*\[0-9\]+\[ \]+\[^ \]*(\\.data|DATA)\[^ \]*\[ \]*(\[0-9a-fA-F\]+)" + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h $testfile"] -if ![regexp $want $got all text_name text_size data_name data_size] then { - fail "objdump -h" -} else { - verbose "text name is $text_name size is $text_size" - verbose "data name is $data_name size is $data_size" - set ets 8 - set eds 4 - # The [ti]c4x target has the property sizeof(char)=sizeof(long)=1 - if [istarget *c4x*-*-*] then { - set ets 2 - set eds 1 - } - # c54x section sizes are in bytes, not octets; adjust accordingly - if [istarget *c54x*-*-*] then { - set ets 4 - set eds 2 - } - if {[expr "0x$text_size"] < $ets || [expr "0x$data_size"] < $eds} then { - send_log "sizes too small\n" - fail "objdump -h" + set want "$dumpfile:\[ \]*file format.*Sections.*\[0-9\]+\[ \]+\[^ \]*(text|TEXT|P|\\\$CODE\\\$)\[^ \]*\[ \]*(\[0-9a-fA-F\]+).*\[0-9\]+\[ \]+\[^ \]*(\\.data|DATA|D_1)\[^ \]*\[ \]*(\[0-9a-fA-F\]+)" + + if ![regexp $want $got all text_name text_size data_name data_size] then { + fail "objdump -h ($testfile, $dumpfile)" } else { - pass "objdump -h" + verbose "text name is $text_name size is $text_size" + verbose "data name is $data_name size is $data_size" + set ets 8 + set eds 4 + # The [ti]c4x target has the property sizeof(char)=sizeof(long)=1 + if [istarget *c4x*-*-*] then { + set ets 2 + set eds 1 + } + # c54x section sizes are in bytes, not octets; adjust accordingly + if [istarget *c54x*-*-*] then { + set ets 4 + set eds 2 + } + if {[expr "0x$text_size"] < $ets || [expr "0x$data_size"] < $eds} then { + send_log "sizes too small\n" + fail "objdump -h ($testfile, $dumpfile)" + } else { + pass "objdump -h ($testfile, $dumpfile)" + } } } +test_objdump_h $testfile $testfile +if { [ remote_file host exists $testarchive ] } then { + test_objdump_h $testarchive bintest2.o +} + # Test objdump -t -set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -t $testfile"] +proc test_objdump_t { testfile} { + global OBJDUMP + global OBJDUMPFLAGS -if [info exists vars] then { unset vars } -while {[regexp "(\[a-z\]*_symbol)(.*)" $got all symbol rest]} { - set vars($symbol) 1 - set got $rest + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -t $testfile"] + + if [info exists vars] then { unset vars } + while {[regexp "(\[a-z\]*_symbol)(.*)" $got all symbol rest]} { + set vars($symbol) 1 + set got $rest + } + + if {![info exists vars(text_symbol)] \ + || ![info exists vars(data_symbol)] \ + || ![info exists vars(common_symbol)] \ + || ![info exists vars(external_symbol)]} then { + fail "objdump -t ($testfile)" + } else { + pass "objdump -t ($testfile)" + } } -if {![info exists vars(text_symbol)] \ - || ![info exists vars(data_symbol)] \ - || ![info exists vars(common_symbol)] \ - || ![info exists vars(external_symbol)]} then { - fail "objdump -t" -} else { - pass "objdump -t" +test_objdump_t $testfile +if { [ remote_file host exists $testarchive ] } then { + test_objdump_t $testarchive } # Test objdump -r -set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -r $testfile"] +proc test_objdump_r { testfile dumpfile } { + global OBJDUMP + global OBJDUMPFLAGS -set want "$testfile:\[ \]*file format.*RELOCATION RECORDS FOR \\\[\[^\]\]*(text|TEXT|\\\$CODE\\\$)\[^\]\]*\\\].*external_symbol" + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -r $testfile"] -if [regexp $want $got] then { - pass "objdump -r" -} else { - fail "objdump -r" + set want "$dumpfile:\[ \]*file format.*RELOCATION RECORDS FOR \\\[\[^\]\]*(text|TEXT|P|\\\$CODE\\\$)\[^\]\]*\\\].*external_symbol" + + if [regexp $want $got] then { + pass "objdump -r ($testfile, $dumpfile)" + } else { + fail "objdump -r ($testfile, $dumpfile)" + } +} + +test_objdump_r $testfile $testfile +if { [ remote_file host exists $testarchive ] } then { + test_objdump_r $testarchive bintest2.o +} + +# Test objdump -d +proc test_objdump_d { testfile dumpfile } { + global OBJDUMP + global OBJDUMPFLAGS + + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -d $testfile"] + + set want "$dumpfile:.*Disassembly of section" + if ![regexp $want $got] then { + fail "objdump -d $testfile: No disassembly title" + return + } + + set want "$dumpfile:.*00+0 " + if ![regexp $want $got] then { + fail "objdump -d $testfile: Missing symbol name and address" + return + } + + set want "$dumpfile:.*00+. " + if ![regexp $want $got] then { + fail "objdump -d $testfile: Missing second symbol" + return + } + + set want "$dumpfile:.*00+. " + if ![regexp $want $got] then { + fail "objdump -d $testfile: Missing third symbol" + return + } + + pass "objdump -d $testfile" +} + +test_objdump_d $testfile $testfile +if { [ remote_file host exists $testarchive ] } then { + test_objdump_d $testarchive bintest2.o +} + +# Test objdump --disassemble= +proc test_objdump_d_sym { testfile dumpfile } { + global OBJDUMP + global OBJDUMPFLAGS + + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble=text_symbol2 $testfile"] + + set want "$dumpfile:.*Disassembly of section" + if ![regexp $want $got] then { + fail "objdump --disassemble=text_symbol2 $testfile: No disassembly title" + return + } + + set want "$dumpfile:.*00+0 " + if [regexp $want $got] then { + fail "objdump --disassemble=text_symbol2 $testfile: First symbol displayed, when it should be absent" + return + } + + set want "$dumpfile:.*00+. " + if ![regexp $want $got] then { + fail "objdump --disassemble=text_symbol2 $testfile: Missing second symbol" + return + } + + set want "$dumpfile:.*00+. " + if [regexp $want $got] then { + fail "objdump --disassemble=text_symbol2 $testfile: Third symbol displayed when it should be absent" + return + } + + pass "objdump --disassemble=text_symbol2 $testfile" +} + +test_objdump_d_sym $testfile $testfile + +proc test_objdump_d_func_sym { testfile dumpfile } { + global OBJDUMP + global OBJDUMPFLAGS + + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble=func --disassemble-zeroes $testfile"] + + set want "$dumpfile:.*Disassembly of section" + if ![regexp $want $got] then { + fail "objdump --disassemble=func $testfile: No disassembly title" + return + } + + set want "$dumpfile:.*00+0 " + if [regexp $want $got] then { + fail "objdump --disassemble=func $testfile: First symbol displayed, when it should be absent" + return + } + + set want "$dumpfile:.*00+. " + if ![regexp $want $got] then { + fail "objdump --disassemble=func $testfile: Disassembly does not start at function symbol" + return + } + + set want "$dumpfile:.*00+. " + if ![regexp $want $got] then { + fail "objdump --disassemble=func $testfile: Non function symbol not displayed" + return + } + + set want "$dumpfile:.*00+. " + if [regexp $want $got] then { + fail "objdump --disassemble=func $testfile: Disassembly did not stop at the next function" + return + } + + pass "objdump --disassemble=func $testfile" } +proc test_objdump_d_non_func_sym { testfile dumpfile } { + global OBJDUMP + global OBJDUMPFLAGS + + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble=global_non_func_sym $testfile"] + + set want "$dumpfile:.*Disassembly of section" + if ![regexp $want $got] then { + fail "objdump --disassemble=non_func $testfile: No disassembly title" + return + } + + set want "$dumpfile:.*00+0 " + if [regexp $want $got] then { + fail "objdump --disassemble=non_func $testfile: First symbol displayed, when it should be absent" + return + } + + set want "$dumpfile:.*00+. " + if ![regexp $want $got] then { + fail "objdump --disassemble=non_func $testfile: Non function symbol not displayed" + return + } + + set want "$dumpfile:.*00+. " + if [regexp $want $got] then { + fail "objdump --disassemble=non_func $testfile: Disassembly did not stop at the next symbol" + return + } + + pass "objdump --disassemble=non_func $testfile" +} + +# Extra test for ELF format - check that --disassemble=func disassembles +# all of func, and does not stop at the next symbol. +if { [is_elf_format] } then { + + if {![binutils_assemble $srcdir/$subdir/disasm.s tmpdir/disasm.o]} then { + fail "objdump --disassemble=func (assembling disasm.s)" + } else { + if [is_remote host] { + set elftestfile [remote_download host tmpdir/disasm.o] + } else { + set elftestfile tmpdir/disasm.o + } + + test_objdump_d_func_sym $elftestfile $elftestfile + test_objdump_d_non_func_sym $elftestfile $elftestfile + } +} + + # Test objdump -s -set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -s $testfile"] +proc test_objdump_s { testfile dumpfile } { + global OBJDUMP + global OBJDUMPFLAGS -set want "$testfile:\[ \]*file format.*Contents.*(text|TEXT|\\\$CODE\\\$)\[^0-9\]*\[ \]*\[0-9a-fA-F\]*\[ \]*(00000001|01000000|00000100).*Contents.*(data|DATA)\[^0-9\]*\[ \]*\[0-9a-fA-F\]*\[ \]*(00000002|02000000|00000200)" + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -s $testfile"] -if [regexp $want $got] then { - pass "objdump -s" -} else { - fail "objdump -s" + set want "$dumpfile:\[ \]*file format.*Contents.*(text|TEXT|P|\\\$CODE\\\$)\[^0-9\]*\[ \]*\[0-9a-fA-F\]*\[ \]*(00000001|01000000|00000100).*Contents.*(data|DATA|D_1)\[^0-9\]*\[ \]*\[0-9a-fA-F\]*\[ \]*(00000002|02000000|00000200)" + + if [regexp $want $got] then { + pass "objdump -s ($testfile, $dumpfile)" + } else { + fail "objdump -s ($testfile, $dumpfile)" + } +} + +test_objdump_s $testfile $testfile +if { [ remote_file host exists $testarchive ] } then { + test_objdump_s $testarchive bintest2.o } # Test objdump -s on a file that contains a compressed .debug section @@ -203,11 +439,23 @@ if { ![is_elf_format] } then { } # Test objdump -WL on a file that contains line information for multiple files and search directories. - -if { ![is_elf_format] } then { +# Not supported on mcore and moxie targets because they do not (yet) support the generation +# of DWARF2 line debug information. + +if { ![is_elf_format] + || [istarget "hppa64*-*-hpux*"] + || [istarget "ia64*-*-*"] + || [istarget "mcore-*-*"] + || [istarget "moxie-*-*"] +} then { unsupported "objump decode line" } else { - if { ![binutils_assemble $srcdir/$subdir/dw2-decodedline.S tmpdir/dw2-decodedline.o] } then { + if { [istarget "or1k*-*-*"] } then { + set decodedline_testsrc $srcdir/$subdir/dw2-decodedline-1.S + } else { + set decodedline_testsrc $srcdir/$subdir/dw2-decodedline.S + } + if { ![binutils_assemble $decodedline_testsrc tmpdir/dw2-decodedline.o] } then { fail "objdump decoded line" } @@ -232,7 +480,370 @@ if { ![is_elf_format] } then { } } -# Options which are not tested: -a -d -D -R -T -x -l --stabs +# Test objdump -W on a file containing debug_ranges information. + +if { ![is_elf_format] } then { + unsupported "objdump debug_ranges test" +} elseif { ![binutils_assemble $srcdir/$subdir/dw2-ranges.S tmpdir/dw2-ranges.o] } then { + fail "objdump debug_ranges test" +} else { + if [is_remote host] { + set ranges_testfile [remote_download host tmpdir/dw2-ranges.o] + } else { + set ranges_testfile tmpdir/dw2-ranges.o + } + + set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS --dwarf=Ranges $ranges_testfile" "" "/dev/null" "objdump.out"] + + if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { + fail "objdump -W for debug_ranges (reason: unexpected output)" + send_log $got + send_log "\n" + } + + setup_xfail "msp430-*-*" "nds32*-*-*" + if { [regexp_diff objdump.out $srcdir/$subdir/dw2-ranges.W] } then { + fail "objdump -W for debug_ranges" + } else { + pass "objdump -W for debug_ranges" + } +} + +proc test_build_id_debuglink {} { + global srcdir + global subdir + global env + global STRIP + global OBJCOPY + global OBJDUMP + global CFLAGS_FOR_TARGET + + set test "build-id-debuglink" + + # Use a fixed build-id. + if { [info exists CFLAGS_FOR_TARGET] } { + set save_CFLAGS_FOR_TARGET $CFLAGS_FOR_TARGET + } + set CFLAGS_FOR_TARGET "-g -Wl,--build-id=0x12345678abcdef01" + + if { [target_compile $srcdir/$subdir/testprog.c tmpdir/testprog executable debug] != "" } { + unsupported "$test (build)" + return + } + + if { [info exists save_CFLAGS_FOR_TARGET] } { + set CFLAGS_FOR_TARGET $save_CFLAGS_FOR_TARGET + } else { + unset CFLAGS_FOR_TARGET + } + + if { [binutils_run $STRIP "--strip-debug --remove-section=.comment tmpdir/testprog -o tmpdir/testprog.strip"] != "" } { + fail "$test (strip debug info)" + return + } + + if { [binutils_run $OBJCOPY "--only-keep-debug tmpdir/testprog tmpdir/testprog.debug"] != "" } { + fail "$test (create separate debug info file)" + return + } + + set got [remote_exec host "mkdir -p .build-id/12" ] + if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { + fail "$test (make debug directory)" + return + } + + set got [remote_exec host "cp tmpdir/testprog.debug .build-id/12/345678abcdef01.debug"] + if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { + fail "$test (copy debug info into debug directory)" + return + } + + set got [remote_exec host "$OBJDUMP -Sl tmpdir/testprog.strip" "" "/dev/null" "tmpdir/testprog.strip.dump"] + if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { + fail "$test (post strip dump)" + return + } + + set src2 tmpdir/testprog.strip.dump + verbose " grep -e testprog.c ${src2}" + set status [remote_exec build grep "-e testprog.c ${src2}"] + set exec_output [lindex $status 1] + set exec_output [prune_warnings $exec_output] + if [string match "" $exec_output] then { + send_log "$exec_output\n" + verbose "$exec_output" 1 + fail "$test (grepping for source file name in disassembly output)" + } else { + pass "$test" + # Cleanup... + set got [remote_exec host "rm .build-id/12/345678abcdef01.debug"] + set got [remote_exec host "rmdir -p .build-id/12" ] + set got [remote_exec host "rm tmpdir/testprog.strip.dump"] + set got [remote_exec host "rm tmpdir/testprog.debug"] + set got [remote_exec host "rm tmpdir/testprog.strip"] + } +} + +if {[is_elf_format]} then { + test_build_id_debuglink +} + +# Test objdump -Wk on a file containing debug links. + +if { [is_elf_format] } then { + set testsrc $srcdir/$subdir/debuglink.s + + if { ![binutils_assemble $testsrc tmpdir/debuglink.o] } then { + fail "objdump -Wk (reason: could not assemble source)" + } + + if [is_remote host] { + set testfile [remote_download host tmpdir/debuglink.o] + } else { + set testfile tmpdir/debuglink.o + } + + set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS -Wk $testfile" "" "/dev/null" "objdump.out"] + + if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { + fail "objdump -Wk (reason: unexpected output)" + send_log $got + send_log "\n" + } + + if { [regexp_diff objdump.out $srcdir/$subdir/objdump.Wk] } then { + fail "objdump -Wk" + } else { + pass "objdump -Wk" + } +} + + +# Very similar to proc test_build_id_debuglink except this time we +# display some of the contents of the separate debug info file. + +proc test_follow_debuglink { options dumpfile } { + global srcdir + global subdir + global OBJDUMP + + set test "follow-debuglink ($options)" + + if {![binutils_assemble $srcdir/$subdir/debuglink.s tmpdir/debuglink.o]} then { + fail "$test (reason: assemble first source file)" + return + } + + if {![binutils_assemble $srcdir/$subdir/linkdebug.s tmpdir/linkdebug.debug]} then { + fail "$test (reason: assemble second source file)" + return + } + + if ![is_remote host] { + set tempfile tmpdir/debuglink.o + } else { + set tempfile [remote_download host tmpdir/linkdebug.debug] + set tempfile [remote_download host tmpdir/debuglink.o] + } + + set got [remote_exec host "$OBJDUMP $options $tempfile" "" "/dev/null" "tmpdir/objdump.out"] + if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then { + fail "$test (reason: unexpected error output from objdump)" + return + } + + if { [regexp_diff tmpdir/objdump.out $srcdir/$subdir/$dumpfile] } then { + fail $test + verbose "output is \n[file_contents objdump.out]" 2 + return + } + + pass $test + + # Tidy up + set got [remote_exec host "rm tmpdir/objdump.out"] + set got [remote_exec host "rm $tempfile"] + set got [remote_exec host "rm tmpdir/linkdebug.debug"] +} + +if {[is_elf_format]} then { + test_follow_debuglink "--dwarf=follow-links --dwarf=info --dwarf=str" objdump.WK2 + test_follow_debuglink "--dwarf=follow-links --headers --wide" objdump.WK3 +} + +# Test objdump output with start and stop address limits for the specified +# dump option + +proc test_objdump_limited { testfile dopt want start stop } { + global OBJDUMP + global OBJDUMPFLAGS + + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS $dopt --start-address 0x$start --stop-address 0x$stop $testfile"] + + if [regexp $want $got] then { + pass "objdump $dopt --start-address 0x$start --stop-address 0x$stop ($testfile)" + } else { + fail "objdump $dopt --start-address 0x$start --stop-address 0x$stop ($testfile)" + } +} + +# Test objdump -d --start-address M --stop-address N + +proc test_objdump_disas_limited { testfile text start stop } { + set want "$testfile:\[ \]*file format.*Disassembly of section $text:\n.*\[ \]*$start:.*" + test_objdump_limited $testfile -d $want $start $stop +} + +# Test objdump -s --start-address M --stop-address N + +proc test_objdump_content_limited { testfile text start stop } { + set want "$testfile:\[ \]*file format.*Contents of section $text:\n\[ \]*$start .*" + test_objdump_limited $testfile -s $want $start $stop +} + +# Test objdump with --start-address and --stop-address options for higher +# address ranges which may be sign-extended on targets that treat addresses +# as signed. We only check that objdump produces some dump output at the +# specified start address as a proxy for correct enforcement of the +# start/stop limits. + +if {[is_elf_format]} then { + set sect_names [get_standard_section_names] + if { $sect_names != "" } { + set text [lindex $sect_names 0] + } else { + set text ".text" + } + # generate a copy of the test object with .text repositioned + if { [binutils_run $OBJCOPY "--change-section-address $text=0x80000000 tmpdir/bintest.o tmpdir/bintest_signed.o"] != "" } { + fail "Failed to reposition $text to 0x80000000 (tmpdir/bintest.o -> tmpdir/bintest_signed.o)" + return + } + + if [is_remote host] { + set testfile3 [remote_download host tmpdir/bintest_signed.o] + } else { + set testfile3 tmpdir/bintest_signed.o + } + + test_objdump_content_limited $testfile3 $text "80000004" "80000008" + test_objdump_disas_limited $testfile3 $text "80000004" "80000008" + remote_file host delete $testfile3 +} + +# Test objdump on .NET assemblies (PE files) + +proc test_objdump_dotnet_assemblies {} { + global OBJDUMP + global base_dir + + set test "dotnet-assemblies" + + set got [binutils_run "$base_dir/testsuite/gentestdlls" "tmpdir pei-i386 pei-x86-64"] + set want "wrote linux-pei-x86-64.dll" + # The test program is hardcoded to generate valid dlls on any target + if ![regexp $want $got] then { + fail "$test" + } + + # First test an ordinary x86 PE format DLL. + set test "dotnet-assemblies (ordinary x86 DLL)" + set want "file format pei-i386" + set got [binutils_run $OBJDUMP "-x tmpdir/simple-pei-i386.dll"] + if ![regexp $want $got] then { + if [regexp "file format not recognized" $got] then { + # If the target does not recognize vanilla x86 PE format files + # then it cannot be expected to recognize .NET assemblies. But + # this means that these tests are unsupported, rather than failures. + unsupported $test + } else { + fail "$test" + } + # In either case, if cannot pass this test, then + # there is no point in running any further tests. + return + } + pass $test + + # Next check a 32-bit .NET DLL. + set test "dotnet-assemblies (32-bit .NET)" + set got [binutils_run $OBJDUMP "-x tmpdir/linux-pei-i386.dll"] + if ![regexp $want $got] then { + fail "$test" + } else { + pass $test + } + + # Next check an ordrinary x86_64 PE format DLL. + set test "dotnet-assemblies (ordinary x86_64 DLL)" + set want "file format pei-x86-64" + set got [binutils_run $OBJDUMP "-x tmpdir/simple-pei-x86-64.dll"] + if ![regexp $want $got] then { + if [regexp "file format not recognized" $got] then { + # If the target does not support 64-bit PE format + # files, then the following tests are unsupported. + unsupported $test + } else { + fail "$test" + } + return + } + pass $test + + # Finally check a 64-bit .NET DLL. + set test "dotnet-assemblies (64-bit)" + set got [binutils_run $OBJDUMP "-x tmpdir/linux-pei-x86-64.dll"] + if ![regexp $want $got] then { + fail "$test" + } else { + pass $test + } +} + +test_objdump_dotnet_assemblies + +# Test objdump -S + +proc test_objdump_S { } { + global srcdir + global subdir + global OBJDUMP + global OBJDUMPFLAGS + + set test "objdump -S" + + if { [target_compile $srcdir/$subdir/testprog.c tmpdir/testprog executable debug] != "" } { + unsupported "$test (build)" + return + } + + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -D -S tmpdir/testprog"] + + set want "static int local = 2" + + if [regexp $want $got] then { + pass $test + } else { + fail $test + } + + set test "objdump --source-comment" + + set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS --disassemble-all --source-comment=// tmpdir/testprog"] + + set want "//static int local = 2" + + if [regexp $want $got] then { + pass $test + } else { + fail $test + } +} + +test_objdump_S + +# Options which are not tested: -a -D -R -T -x -l --stabs # I don't see any generic way to test any of these other than -a. # Tests could be written for specific targets, and that should be done # if specific problems are found.