From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from smtp-out1.suse.de (smtp-out1.suse.de [195.135.220.28]) by sourceware.org (Postfix) with ESMTPS id 4A870385AC25 for ; Fri, 30 Jul 2021 15:25:43 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 4A870385AC25 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=suse.de Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=suse.de Received: from imap1.suse-dmz.suse.de (imap1.suse-dmz.suse.de [192.168.254.73]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature ECDSA (P-521) server-digest SHA512) (No client certificate requested) by smtp-out1.suse.de (Postfix) with ESMTPS id 6F23622445; Fri, 30 Jul 2021 15:25:42 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=suse.de; s=susede2_rsa; t=1627658742; h=from:from:reply-to:date:date:message-id:message-id:to:to:cc: mime-version:mime-version:content-type:content-type: in-reply-to:in-reply-to:references:references; bh=EEmtnRsXvut7kEdO/2EDnzdPsPTUMFsIweAv4CU8pyE=; b=OXliHG7BulzSgBJ+O7M2FRTkEMNx1U6N2IP9qswzcfs7I3+Jqrk/arbDAruArZolfrJkGk xADaW2381gVIxScrNVSuXhJHm1W5C5p1EKyc8kid7/w3jLLDJbYGTuwv8xeO7cS4BOdSEH BXG335TGgclI2npLvxd7v27ygBDGaEw= DKIM-Signature: v=1; a=ed25519-sha256; c=relaxed/relaxed; d=suse.de; s=susede2_ed25519; t=1627658742; h=from:from:reply-to:date:date:message-id:message-id:to:to:cc: mime-version:mime-version:content-type:content-type: in-reply-to:in-reply-to:references:references; bh=EEmtnRsXvut7kEdO/2EDnzdPsPTUMFsIweAv4CU8pyE=; b=+kuhEuISfPl6+wjjQX3Ew7+YepbybfCTzWzh+bfZ6Rq3bql7aoT/l0vu0HizyambMGPPeA KuruiV4L8cEzKEDA== Received: from imap1.suse-dmz.suse.de (imap1.suse-dmz.suse.de [192.168.254.73]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature ECDSA (P-521) server-digest SHA512) (No client certificate requested) by imap1.suse-dmz.suse.de (Postfix) with ESMTPS id 4F52613455; Fri, 30 Jul 2021 15:25:42 +0000 (UTC) Received: from dovecot-director2.suse.de ([192.168.254.65]) by imap1.suse-dmz.suse.de with ESMTPSA id xqW3EfYZBGHUCAAAGKfGzw (envelope-from ); Fri, 30 Jul 2021 15:25:42 +0000 Subject: Re: [PATCH master + 11][gdb/symtab] Fix zero address complaint for shlib To: Simon Marchi , gdb-patches@sourceware.org References: <20210729212317.GA8528@delia> <27cf76cf-b650-6b2e-e260-292f91db96e7@polymtl.ca> From: Tom de Vries Message-ID: Date: Fri, 30 Jul 2021 17:25:41 +0200 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Thunderbird/78.11.0 MIME-Version: 1.0 In-Reply-To: <27cf76cf-b650-6b2e-e260-292f91db96e7@polymtl.ca> Content-Type: multipart/mixed; boundary="------------ADD627CD6400859C6888BEF0" Content-Language: en-US X-Spam-Status: No, score=-11.9 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, KAM_SHORT, NICE_REPLY_A, SPF_HELO_NONE, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.4 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on server2.sourceware.org X-BeenThere: gdb-patches@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 30 Jul 2021 15:25:46 -0000 This is a multi-part message in MIME format. --------------ADD627CD6400859C6888BEF0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit On 7/30/21 3:25 AM, Simon Marchi wrote: > On 2021-07-29 5:23 p.m., Tom de Vries wrote: >> Hi, >> >> In PR28004 the following warning / Internal error is reported: >> ... >> $ gdb -q -batch \ >> -iex "set sysroot $(pwd -P)/repro" \ >> ./repro/gdb \ >> ./repro/core \ >> -ex bt >> ... >> Program terminated with signal SIGABRT, Aborted. >> #0 0x00007ff8fe8e5d22 in raise () from repro/usr/lib/libc.so.6 >> [Current thread is 1 (LWP 1762498)] >> #1 0x00007ff8fe8cf862 in abort () from repro/usr/lib/libc.so.6 >> warning: (Internal error: pc 0x7ff8feb2c21d in read in psymtab, \ >> but not in symtab.) >> warning: (Internal error: pc 0x7ff8feb2c218 in read in psymtab, \ >> but not in symtab.) >> ... >> #2 0x00007ff8feb2c21e in __gnu_debug::_Error_formatter::_M_error() const \ >> [clone .cold] (warning: (Internal error: pc 0x7ff8feb2c21d in read in \ >> psymtab, but not in symtab.) >> >> ) from repro/usr/lib/libstdc++.so.6 >> ... >> >> The warning is about the following: >> - in find_pc_sect_compunit_symtab we try to find the addres > > addres -> address > Fixed. >> (0x7ff8feb2c218 / 0x7ff8feb2c21d) in the symtabs. >> - that fails, so we try again in the partial symtabs. >> - we find a matching partial symtab >> - however, the partial symtab has a matching symtab, so >> we should have found a matching symtab in the first step. >> >> The addresses are: >> ... >> (gdb) info sym 0x7ff8feb2c218 >> __gnu_debug::_Error_formatter::_M_error() const [clone .cold] in \ >> section .text of repro/usr/lib/libstdc++.so.6 >> (gdb) info sym 0x7ff8feb2c21d >> __gnu_debug::_Error_formatter::_M_error() const [clone .cold] + 5 in \ >> section .text of repro/usr/lib/libstdc++.so.6 >> ... >> which correspond to unrelocated addresses 0x9c218 and 0x9c21d: >> ... >> $ nm -C repro/usr/lib/libstdc++.so.6.0.29 | grep 000000000009c218 >> 000000000009c218 t __gnu_debug::_Error_formatter::_M_error() const \ >> [clone .cold] >> ... >> >> The unrelocated addresses can be found in the partial symbols addresss map: >> ... >> (gdb) set $map = (addrmap_fixed *)m_partial_symtabs->psymtabs_addrmap >> (gdb) p /x $map->transitions[24] >> $47 = {addr = 0x9989c, value = 0x231d1b0} >> (gdb) p /x $map->transitions[25] >> $48 = {addr = 0xa2170, value = 0x5439980} >> ... >> and indeed we do: >> ... >> (gdb) p ps >> $1 = (partial_symtab *) 0x231d1b0 >> ... >> but not in the symbols address map: >> ... >> (gdb) set $symtab = ps->get_compunit_symtab (objfile) >> (gdb) set $map = (addrmap_fixed *)$symtab.blockvector.map >> (gdb) p /x $map.transitions[20] >> $42 = {addr = 0x7ff8feb2993a, value = 0x0} >> (gdb) p /x $map.transitions[21] >> $43 = {addr = 0x7ff8feb322b0, value = 0x6155ef0} >> ... >> >> The reason for the difference is between the two address maps (who are based on >> the same data), is this code in dwarf2_rnglists_process: >> ... >> /* A not-uncommon case of bad debug info. >> Don't pollute the addrmap with bad data. */ >> if (range_beginning + baseaddr == 0 >> && !per_objfile->per_bfd->has_section_at_zero) >> { >> complaint (_(".debug_rnglists entry has start address of zero" >> " [in module %s]"), objfile_name (objfile)); >> continue; >> } >> ... >> which triggers for the partial symbol table case (with unrelocated addresses), >> but not for the symbol table case (with relocated addresses). > > Interesting. Before Tom Tromey's changes to make partial symtabs > shareable between objfiles, partial symbols were also relocated right? > So it would mean that the `range_beginning + baseaddr == 0` was wrong > for both the partial and full symtabs, but with that change it became > right for the partial symtabs? > I build gdb 9.2 and did observe that the warning / Internal error does not trigger there. I have not yet checked this in more detail, but that might be because of what you suggest here. >> >> The difference is that in the latter case, baseaddr (initialized from >> objfile->text_section_offset ()) isn't 0. >> >> Fix this by removing the baseaddr part from the condition. Same for >> dwarf2_ranges_process. > > The change looks good to me. I am still confused by these weird ranges > starting at zero, but given that the check is already present, let's > make it right. > >> The test-case excercises the latter only for now. >> >> Tested on x86_64-linux. >> >> Any comments? > > Maybe state in the commit message what impact this patch has. It gets > rid of the warning shown above? > Done. >> diff --git a/gdb/testsuite/gdb.dwarf2/dw2-zero-range.exp b/gdb/testsuite/gdb.dwarf2/dw2-zero-range.exp >> new file mode 100644 >> index 00000000000..1805733db6c >> --- /dev/null >> +++ b/gdb/testsuite/gdb.dwarf2/dw2-zero-range.exp >> @@ -0,0 +1,97 @@ >> +# Copyright 2015-2021 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, see . >> +load_lib dwarf.exp > > Can you please add a short comment explaining what this test intends to > test? > Done. >> + >> +# This test can only be run on targets which support DWARF-2 and use gas. >> +if {![dwarf2_support]} { >> + verbose "Skipping $gdb_test_file_name." >> + return 0 >> +} >> + >> +if {[skip_shlib_tests]} { >> + return 0 >> +} >> + >> +# The .c files use __attribute__. >> +if [get_compiler_info] { >> + return -1 >> +} >> +if !$gcc_compiled { >> + verbose "Skipping $gdb_test_file_name." >> + return 0 >> +} >> + >> +standard_testfile .c -shlib.c -dw.S >> + >> +set asm_file [standard_output_file $srcfile3] >> +Dwarf::assemble $asm_file { >> + global srcdir subdir srcfile2 >> + declare_labels ranges_label >> + >> + cu {} { >> + compile_unit { >> + {language @DW_LANG_C} >> + {name $srcfile2} >> + {ranges ${ranges_label} DW_FORM_sec_offset} >> + } { >> + subprogram { >> + {external 1 flag} >> + {name foo} >> + } >> + } >> + } >> + >> + ranges {is_64 [is_64_target]} { >> + ranges_label: sequence { >> + base 0 >> + range 0 1 >> + } >> + } >> +} >> + >> +set lib1 [standard_output_file shr1.sl] >> +set lib_opts "nodebug" >> + >> +set sources [list ${srcdir}/${subdir}/$srcfile2 $asm_file] >> +if { [gdb_compile_shlib $sources ${lib1} $lib_opts] != "" } { >> + untested "failed to compile" >> + return -1 >> +} >> + >> +set exec_opts [list debug shlib=${lib1}] >> +set sources ${srcdir}/${subdir}/${srcfile} >> +if { [gdb_compile $sources ${binfile} executable \ >> + $exec_opts] != ""} { >> + untested "failed to compile" >> + return -1 >> +} >> + >> +clean_restart $binfile >> + >> +# Don't load the symbols for $lib1 during runto_main. >> +# Instead, we do this afterwards using "sharedlibrary $lib1". >> +gdb_test_no_output "set auto-solib-add off" >> + >> +if ![runto_main] { >> + return -1 >> +} > > I think runto_main does not (yet) produce a FAIL on failure, hence why > we need `fail "could not run to main"` everywhere. Done. Thanks for the review, and the .debug_rnglists addition. I've added the .debug_rnglists addition here as well, and added testing the complaint when doing gdb_load $lib1, in other words, the unrelocated case (which was already passing before this patch). Thanks, - Tom --------------ADD627CD6400859C6888BEF0 Content-Type: text/x-patch; charset=UTF-8; name="0001-gdb-symtab-Fix-zero-address-complaint-for-shlib.patch" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename*0="0001-gdb-symtab-Fix-zero-address-complaint-for-shlib.patch" [gdb/symtab] Fix zero address complaint for shlib In PR28004 the following warning / Internal error is reported: ... $ gdb -q -batch \ -iex "set sysroot $(pwd -P)/repro" \ ./repro/gdb \ ./repro/core \ -ex bt ... Program terminated with signal SIGABRT, Aborted. #0 0x00007ff8fe8e5d22 in raise () from repro/usr/lib/libc.so.6 [Current thread is 1 (LWP 1762498)] #1 0x00007ff8fe8cf862 in abort () from repro/usr/lib/libc.so.6 warning: (Internal error: pc 0x7ff8feb2c21d in read in psymtab, \ but not in symtab.) warning: (Internal error: pc 0x7ff8feb2c218 in read in psymtab, \ but not in symtab.) ... #2 0x00007ff8feb2c21e in __gnu_debug::_Error_formatter::_M_error() const \ [clone .cold] (warning: (Internal error: pc 0x7ff8feb2c21d in read in \ psymtab, but not in symtab.) ) from repro/usr/lib/libstdc++.so.6 ... The warning is about the following: - in find_pc_sect_compunit_symtab we try to find the address (0x7ff8feb2c218 / 0x7ff8feb2c21d) in the symtabs. - that fails, so we try again in the partial symtabs. - we find a matching partial symtab - however, the partial symtab has a matching symtab, so we should have found a matching symtab in the first step. The addresses are: ... (gdb) info sym 0x7ff8feb2c218 __gnu_debug::_Error_formatter::_M_error() const [clone .cold] in \ section .text of repro/usr/lib/libstdc++.so.6 (gdb) info sym 0x7ff8feb2c21d __gnu_debug::_Error_formatter::_M_error() const [clone .cold] + 5 in \ section .text of repro/usr/lib/libstdc++.so.6 ... which correspond to unrelocated addresses 0x9c218 and 0x9c21d: ... $ nm -C repro/usr/lib/libstdc++.so.6.0.29 | grep 000000000009c218 000000000009c218 t __gnu_debug::_Error_formatter::_M_error() const \ [clone .cold] ... The unrelocated addresses can be found in the partial symbols addresss map: ... (gdb) set $map = (addrmap_fixed *)m_partial_symtabs->psymtabs_addrmap (gdb) p /x $map->transitions[24] $47 = {addr = 0x9989c, value = 0x231d1b0} (gdb) p /x $map->transitions[25] $48 = {addr = 0xa2170, value = 0x5439980} ... and indeed we do: ... (gdb) p ps $1 = (partial_symtab *) 0x231d1b0 ... but not in the symbols address map: ... (gdb) set $symtab = ps->get_compunit_symtab (objfile) (gdb) set $map = (addrmap_fixed *)$symtab.blockvector.map (gdb) p /x $map.transitions[20] $42 = {addr = 0x7ff8feb2993a, value = 0x0} (gdb) p /x $map.transitions[21] $43 = {addr = 0x7ff8feb322b0, value = 0x6155ef0} ... The reason for the difference between the two address maps (who are based on the same data), is this code in dwarf2_rnglists_process: ... /* A not-uncommon case of bad debug info. Don't pollute the addrmap with bad data. */ if (range_beginning + baseaddr == 0 && !per_objfile->per_bfd->has_section_at_zero) { complaint (_(".debug_rnglists entry has start address of zero" " [in module %s]"), objfile_name (objfile)); continue; } ... which triggers for the partial symbol table case (with unrelocated addresses), but not for the symbol table case (with relocated addresses). The difference is that in the latter case, baseaddr (initialized from objfile->text_section_offset ()) isn't 0. Fix this by removing the baseaddr part from the condition. Same for dwarf2_ranges_process. The effect is that: - the complaint is triggered, and - the warning / Internal error is no longer triggered. Tested on x86_64-linux. gdb/ChangeLog: 2021-07-29 Simon Marchi Tom de Vries PR symtab/28004 * gdb/dwarf2/read.c (dwarf2_rnglists_process, dwarf2_ranges_process): Fix zero address complaint. * gdb/testsuite/gdb.dwarf2/dw2-zero-range-shlib.c: New test. * gdb/testsuite/gdb.dwarf2/dw2-zero-range.c: New test. * gdb/testsuite/gdb.dwarf2/dw2-zero-range.exp: New file. --- gdb/dwarf2/read.c | 10 +- gdb/testsuite/gdb.dwarf2/dw2-zero-range-shlib.c | 21 ++++ gdb/testsuite/gdb.dwarf2/dw2-zero-range.c | 24 ++++ gdb/testsuite/gdb.dwarf2/dw2-zero-range.exp | 150 ++++++++++++++++++++++++ 4 files changed, 197 insertions(+), 8 deletions(-) diff --git a/gdb/dwarf2/read.c b/gdb/dwarf2/read.c index 6f1b453ef45..de84c47b626 100644 --- a/gdb/dwarf2/read.c +++ b/gdb/dwarf2/read.c @@ -13631,7 +13631,6 @@ dwarf2_rnglists_process (unsigned offset, struct dwarf2_cu *cu, /* Base address selection entry. */ gdb::optional base; const gdb_byte *buffer; - CORE_ADDR baseaddr; bool overflow = false; ULONGEST addr_index; struct dwarf2_section_info *rnglists_section; @@ -13648,8 +13647,6 @@ dwarf2_rnglists_process (unsigned offset, struct dwarf2_cu *cu, } buffer = rnglists_section->buffer + offset; - baseaddr = objfile->text_section_offset (); - while (1) { /* Initialize it due to a false compiler warning. */ @@ -13791,7 +13788,7 @@ dwarf2_rnglists_process (unsigned offset, struct dwarf2_cu *cu, /* A not-uncommon case of bad debug info. Don't pollute the addrmap with bad data. */ - if (range_beginning + baseaddr == 0 + if (range_beginning == 0 && !per_objfile->per_bfd->has_section_at_zero) { complaint (_(".debug_rnglists entry has start address of zero" @@ -13833,7 +13830,6 @@ dwarf2_ranges_process (unsigned offset, struct dwarf2_cu *cu, dwarf_tag tag, gdb::optional base; unsigned int dummy; const gdb_byte *buffer; - CORE_ADDR baseaddr; if (cu_header->version >= 5) return dwarf2_rnglists_process (offset, cu, tag, callback); @@ -13849,8 +13845,6 @@ dwarf2_ranges_process (unsigned offset, struct dwarf2_cu *cu, dwarf_tag tag, } buffer = per_objfile->per_bfd->ranges.buffer + offset; - baseaddr = objfile->text_section_offset (); - while (1) { CORE_ADDR range_beginning, range_end; @@ -13901,7 +13895,7 @@ dwarf2_ranges_process (unsigned offset, struct dwarf2_cu *cu, dwarf_tag tag, /* A not-uncommon case of bad debug info. Don't pollute the addrmap with bad data. */ - if (range_beginning + baseaddr == 0 + if (range_beginning == 0 && !per_objfile->per_bfd->has_section_at_zero) { complaint (_(".debug_ranges entry has start address of zero" diff --git a/gdb/testsuite/gdb.dwarf2/dw2-zero-range-shlib.c b/gdb/testsuite/gdb.dwarf2/dw2-zero-range-shlib.c new file mode 100644 index 00000000000..1ddc8d6677b --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/dw2-zero-range-shlib.c @@ -0,0 +1,21 @@ +/* + Copyright 2021 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, see . */ + +void +foo (void) +{ + asm ("foo_label: .globl foo_label"); +} diff --git a/gdb/testsuite/gdb.dwarf2/dw2-zero-range.c b/gdb/testsuite/gdb.dwarf2/dw2-zero-range.c new file mode 100644 index 00000000000..a32c9242c8d --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/dw2-zero-range.c @@ -0,0 +1,24 @@ +/* + Copyright 2021 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, see . */ + +extern void foo (void); + +void +main (void) +{ + asm ("main_label: .globl main_label"); + foo (); +} diff --git a/gdb/testsuite/gdb.dwarf2/dw2-zero-range.exp b/gdb/testsuite/gdb.dwarf2/dw2-zero-range.exp new file mode 100644 index 00000000000..197f077edad --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/dw2-zero-range.exp @@ -0,0 +1,150 @@ +# Copyright 2021 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, see . + +# Check that the ".debug_ranges entry has start address of zero" complaint +# is triggered for a loaded shared lib. + +load_lib dwarf.exp + +# This test can only be run on targets which support DWARF-2 and use gas. +if {![dwarf2_support]} { + verbose "Skipping $gdb_test_file_name." + return 0 +} + +if {[skip_shlib_tests]} { + return 0 +} + +# The .c files use __attribute__. +if [get_compiler_info] { + return -1 +} +if !$gcc_compiled { + verbose "Skipping $gdb_test_file_name." + return 0 +} + +standard_testfile .c -shlib.c -dw.S + +# Test with both a .debug_ranges section (DWARF 4) and a .debug_rnglists +# section (DWARF 5). + +foreach_with_prefix ranges_sect {ranges rnglists} { + set asm_file [standard_output_file ${ranges_sect}-$srcfile3] + + if { $ranges_sect == "ranges" } { + Dwarf::assemble $asm_file { + global srcdir subdir srcfile2 + declare_labels ranges_label + + cu {} { + compile_unit { + {language @DW_LANG_C} + {name $srcfile2} + {ranges ${ranges_label} DW_FORM_sec_offset} + } { + subprogram { + {external 1 flag} + {name foo} + } + } + } + + ranges {is_64 [is_64_target]} { + ranges_label: sequence { + base 0 + range 0 1 + } + } + } + } elseif { $ranges_sect == "rnglists" } { + Dwarf::assemble $asm_file { + global srcdir subdir srcfile2 + declare_labels rnglists_label + + cu { + version 5 + } { + compile_unit { + {language @DW_LANG_C} + {name $srcfile2} + {ranges ${rnglists_label} DW_FORM_sec_offset} + } { + subprogram { + {external 1 flag} + {name foo} + } + } + } + + rnglists { + table { + rnglists_label: list_ { + start_end 0 1 + } + } + } + } + } else { + error "invalid ranges section kind" + } + + set lib1 [standard_output_file shr1.sl] + set lib_opts "nodebug" + + set sources [list ${srcdir}/${subdir}/$srcfile2 $asm_file] + if { [gdb_compile_shlib $sources ${lib1} $lib_opts] != "" } { + untested "failed to compile" + return -1 + } + + set exec_opts [list debug shlib=${lib1}] + set sources ${srcdir}/${subdir}/${srcfile} + if { [gdb_compile $sources ${binfile} executable \ + $exec_opts] != ""} { + untested "failed to compile" + return -1 + } + + clean_restart $binfile + + # Don't load the symbols for $lib1 during runto_main. + # Instead, we do this afterwards using "sharedlibrary $lib1". + gdb_test_no_output "set auto-solib-add off" + + if { ![runto_main] } { + fail "cannot run to main." + return -1 + } + + set complaint_re ".debug_${ranges_sect} entry has start address of zero" + set re \ + "During symbol reading: $complaint_re \\\[in module \[^\r\n\]*\\\]" + + # Test for presence of complaint, with lib1 relocated. + with_complaints 1 { + gdb_test "sharedlibrary $lib1" $re \ + "Zero address complaint - relocated" + } + + clean_restart + # Test for presence of complaint, with lib1 unrelocated. + with_complaints 1 { + gdb_load $lib1 + gdb_assert { [regexp $re.* $gdb_file_cmd_msg] } \ + "Zero address complaint - unrelocated" + } +} --------------ADD627CD6400859C6888BEF0--