1 # Copyright 1997-2016 Free Software Foundation, Inc.
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.
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.
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/>.
16 # file to test calls into shared libraries
17 # the source files for this test are:
22 # ss.h (header for shr2.c)
24 # file written by Elena Zannoni: elz@ch.apollo.com
32 if {[skip_shlib_tests]} {
36 standard_testfile shmain.c shr1.c shr2.c
37 set srcfile ${srcdir}/${subdir}/${srcfile}
38 set lib1src ${srcdir}/${subdir}/${srcfile2}
39 set lib2src ${srcdir}/${subdir}/${srcfile3}
40 set lib1 [standard_output_file shr1.sl]
41 set lib2 [standard_output_file shr2.sl]
44 set exec_opts [list debug shlib=${lib1} shlib=${lib2}]
46 if [get_compiler_info] {
50 if { [gdb_compile_shlib ${lib1src} ${lib1} $lib_opts] != ""
51 || [gdb_compile_shlib ${lib2src} ${lib2} $lib_opts] != ""
52 || [gdb_compile ${srcfile} ${binfile} executable $exec_opts] != ""} {
53 untested "Could not compile $lib1, $lib2, or $srcfile."
57 # Start with a fresh gdb.
59 clean_restart ${binfile}
60 gdb_load_shlibs $lib1 $lib2
62 gdb_test_no_output "set print sevenbit-strings"
63 gdb_test_no_output "set print address off"
64 gdb_test_no_output "set width 0"
67 if ![runto_main] then {
68 perror "C function calling tests suppressed"
74 gdb_test "next 2" "g = shr1\\(g\\);" "next to shr1"
78 gdb_test "print g" "\[0-9\]* = 1" "print g"
81 if ![gdb_skip_stdio_test "next over shr1"] {
82 gdb_test_stdio "next" \
83 "address of sgs is $hex" \
87 gdb_test "next" ".*" ""
92 gdb_test "print g" "\[0-9\]* = 2" "print g"
95 if ![gdb_skip_stdio_test "print shr1(1)"] {
96 gdb_test_stdio "print shr1(1)" \
97 "address of sgs is $hex" \
103 if ![gdb_skip_stdio_test "print shr1(g)"] {
104 gdb_test_stdio "print shr1(g)" \
105 "address of sgs is $hex" \
112 gdb_test "break shr2" \
113 "Breakpoint.*file.*shr2.c, line.*" \
114 "breakpoint function shr2"
116 gdb_test "continue" \
117 "Continuing\\..*Breakpoint ${decimal}, shr2 \\(.*\\) at.*shr2\\.c:${decimal}.*shr2-return \\*\\/" \
118 "run until breakpoint set at a function"
122 if ![gdb_skip_stdio_test "print shr1(1) 2nd time"] {
123 gdb_test_stdio "print shr1(1)" \
124 "address of sgs is $hex" \
126 "print shr1(1) 2nd time"
130 gdb_test "print mainshr1(1)" "\[0-9\]* = 2" \
131 "print mainshr1(1) from shlib func"
134 # A step at this point will either take us entirely out of
135 # the function or into the function's epilogue. The exact
136 # behavior will differ depending upon upon whether or not
137 # the compiler emits line number information for the epilogue.
138 gdb_test_multiple "step" "step out of shr2 to main" {
139 -re "main \\(\\) at.*g = mainshr1\\(g\\);.*$gdb_prompt $" {
140 pass "step out of shr2 to main"
142 -re ".*\\\}.*$gdb_prompt $" {
143 pass "step out of shr2 to main (stopped in shr2 epilogue)"
145 "main \\(\\) at.*g = mainshr1\\(g\\);" \
146 "step out of shr2 epilogue to main"
151 gdb_test "print mainshr1(1)" "\[0-9\]* = 2" "print mainshr1(1)"
154 gdb_test "step" "mainshr1 \\(g=4\\) at.*return 2.g;" \
157 # Start with a fresh gdb.
161 gdb_reinitialize_dir $srcdir/$subdir
163 gdb_test_no_output "set print sevenbit-strings"
164 gdb_test_no_output "set print address off"
165 gdb_test_no_output "set width 0"
169 # test that we can re-set breakpoints in shared libraries
170 gdb_breakpoint "shr1" "allow-pending"
172 # FIXME: should not send "run" explicitly. Non-portable.
174 if ![is_remote target] {
175 gdb_test "run" "Starting program:.*Breakpoint .,.*" \
176 "run to bp in shared library"
178 gdb_continue_to_end "" continue 1
180 gdb_test "run" "Starting program:.*Breakpoint .,.*" \
181 "re-run to bp in shared library (PR's 16495, 18213)"
183 gdb_continue_to_end "" continue 1