1# Copyright (C) 2008-2016 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. 17 18load_lib gdb-python.exp 19 20if {[skip_shlib_tests]} { 21 return 0 22} 23 24standard_testfile 25 26set libfile "py-shared-sl" 27set libsrc ${libfile}.c 28set library [standard_output_file ${libfile}.sl] 29 30if { [gdb_compile_shlib ${srcdir}/${subdir}/${libsrc} ${library} "debug"] != "" } { 31 untested "Could not compile shared library." 32 return -1 33} 34 35set exec_opts [list debug shlib=${library}] 36 37if { [gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile} executable $exec_opts] != "" } { 38 untested "Could not compile $binfile." 39 return -1 40} 41 42# Start with a fresh gdb. 43clean_restart $testfile 44gdb_load_shlib ${library} 45 46# Skip all tests if Python scripting is not enabled. 47if { [skip_python_tests] } { continue } 48 49# The following tests require execution. 50 51if ![runto_main] then { 52 fail "Can't run to main" 53 return 0 54} 55 56runto [gdb_get_line_number "Break to end."] 57 58# Test gdb.solib_name 59gdb_test "p &func1" "" "func1 address" 60gdb_py_test_silent_cmd "python func1 = gdb.history(0)" "Aquire func1 address" 1 61if { $gdb_py_is_py3k == 1 } { 62 gdb_py_test_silent_cmd "python long = int" "" 0 63} 64gdb_test "python print (gdb.solib_name(long(func1)))" "py-shared-sl.sl" "test func1 solib location" 65 66gdb_test "p &main" "" "main address" 67gdb_py_test_silent_cmd "python main = gdb.history(0)" "Aquire main address" 1 68gdb_test "python print (gdb.solib_name(long(main)))" "None" "test main solib location" 69 70if {[is_lp64_target]} { 71 gdb_test "python print (len(\[gdb.solib_name(0xffffffffffffffff)\]))" "1" 72} 73