* lib/gdb.exp (skip_altivec_tests, skip_vsx_tests)
[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / info-fun.exp
CommitLineData
422d65e7
DE
1# Copyright 2012 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 ${objdir}/${subdir}/${libname}.so
23set lib_flags {}
24# Binary file.
25set testfile "info-fun"
26set srcfile ${srcdir}/${subdir}/${testfile}.c
27set executable ${testfile}
28set binfile ${objdir}/${subdir}/${executable}
29set bin_flags [list debug shlib=${binfile_lib}]
30
4c93b1db 31if [get_compiler_info] {
422d65e7
DE
32 return -1
33}
34
35# SEP must be last for the possible `unsupported' error path.
36foreach 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 ${srcfile} ${binfile} executable $bin_flags] != "" } {
44 untested "Could not compile $binfile_lib or $binfile."
45 return -1
46 }
47
48 if {$libsepdebug == "SEP"} {
49 if {[gdb_gnu_strip_debug $binfile_lib] != 0} {
50 unsupported "Could not split debug of $binfile_lib."
51 return
52 } else {
53 pass "split solib"
54 }
55 }
56
57 clean_restart $executable
58
59 if ![runto_main] then {
60 fail "Can't run to main"
61 return 0
62 }
63
64 set match_str {All functions matching regular expression "foo":[\r\n]*}
65 if { "$libsepdebug" != "NO" } {
66 append match_str {File .*/info-fun-solib[.]c:[\r\n]*}
67 append match_str {int foo\(void\);[\r\n]*}
68 }
69 append match_str {Non-debugging symbols:[\r\n]*}
70 append match_str "$hex *foo(@plt)?\[\r\n\]*"
71 if { "$libsepdebug" == "NO" } {
72 append match_str "$hex *foo\[\r\n\]*"
73 }
74
75 gdb_test "info fun foo" "$match_str"
76}}
This page took 0.027491 seconds and 4 git commands to generate.