forked from Imagelibrary/binutils-gdb
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.
130 lines
4.6 KiB
Plaintext
130 lines
4.6 KiB
Plaintext
# Copyright 2013-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/>.
|
|
load_lib gdb-python.exp
|
|
standard_testfile
|
|
|
|
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
|
|
return -1
|
|
}
|
|
|
|
# Skip all tests if Python scripting is not enabled.
|
|
if { [skip_python_tests] } { continue }
|
|
|
|
if ![runto_main] {
|
|
return -1
|
|
}
|
|
|
|
# Test python/15461. Invalid architectures should not trigger an
|
|
# internal GDB assert.
|
|
gdb_py_test_silent_cmd "python empty = gdb.Architecture()" "get empty arch" 0
|
|
gdb_test "python print(empty.name())" ".*Architecture is invalid.*" \
|
|
"Test empty architecture.name does not trigger an assert"
|
|
gdb_test "python print(empty.disassemble())" ".*Architecture is invalid.*" \
|
|
"Test empty architecture.disassemble does not trigger an assert"
|
|
|
|
gdb_py_test_silent_cmd "python frame = gdb.selected_frame()" "get frame" 0
|
|
gdb_py_test_silent_cmd "python arch = frame.architecture()" "get arch" 0
|
|
gdb_py_test_silent_cmd "python pc = frame.pc()" "get pc" 0
|
|
gdb_py_test_silent_cmd "python insn_list1 = arch.disassemble(pc, pc, 1)" \
|
|
"disassemble" 0
|
|
gdb_py_test_silent_cmd "python insn_list2 = arch.disassemble(pc, pc)" \
|
|
"disassemble no count" 0
|
|
gdb_py_test_silent_cmd "python insn_list3 = arch.disassemble(pc, count=1)" \
|
|
"disassemble no end" 0
|
|
gdb_py_test_silent_cmd "python insn_list4 = arch.disassemble(pc)" \
|
|
"disassemble no end no count" 0
|
|
|
|
gdb_test "python print (len(insn_list1))" "1" "test number of instructions 1"
|
|
gdb_test "python print (len(insn_list2))" "1" "test number of instructions 2"
|
|
gdb_test "python print (len(insn_list3))" "1" "test number of instructions 3"
|
|
gdb_test "python print (len(insn_list4))" "1" "test number of instructions 4"
|
|
|
|
gdb_py_test_silent_cmd "python insn = insn_list1\[0\]" "get instruction" 0
|
|
|
|
gdb_test "python print (\"addr\" in insn)" "True" "test key addr"
|
|
gdb_test "python print (\"asm\" in insn)" "True" "test key asm"
|
|
gdb_test "python print (\"length\" in insn)" "True" "test key length"
|
|
|
|
if { ![is_address_zero_readable] } {
|
|
# Negative test
|
|
gdb_test "python arch.disassemble(0, 0)" ".*gdb\.MemoryError.*" \
|
|
"test bad memory access"
|
|
}
|
|
|
|
foreach size {0 1 2 3 4 8 16} {
|
|
foreach sign {"" ", True" ", False" ", None" ", \"blah\""} {
|
|
set fullsize [expr 8 * $size]
|
|
gdb_test_no_output "python t = arch.integer_type($fullsize$sign)" \
|
|
"get integer type for $size$sign"
|
|
gdb_test "python print(t.sizeof)" "$size" \
|
|
"print size of integer type for $size$sign"
|
|
}
|
|
}
|
|
|
|
gdb_test "python arch.integer_type(95)" \
|
|
".*ValueError: no integer type of that size is available.*" \
|
|
"call integer_type with invalid size"
|
|
|
|
# Test for gdb.architecture_names(). First we're going to grab the
|
|
# complete list of architecture names using the 'complete' command.
|
|
set arch_names []
|
|
gdb_test_no_output "set max-completions unlimited"
|
|
gdb_test_multiple "complete set architecture " "" {
|
|
-re "complete set architecture\[^\r\n\]+\r\n" {
|
|
exp_continue
|
|
}
|
|
-re "^set architecture \(\[^\r\n\]+\)\r\n" {
|
|
set arch $expect_out(1,string)
|
|
if { "$arch" != "auto" } {
|
|
set arch_names [lappend arch_names $arch]
|
|
}
|
|
exp_continue
|
|
}
|
|
-re "^$gdb_prompt $" {
|
|
gdb_assert { [llength $arch_names] > 0 }
|
|
}
|
|
}
|
|
|
|
# Now find all of the architecture names using Python.
|
|
set py_arch_names []
|
|
gdb_test_no_output "python all_arch = gdb.architecture_names()"
|
|
gdb_test_no_output "python all_arch.sort()"
|
|
gdb_test_multiple "python print(\"\\n\".join((\"Arch: %s\" % a) for a in all_arch))" "" {
|
|
-re "python \[^\r\n\]+\r\n" {
|
|
exp_continue
|
|
}
|
|
-re "^Arch: \(\[^\r\n\]+\)\r\n" {
|
|
set arch $expect_out(1,string)
|
|
set py_arch_names [lappend py_arch_names $arch]
|
|
exp_continue
|
|
}
|
|
-re "$gdb_prompt $" {
|
|
gdb_assert { [llength $py_arch_names] > 0 }
|
|
}
|
|
}
|
|
|
|
# Check the two lists of architecture names are the same length, and
|
|
# that the list contents all match.
|
|
gdb_assert { [llength $arch_names] == [llength $py_arch_names] }
|
|
set lists_match true
|
|
foreach a $arch_names b $py_arch_names {
|
|
if { $a != $b } {
|
|
set lists_match false
|
|
verbose -log "Mismatch is architecture list '$a' != '$b'"
|
|
break
|
|
}
|
|
}
|
|
gdb_assert { $lists_match }
|