1# Copyright (C) 2010-2023 Free Software Foundation, Inc. 2 3# This program is free software; you can redistribute it and/or modify 4# it under the terms of the GNU General Public License as published by 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16# This file is part of the GDB testsuite. It tests the program space 17# support in Python. 18 19load_lib gdb-python.exp 20 21standard_testfile 22 23if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} { 24 return -1 25} 26 27# Start with a fresh gdb. 28 29gdb_exit 30gdb_start 31gdb_reinitialize_dir $srcdir/$subdir 32 33# Skip all tests if Python scripting is not enabled. 34if { [skip_python_tests] } { continue } 35 36gdb_test "python print (gdb.current_progspace().filename)" "None" \ 37 "current progspace filename (None)" 38gdb_test "python print (gdb.progspaces())" "\\\[<gdb.Progspace object at $hex>\\\]" 39 40gdb_test_no_output "python dir(gdb.current_progspace())" 41 42gdb_load ${binfile} 43 44gdb_py_test_silent_cmd "python progspace = gdb.current_progspace()" \ 45 "Get current progspace" 1 46 47gdb_test "python print (progspace.filename)" "py-progspace" \ 48 "current progspace filename (py-progspace)" 49 50gdb_py_test_silent_cmd "python progspace.random_attribute = 42" \ 51 "Set random attribute in progspace" 1 52gdb_test "python print (progspace.random_attribute)" "42" \ 53 "Verify set of random attribute in progspace" 54 55if {![runto_main]} { 56 return 57} 58 59# Check we can get a block for the current $pc. 60set pc_val [get_integer_valueof "\$pc" 0] 61gdb_py_test_silent_cmd "python blk = gdb.current_progspace ().block_for_pc (${pc_val})" \ 62 "get block for the current \$pc" 1 63gdb_py_test_silent_cmd \ 64 "python blk = gdb.current_progspace ().block_for_pc (gdb.Value(${pc_val}))" \ 65 "get block for the current \$pc as value" 1 66gdb_test "python print (blk.start <= ${pc_val})" "True" \ 67 "block start is before \$pc" 68gdb_test "python print (blk.end >= ${pc_val})" "True" \ 69 "block end is after \$pc" 70 71# Check what happens when we ask for a block of an invalid address. 72if ![is_address_zero_readable] { 73 gdb_test "python print (gdb.current_progspace ().block_for_pc (0))" "None" 74} 75 76# With a single inferior, progspace.objfiles () and gdb.objfiles () should 77# be identical. 78gdb_test "python print (progspace.objfiles () == gdb.objfiles ())" "True" 79 80gdb_test "add-inferior" 81gdb_test "inferior 2" 82 83gdb_load ${binfile} 84 85# With a second (non-started) inferior, we should have a single objfile - the 86# main one. 87gdb_test "python print (len (gdb.objfiles ())) == 1" 88 89# And the gdb.objfiles() list should now be different from the objfiles of the 90# prog space of inferior 1. 91gdb_test "python print (progspace.objfiles () != gdb.objfiles ())" "True" 92 93# Delete inferior 2 (and therefore the second progspace), check that the Python 94# object reacts sensibly. 95gdb_py_test_silent_cmd "python progspace2 = gdb.current_progspace()" \ 96 "save progspace 2" 1 97gdb_test "inferior 1" "Switching to inferior 1.*" 98gdb_test_no_output "remove-inferiors 2" 99gdb_test "python print (progspace2.objfiles ())" \ 100 "RuntimeError: Program space no longer exists.*" 101