From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 13201 invoked by alias); 23 May 2019 10:16:10 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Received: (qmail 13107 invoked by uid 89); 23 May 2019 10:16:00 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-24.9 required=5.0 tests=AWL,BAYES_00,GIT_PATCH_0,GIT_PATCH_1,GIT_PATCH_2,GIT_PATCH_3,KAM_SHORT,SPF_PASS autolearn=ham version=3.3.1 spammy=H*MI:sk:2019050 X-HELO: mx1.suse.de Received: from mx2.suse.de (HELO mx1.suse.de) (195.135.220.15) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Thu, 23 May 2019 10:15:54 +0000 Received: from relay2.suse.de (unknown [195.135.220.254]) by mx1.suse.de (Postfix) with ESMTP id 0BDFCAE12; Thu, 23 May 2019 10:15:52 +0000 (UTC) Subject: [PING][PATCH][gdb/testsuite] Add test-case for gdb-add-index.sh From: Tom de Vries To: gdb-patches@sourceware.org Cc: Simon Marchi , Pedro Alves References: <20190507160800.GA29009@delia> Message-ID: Date: Thu, 23 May 2019 10:16:00 -0000 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Thunderbird/60.6.1 MIME-Version: 1.0 In-Reply-To: <20190507160800.GA29009@delia> Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit X-IsSubscribed: yes X-SW-Source: 2019-05/txt/msg00533.txt.bz2 On 07-05-19 18:08, Tom de Vries wrote: > Hi, > > Add a test-case gdb.dwarf2/gdb-add-index.exp to test > gdb/contrib/gdb-add-index.sh. > > Tested with x86_64-linux. > > OK for trunk? > Ping. Thanks, - Tom > [gdb/testsuite] Add test-case for gdb-add-index.sh > > gdb/testsuite/ChangeLog: > > 2019-05-07 Tom de Vries > > * gdb.dwarf2/gdb-add-index.exp: New file. > > --- > gdb/testsuite/gdb.dwarf2/gdb-add-index.exp | 69 ++++++++++++++++++++++++++++++ > 1 file changed, 69 insertions(+) > > diff --git a/gdb/testsuite/gdb.dwarf2/gdb-add-index.exp b/gdb/testsuite/gdb.dwarf2/gdb-add-index.exp > new file mode 100644 > index 0000000000..39286ec2e3 > --- /dev/null > +++ b/gdb/testsuite/gdb.dwarf2/gdb-add-index.exp > @@ -0,0 +1,69 @@ > +# 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 . > + > +load_lib dwarf.exp > + > +# This test can only be run on targets which support DWARF-2. > +if {![dwarf2_support]} { > + return 0 > +} > + > +standard_testfile main.c > + > +if { [prepare_for_testing "failed to prepare" "${testfile}" \ > + [list ${srcfile}]] } { > + return -1 > +} > + > +# Add a .gdb_index section to PROGRAM. > +# PROGRAM is assumed to be the output of standard_output_file. > +# Returns the path of the program or "" if there is a failure. > +# If there is a failure it will have already been logged. > + > +proc add_gdb_index { program } { > + global srcdir GDB env > + set contrib_dir "$srcdir/../contrib" > + set env(GDB) $GDB > + exec $contrib_dir/gdb-add-index.sh $program > + return ${program} > +} > + > +# Build a copy of the program with an index (.gdb_index/.debug_names). > +# But only if the toolchain didn't already create one: gdb doesn't support > +# building an index from a program already using one. > + > +set test "check if index present" > +gdb_test_multiple "mt print objfiles ${testfile}" $test { > + -re "gdb_index.*${gdb_prompt} $" { > + set binfile_with_index $binfile > + } > + -re "debug_names.*${gdb_prompt} $" { > + set binfile_with_index $binfile > + } > + -re "Psymtabs.*${gdb_prompt} $" { > + set binfile_with_index [add_gdb_index $binfile] > + if { ${binfile_with_index} == "" } { > + return -1 > + } > + } > +} > + > +# Ok, we have a copy of $binfile with an index. > +# Restart gdb and verify the index was used. > + > +clean_restart ${binfile_with_index} > +gdb_test "mt print objfiles ${testfile}" \ > + "(gdb_index|debug_names).*" \ > + "index used" >