mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-27 04:52:05 +08:00
4a94e36819
This commit brings all the changes made by running gdb/copyright.py as per GDB's Start of New Year Procedure. For the avoidance of doubt, all changes in this commits were performed by the script.
270 lines
8.5 KiB
Plaintext
270 lines
8.5 KiB
Plaintext
# Copyright 2021-2022 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/>.
|
|
|
|
# This test exercises the gdb-gdb.py helper script that is generated
|
|
# into the GDB build directory. This script is intended for use by
|
|
# developers to make debugging GDB easier.
|
|
|
|
load_lib selftest-support.exp
|
|
|
|
if [target_info exists gdb,noinferiorio] {
|
|
verbose "Skipping because of no inferiorio capabilities."
|
|
return
|
|
}
|
|
|
|
standard_testfile .cc
|
|
|
|
if { [build_executable "failed to build" $testfile $srcfile {debug c++}] } {
|
|
return -1
|
|
}
|
|
|
|
# Find the helper script in the GDB build directory.
|
|
set py_helper_script [file dirname $GDB]/gdb-gdb.py
|
|
if { ![file readable $py_helper_script] \
|
|
|| [file type $py_helper_script] != "file" } {
|
|
untested "failed to find gdb-gdb.py helper script"
|
|
return
|
|
}
|
|
|
|
# Start GDB and check that we have python support.
|
|
gdb_start
|
|
if { [skip_python_tests] } {
|
|
untested "skipped gdb-gdb.py tests due to lack of python support"
|
|
return
|
|
}
|
|
gdb_exit
|
|
|
|
# The main test. This is called by the self-test framework once GDB
|
|
# has been started on a copy of itself.
|
|
proc test_python_helper {} {
|
|
global py_helper_script decimal hex gdb_prompt
|
|
global inferior_spawn_id
|
|
|
|
# Source the python helper script. This script registers the
|
|
# pretty printer for the object file called 'gdb', however, in our
|
|
# selftests we rename 'gdb' to 'xgdb', so the pretty printer
|
|
# doesn't get registered by default.
|
|
#
|
|
# So, after sourcing the script we do our own objfile scan and
|
|
# register the pretty printer for the objfile called 'xgdb'.
|
|
gdb_test_no_output "source $py_helper_script" \
|
|
"source gdb-gdb.py helper script"
|
|
gdb_test [multi_line_input \
|
|
"python" \
|
|
"for objfile in gdb.objfiles():" \
|
|
" if os.path.basename(objfile.filename) == \"xgdb\":" \
|
|
" objfile.pretty_printers.append(type_lookup_function)" \
|
|
"end"] ".*" \
|
|
"register the type pretty printer"
|
|
|
|
# Now place breakpoints somewhere useful. These locations can be
|
|
# any function that:
|
|
#
|
|
# (a) is easy to reach by issuing a simple gdb command, and
|
|
# (b) is unlikely to be modified very often within gdb, and
|
|
# (c) has a parameter that is either a 'struct type *' or a 'struct value *'.
|
|
gdb_breakpoint value_print qualified
|
|
gdb_breakpoint c_print_type qualified
|
|
|
|
# Disable all breakpoints until after we have loaded the test
|
|
# binary into the inner GDB.
|
|
gdb_test_no_output "disable breakpoints"
|
|
|
|
# Adjust the prompt on the outer gdb, this just makes things a
|
|
# little clearer when trying to unpick which GDB is active.
|
|
gdb_test_multiple "set prompt (outer-gdb) " "set outer gdb prompt" {
|
|
-re "\[(\]outer-gdb\[)\].*\[(\]outer-gdb\[)\] $" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
# Send a command to the outer GDB to continue the inner GDB. The
|
|
# stop is being detected from the inner GDB, hence the use of -i
|
|
# here.
|
|
gdb_test_multiple "continue" "start inner gdb" {
|
|
-i "$inferior_spawn_id"
|
|
-re "\r\n$gdb_prompt $" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
# Load the test executable into the inner GDB. The output here is
|
|
# being read from the inner GDB, hence the use of -i here.
|
|
send_inferior "file -readnow $::binfile\n"
|
|
gdb_test_multiple "" "loading test binary into inner GDB" {
|
|
-i "$inferior_spawn_id"
|
|
-re "Reading symbols from.*\r\n$gdb_prompt $" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
# Send Ctrl-C to the inner GDB, this should kick us back to the
|
|
# prompt of the outer GDB.
|
|
send_inferior "\003"
|
|
gdb_test_multiple "" "interrupted the inner" {
|
|
-re ".*\\(outer-gdb\\) $" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
# Now enable all breakpoints within the outer GDB.
|
|
gdb_test_multiple "enable breakpoints" "" {
|
|
-re "\\(outer-gdb\\) $" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
# We need to resume the inner GDB after interrupting it, this is
|
|
# done by sending 'continue'. However, GDB will not redisplay the
|
|
# prompt in this case, so we have nothing that we can detect in
|
|
# order to know this continue was successful. Still, if this
|
|
# didn't work, then later tests should fail.
|
|
send_gdb "continue\n"
|
|
|
|
# Control is back with the inner GDB. Send a command to the inner
|
|
# GDB, this should result in the outer GDB stopping at one of the
|
|
# breakpoints we created..
|
|
send_inferior "print 1\n"
|
|
gdb_test_multiple "" "hit breakpoint in outer gdb" {
|
|
-re "Breakpoint $decimal, value_print.*\\(outer-gdb\\) $" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
# Now inspect the type of parameter VAL, this should trigger the
|
|
# pretty printers.
|
|
set answer [multi_line \
|
|
"${decimal} = " \
|
|
"{pointer_type = 0x0," \
|
|
" reference_type = 0x0," \
|
|
" chain = 0x0," \
|
|
" instance_flags = 0," \
|
|
" length = $decimal," \
|
|
" main_type = $hex}" \
|
|
"\\(outer-gdb\\) $"]
|
|
gdb_test_multiple "print *val->type" "pretty print type" {
|
|
-re "$answer" {
|
|
pass $gdb_test_name
|
|
}
|
|
-re "There is no member named.*\r\n\\(outer-gdb\\) $" {
|
|
fail $gdb_test_name
|
|
}
|
|
}
|
|
|
|
set answer [multi_line \
|
|
"$decimal = " \
|
|
"{name = $hex \"int\"," \
|
|
" code = TYPE_CODE_INT," \
|
|
" flags = \[^\r\n\]+," \
|
|
" owner = $hex \\(gdbarch\\)," \
|
|
" target_type = 0x0," \
|
|
" type_specific_field = TYPE_SPECIFIC_NONE}" \
|
|
"\\(outer-gdb\\) $"]
|
|
gdb_test_multiple "print *val->type->main_type" "pretty print type->main_type" {
|
|
-re "$answer" {
|
|
pass $gdb_test_name
|
|
}
|
|
-re "There is no member named.*\r\n\\(outer-gdb\\) $" {
|
|
fail $gdb_test_name
|
|
}
|
|
}
|
|
|
|
# Send the continue to the outer GDB, which resumes the inner GDB,
|
|
# we then detect the prompt from the inner GDB, hence the use of
|
|
# -i here.
|
|
gdb_test_multiple "continue" "resume inner gdb" {
|
|
-i $inferior_spawn_id
|
|
-re "\r\n$gdb_prompt $" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
# Now print an integer that was created from the DWARF
|
|
# information, this will include the TYPE_SPECIFIC_INT
|
|
# information.
|
|
send_inferior "print global_c.m_val\n"
|
|
gdb_test_multiple "" "print integer from DWARF info" {
|
|
-re "Breakpoint $decimal, value_print.*\\(outer-gdb\\) $" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
set answer [multi_line \
|
|
"$decimal = " \
|
|
"{name = $hex \"int\"," \
|
|
" code = TYPE_CODE_INT," \
|
|
" flags = \[^\r\n\]+," \
|
|
" owner = $hex \\(objfile\\)," \
|
|
" target_type = 0x0," \
|
|
" int_stuff = { bit_size = $decimal, bit_offset = $decimal }}" \
|
|
"\\(outer-gdb\\) $"]
|
|
gdb_test_multiple "print *val->type->main_type" "pretty print type->main_type for DWARF type" {
|
|
-re "$answer" {
|
|
pass $gdb_test_name
|
|
}
|
|
-re "There is no member named.*\r\n\\(outer-gdb\\) $" {
|
|
fail $gdb_test_name
|
|
}
|
|
}
|
|
|
|
# Send the continue to the outer GDB, which resumes the inner GDB,
|
|
# we then detect the prompt from the inner GDB, hence the use of
|
|
# -i here.
|
|
gdb_test_multiple "continue" "resume inner gdb again" {
|
|
-i $inferior_spawn_id
|
|
-re "\r\n$gdb_prompt $" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
# Send a command to the inner GDB, this should result in the outer
|
|
# GDB stopping at the value_print breakpoint again.
|
|
send_inferior "ptype global_c\n"
|
|
gdb_test_multiple "" "hit breakpoint in outer gdb again" {
|
|
-re "Breakpoint $decimal, c_print_type .*\\(outer-gdb\\) $" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
set answer [multi_line \
|
|
"$decimal = " \
|
|
"{name = $hex \"CC\"," \
|
|
" code = TYPE_CODE_STRUCT," \
|
|
" flags = \[^\r\n\]+," \
|
|
" owner = $hex \\(objfile\\)," \
|
|
" target_type = 0x0," \
|
|
" flds_bnds\\.fields\\\[0\\\]:" \
|
|
" {m_name = $hex \"m_val\"," \
|
|
" m_type = $hex," \
|
|
" m_loc_kind = FIELD_LOC_KIND_BITPOS," \
|
|
" bitsize = 0," \
|
|
" bitpos = 0}," \
|
|
" cplus_stuff = $hex}" \
|
|
"\\(outer-gdb\\) $"]
|
|
gdb_test_multiple "print *type->main_type" "" {
|
|
-re "$answer" {
|
|
pass $gdb_test_name
|
|
}
|
|
-re "\r\n\\(outer-gdb\\) $" {
|
|
fail $gdb_test_name
|
|
}
|
|
}
|
|
|
|
return 0
|
|
}
|
|
|
|
# Use the self-test framework to run the test.
|
|
do_self_tests captured_main test_python_helper
|