mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2025-01-06 12:09:26 +08:00
90ed9b8bc1
When parsing DWARF data in order to report file/line type error messages we perform section placement to make section addresses unique within relocatable object files. Currently, if we reuse previously loaded (and cached) dwarf data then we neglect to perform section placement, the result is that the section addresses will not be unique, and we might, incorrectly associate an address with the wrong debug information, and so report an incorrect file and line number. Further we neglect to check that that bfd for which we are looking up debug information is actually the bfd for which the previous debug information was loaded, it is possible that we will reuse previously loaded debug information for a different bfd. And finally, due to following of gnu_debuglink links in one bfd to another, the process of checking that the cached debug information is valid requires us to track the original bfd in the cached debug information. The original debug information here is either the bfd that we're interested in, not the bfd we finally load the debug information from. bfd/ChangeLog: * dwarf2.c (struct dwarf2_debug): Add orig_bfd member. (_bfd_dwarf2_slurp_debug_info): If stashed debug information does not match current bfd, then reload debug information. Record bfd we're loading debug info for in the stash. If we have debug informatin in the cache then perform section placement before returning. ld/ChangeLog: * testsuite/ld-elf/dwarf.exp (build_tests): Add new tests. * testsuite/ld-elf/dwarf2.err: New file. * testsuite/ld-elf/dwarf2a.c: New file. * testsuite/ld-elf/dwarf2b.c: New file. * testsuite/ld-elf/dwarf3.c: New file. * testsuite/ld-elf/dwarf3.err: New file.
122 lines
3.0 KiB
Plaintext
122 lines
3.0 KiB
Plaintext
# Expect script for various DWARF tests.
|
|
# Copyright (C) 2006-2017 Free Software Foundation, Inc.
|
|
#
|
|
# This file is part of the GNU Binutils.
|
|
#
|
|
# 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.
|
|
#
|
|
|
|
#
|
|
# Written by H.J. Lu (hongjiu.lu@intel.com)
|
|
#
|
|
|
|
# Exclude non-ELF targets.
|
|
|
|
if ![is_elf_format] {
|
|
return
|
|
}
|
|
|
|
# Skip targets where -shared is not supported
|
|
|
|
if ![check_shared_lib_support] {
|
|
return
|
|
}
|
|
|
|
# Check if compiler works
|
|
if { [which $CC] == 0 } {
|
|
return
|
|
}
|
|
|
|
# Skip if -feliminate-dwarf2-dups isn't supported.
|
|
if ![ld_compile "$CC -g -feliminate-dwarf2-dups" $srcdir/$subdir/dummy.c tmpdir/dummy.o] {
|
|
return
|
|
}
|
|
|
|
set build_tests {
|
|
{"Build libdwarf1.so"
|
|
"-s -shared" "-fPIC -g -feliminate-dwarf2-dups"
|
|
{dwarf1.c} {} "libdwarf1.so"}
|
|
{"DWARF parse during linker error"
|
|
"" "-fno-toplevel-reorder"
|
|
{dwarf2a.c dwarf2b.c} {{error_output "dwarf2.err"}} "dwarf2.x"}
|
|
{"Handle no DWARF information"
|
|
"" "-g0"
|
|
{dwarf3.c} {{error_output "dwarf3.err"}} "dwarf3.x"}
|
|
}
|
|
|
|
set run_tests {
|
|
{"Run with libdwarf1.so first"
|
|
"-Wl,--no-as-needed tmpdir/libdwarf1.so" ""
|
|
{dwarf1main.c} "dwarf1a" "dwarf1.out"
|
|
"-g -feliminate-dwarf2-dups"}
|
|
{"Run with libdwarf1.so last"
|
|
"tmpdir/dwarf1main.o tmpdir/libdwarf1.so" ""
|
|
{dummy.c} "dwarf1b" "dwarf1.out"
|
|
"-g -feliminate-dwarf2-dups"}
|
|
}
|
|
|
|
run_cc_link_tests $build_tests
|
|
run_ld_link_exec_tests $run_tests
|
|
|
|
proc strip_test {} {
|
|
global ld
|
|
global strip
|
|
global NM
|
|
|
|
set test "libdwarf1c.so"
|
|
set test_name "Strip -s $test"
|
|
set prog $strip
|
|
|
|
if ![ld_link $ld tmpdir/$test "-shared tmpdir/dwarf1.o"] {
|
|
unresolved "$test_name"
|
|
return
|
|
}
|
|
|
|
send_log "$NM -D tmpdir/$test > tmpdir/$test.exp\n"
|
|
catch "exec $NM -D tmpdir/$test > tmpdir/$test.exp" got
|
|
if ![string match "" $got] then {
|
|
send_log "$got\n"
|
|
unresolved "$test_name"
|
|
return
|
|
}
|
|
|
|
send_log "$prog -s tmpdir/$test\n"
|
|
catch "exec $prog -s tmpdir/$test" got
|
|
if ![string match "" $got] then {
|
|
send_log "$got\n"
|
|
fail "$test_name"
|
|
return
|
|
}
|
|
|
|
send_log "$NM -D tmpdir/$test > tmpdir/$test.out\n"
|
|
catch "exec $NM -D tmpdir/$test > tmpdir/$test.out" got
|
|
if ![string match "" $got] then {
|
|
send_log "$got\n"
|
|
unresolved "$test_name"
|
|
return
|
|
}
|
|
|
|
if { [catch {exec cmp tmpdir/$test.exp tmpdir/$test.out}] } then {
|
|
send_log "tmpdir/$test.exp tmpdir/$test.out differ.\n"
|
|
fail "$test_name"
|
|
return
|
|
}
|
|
|
|
pass "$test_name"
|
|
}
|
|
|
|
strip_test
|