Commit | Line | Data |
---|---|---|
b811d2c2 | 1 | # Copyright 2012-2020 Free Software Foundation, Inc. |
422d65e7 DE |
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 | ||
15 | if { [skip_shlib_tests] || [is_remote target] } { | |
16 | return 0 | |
17 | } | |
18 | ||
19 | # Library file. | |
20 | set libname "info-fun-solib" | |
21 | set srcfile_lib ${srcdir}/${subdir}/${libname}.c | |
f8b41b00 | 22 | set binfile_lib [standard_output_file ${libname}.so] |
422d65e7 DE |
23 | set lib_flags {} |
24 | # Binary file. | |
f8b41b00 | 25 | standard_testfile .c |
422d65e7 | 26 | set executable ${testfile} |
422d65e7 DE |
27 | set bin_flags [list debug shlib=${binfile_lib}] |
28 | ||
4c93b1db | 29 | if [get_compiler_info] { |
422d65e7 DE |
30 | return -1 |
31 | } | |
32 | ||
4acfdd20 | 33 | foreach_with_prefix n_flag { 0 1 } { |
422d65e7 | 34 | |
4acfdd20 AB |
35 | # SEP must be last for the possible `unsupported' error path. |
36 | foreach libsepdebug {NO IN SEP} { with_test_prefix "$libsepdebug" { | |
422d65e7 | 37 | |
4acfdd20 AB |
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 | |
422d65e7 | 47 | } |
422d65e7 | 48 | |
4acfdd20 AB |
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 | } | |
422d65e7 | 64 | |
4acfdd20 AB |
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 | } | |
422d65e7 | 70 | |
4acfdd20 AB |
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 | } | |
422d65e7 | 89 | |
4acfdd20 AB |
90 | gdb_test "info fun $opt foo" "$match_str" |
91 | }} | |
92 | } |