diff options
author | Tom de Vries <tdevries@suse.de> | 2019-05-24 14:25:33 +0200 |
---|---|---|
committer | Tom de Vries <tdevries@suse.de> | 2019-05-24 14:25:33 +0200 |
commit | 5a01c34c62ff9085a0f45ec2a43a38e7b455b23b (patch) | |
tree | cdb80e04b9d621e0ce7b1296d5f3481d188f4f81 | |
parent | 04bdff6a76b863e61ee46375dd7cdc9adfb75540 (diff) | |
download | gdb-5a01c34c62ff9085a0f45ec2a43a38e7b455b23b.zip gdb-5a01c34c62ff9085a0f45ec2a43a38e7b455b23b.tar.gz gdb-5a01c34c62ff9085a0f45ec2a43a38e7b455b23b.tar.bz2 |
[gdb/testsuite] Add test-case for gdb-add-index.sh
Add a test-case gdb.dwarf2/gdb-add-index.exp to test
gdb/contrib/gdb-add-index.sh.
Tested with x86_64-linux.
gdb/testsuite/ChangeLog:
2019-05-24 Tom de Vries <tdevries@suse.de>
* gdb.dwarf2/gdb-add-index.exp: New file.
-rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
-rw-r--r-- | gdb/testsuite/gdb.dwarf2/gdb-add-index.exp | 74 |
2 files changed, 78 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 2950a41..ba657cc 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2019-05-24 Tom de Vries <tdevries@suse.de> + + * gdb.dwarf2/gdb-add-index.exp: New file. + 2019-05-22 Tom Tromey <tromey@adacore.com> * gdb.base/info-shared.exp (check_info_shared): Use "style". 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 0000000..1c87d49 --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/gdb-add-index.exp @@ -0,0 +1,74 @@ +# 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 <http://www.gnu.org/licenses/>. + +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 0 if there is a failure, otherwise 1. + +proc add_gdb_index { program } { + global srcdir GDB env BUILD_DATA_DIRECTORY + set contrib_dir "$srcdir/../contrib" + set env(GDB) "$GDB --data-directory=$BUILD_DATA_DIRECTORY" + set result [catch "exec $contrib_dir/gdb-add-index.sh $program" output] + if { $result != 0 } { + verbose -log "result is $result" + verbose -log "output is $output" + return 0 + } + + return 1 +} + +# 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} $" { + if { [add_gdb_index $binfile] != "1" } { + return -1 + } + set binfile_with_index $binfile + } +} + +# 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" |