From patchwork Wed Jul 31 20:14:08 2019 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tom Tromey X-Patchwork-Id: 33881 Received: (qmail 121609 invoked by alias); 31 Jul 2019 20:22:37 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Delivered-To: mailing list gdb-patches@sourceware.org Received: (qmail 121601 invoked by uid 89); 31 Jul 2019 20:22:36 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-22.3 required=5.0 tests=AWL, BAYES_00, GIT_PATCH_0, GIT_PATCH_1, GIT_PATCH_2, GIT_PATCH_3, KAM_SHORT, RCVD_IN_DNSWL_NONE, SPF_PASS autolearn=ham version=3.3.1 spammy= X-HELO: rock.gnat.com Received: from rock.gnat.com (HELO rock.gnat.com) (205.232.38.15) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Wed, 31 Jul 2019 20:22:35 +0000 Received: from localhost (localhost.localdomain [127.0.0.1]) by filtered-rock.gnat.com (Postfix) with ESMTP id 7C4A1117099; Wed, 31 Jul 2019 16:14:16 -0400 (EDT) Received: from rock.gnat.com ([127.0.0.1]) by localhost (rock.gnat.com [127.0.0.1]) (amavisd-new, port 10024) with LMTP id MDyY3-r+00Hp; Wed, 31 Jul 2019 16:14:16 -0400 (EDT) Received: from murgatroyd.Home (97-122-178-82.hlrn.qwest.net [97.122.178.82]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by rock.gnat.com (Postfix) with ESMTPSA id 27F2B116BDB; Wed, 31 Jul 2019 16:14:16 -0400 (EDT) From: Tom Tromey To: gdb-patches@sourceware.org Cc: Tom Tromey Subject: [PATCH 5/8] Fix latent bug in .debug_names file-name handling Date: Wed, 31 Jul 2019 14:14:08 -0600 Message-Id: <20190731201411.8044-6-tromey@adacore.com> In-Reply-To: <20190731201411.8044-1-tromey@adacore.com> References: <20190731201411.8044-1-tromey@adacore.com> MIME-Version: 1.0 An internal Ada test case showed that the .debug_names code does not compute the same list of file names as the partial symbol reader. In particular, the partial symbol reader uses the DW_AT_name of the CU: /* Allocate a new partial symbol table structure. */ filename = dwarf2_string_attr (comp_unit_die, DW_AT_name, cu); if (filename == NULL) filename = ""; pst = create_partial_symtab (per_cu, filename); This patch changes the .debug_names reader to follow. gdb/ChangeLog 2019-07-31 Tom Tromey * dwarf2read.c (dw2_get_file_names_reader): Add the CU's file name to the results. gdb/testsuite/ChangeLog 2019-07-31 Tom Tromey * gdb.ada/dgopt.exp: New file. * gdb.ada/dgopt/x.adb: New file. --- gdb/ChangeLog | 5 +++++ gdb/dwarf2read.c | 12 ++++++++--- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/gdb.ada/dgopt.exp | 34 +++++++++++++++++++++++++++++++ gdb/testsuite/gdb.ada/dgopt/x.adb | 19 +++++++++++++++++ 5 files changed, 72 insertions(+), 3 deletions(-) create mode 100644 gdb/testsuite/gdb.ada/dgopt.exp create mode 100644 gdb/testsuite/gdb.ada/dgopt/x.adb diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index 2c55f8d7cd9..4332f73991a 100644 --- a/gdb/dwarf2read.c +++ b/gdb/dwarf2read.c @@ -3685,11 +3685,17 @@ dw2_get_file_names_reader (const struct die_reader_specs *reader, file_and_directory fnd = find_file_and_directory (comp_unit_die, cu); - qfn->num_file_names = lh->file_names.size (); + int offset = 0; + if (strcmp (fnd.name, "") != 0) + ++offset; + + qfn->num_file_names = offset + lh->file_names.size (); qfn->file_names = - XOBNEWVEC (&objfile->objfile_obstack, const char *, lh->file_names.size ()); + XOBNEWVEC (&objfile->objfile_obstack, const char *, qfn->num_file_names); + if (offset != 0) + qfn->file_names[0] = xstrdup (fnd.name); for (i = 0; i < lh->file_names.size (); ++i) - qfn->file_names[i] = file_full_name (i + 1, lh.get (), fnd.comp_dir); + qfn->file_names[i + offset] = file_full_name (i + 1, lh.get (), fnd.comp_dir); qfn->real_names = NULL; lh_cu->v.quick->file_names = qfn; diff --git a/gdb/testsuite/gdb.ada/dgopt.exp b/gdb/testsuite/gdb.ada/dgopt.exp new file mode 100644 index 00000000000..db69121b400 --- /dev/null +++ b/gdb/testsuite/gdb.ada/dgopt.exp @@ -0,0 +1,34 @@ +# Copyright 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, see . + +# Test case using the -gnatDG option. + +load_lib "ada.exp" + +standard_ada_testfile x + +if {[gdb_compile_ada "${srcfile}" "${binfile}" executable \ + {debug additional_flags=-gnatDG}] != "" } { + return -1 +} + +clean_restart ${testfile} + +# The bug occurs with .debug_names, but here we don't check whether +# the appropriate target board is in use. The problem was that the +# .adb file did not end up in the file table, but did show up in the +# DWARF, which the psymtab reader handled, but which the .debug_names +# reader did not. +gdb_test "list x.adb:16, 16" "16.*procedure X is" diff --git a/gdb/testsuite/gdb.ada/dgopt/x.adb b/gdb/testsuite/gdb.ada/dgopt/x.adb new file mode 100644 index 00000000000..039e99d3933 --- /dev/null +++ b/gdb/testsuite/gdb.ada/dgopt/x.adb @@ -0,0 +1,19 @@ +-- Copyright 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, see . + +procedure X is +begin + null; +end X;