info-fun.exp revision 1.9
1# Copyright 2012-2020 Free Software Foundation, Inc. 2# This program is free software; you can redistribute it and/or modify 3# it under the terms of the GNU General Public License as published by 4# the Free Software Foundation; either version 3 of the License, or 5# (at your option) any later version. 6# 7# This program is distributed in the hope that it will be useful, 8# but WITHOUT ANY WARRANTY; without even the implied warranty of 9# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 10# GNU General Public License for more details. 11# 12# You should have received a copy of the GNU General Public License 13# along with this program. If not, see <http://www.gnu.org/licenses/>. 14 15if { [skip_shlib_tests] || [is_remote target] } { 16 return 0 17} 18 19# Library file. 20set libname "info-fun-solib" 21set srcfile_lib ${srcdir}/${subdir}/${libname}.c 22set binfile_lib [standard_output_file ${libname}.so] 23set lib_flags {} 24# Binary file. 25standard_testfile .c 26set executable ${testfile} 27set bin_flags [list debug shlib=${binfile_lib}] 28 29if [get_compiler_info] { 30 return -1 31} 32 33foreach_with_prefix n_flag { 0 1 } { 34 35 # SEP must be last for the possible `unsupported' error path. 36 foreach libsepdebug {NO IN SEP} { with_test_prefix "$libsepdebug" { 37 38 set sep_lib_flags $lib_flags 39 if {$libsepdebug != "NO"} { 40 lappend sep_lib_flags {debug} 41 } 42 if { [gdb_compile_shlib ${srcfile_lib} ${binfile_lib} $sep_lib_flags] != "" 43 || [gdb_compile $srcdir/$subdir/${srcfile} ${binfile} \ 44 executable $bin_flags] != "" } { 45 untested "failed to compile" 46 return -1 47 } 48 49 if {$libsepdebug == "SEP"} { 50 if {[gdb_gnu_strip_debug $binfile_lib] != 0} { 51 unsupported "could not split debug of $binfile_lib." 52 return 53 } else { 54 pass "split solib" 55 } 56 } 57 58 clean_restart $executable 59 60 if ![runto_main] then { 61 fail "can't run to main" 62 return 0 63 } 64 65 set match_str {All functions matching regular expression "foo":[\r\n]*} 66 if { "$libsepdebug" != "NO" } { 67 append match_str {File .*/info-fun-solib[.]c:[\r\n]*} 68 append match_str {\d+:\tint foo\(void\);[\r\n]*} 69 } 70 71 set opt "" 72 if { !$n_flag } { 73 append match_str {Non-debugging symbols:[\r\n]*} 74 # Note: Targets like {m68k,ppc64,s390x}-linux also have, e.g., 75 # 00000011.plt_call.foo+0 (m68k). 76 set plt_foo_match "($hex \[^\r\n\]*plt\[^\r\n\]*foo\[^\r\n\]*\[\r\n\]*)?" 77 append match_str $plt_foo_match 78 # This text we want to match precisely. 79 append match_str "$hex *foo(@plt)?\[\r\n\]*" 80 # Watch for again to not have to worry about the order of appearance. 81 append match_str $plt_foo_match 82 if { "$libsepdebug" == "NO" } { 83 # Note: The ".?" is for targets like m68k-linux that have ".foo" here. 84 append match_str "$hex *.?foo\[\r\n\]*" 85 } 86 } else { 87 set opt "-n" 88 } 89 90 gdb_test "info fun $opt foo" "$match_str" 91 }} 92} 93