1# Copyright 1997-2019 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# file to test calls into shared libraries 17# the source files for this test are: 18# 19# shmain.c 20# shr1.c (shared lib) 21# shr2.c (shared lib) 22# ss.h (header for shr2.c) 23# 24# file written by Elena Zannoni: elz@ch.apollo.com 25# 26 27#debug shmain 28#prop lib shr1.sl 29#prop lib shr2.sl 30 31 32if {[skip_shlib_tests]} { 33 return 0 34} 35 36standard_testfile shmain.c shr1.c shr2.c 37set srcfile ${srcdir}/${subdir}/${srcfile} 38set lib1src ${srcdir}/${subdir}/${srcfile2} 39set lib2src ${srcdir}/${subdir}/${srcfile3} 40set lib1 [standard_output_file shr1.sl] 41set lib2 [standard_output_file shr2.sl] 42 43set lib_opts "debug" 44set exec_opts [list debug shlib=${lib1} shlib=${lib2}] 45 46if [get_compiler_info] { 47 return -1 48} 49 50if { [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 "failed to compile" 54 return -1 55} 56 57# Start with a fresh gdb. 58 59clean_restart ${binfile} 60gdb_load_shlib $lib1 61gdb_load_shlib $lib2 62 63gdb_test_no_output "set print sevenbit-strings" 64gdb_test_no_output "set print address off" 65gdb_test_no_output "set width 0" 66 67 68if ![runto_main] then { 69 perror "C function calling tests suppressed" 70} 71 72 73#step -over 74 75gdb_test "next 2" "g = shr1\\(g\\);" "next to shr1" 76 77#print g 78 79gdb_test "print g" "\[0-9\]* = 1" "print g" 80 81#step -over 82if ![gdb_skip_stdio_test "next over shr1"] { 83 gdb_test_stdio "next" \ 84 "address of sgs is $hex" \ 85 "g = shr2\\(g\\);" \ 86 "next over shr1" 87} else { 88 gdb_test "next" ".*" "" 89} 90 91 92#print g 93gdb_test "print g" "\[0-9\]* = 2" "print g" 94 95#print shr1(1) 96if ![gdb_skip_stdio_test "print shr1(1)"] { 97 gdb_test_stdio "print shr1(1)" \ 98 "address of sgs is $hex" \ 99 "\[0-9\]* = 2" \ 100 "print shr1(1)" 101} 102 103#print shr1(g) 104if ![gdb_skip_stdio_test "print shr1(g)"] { 105 gdb_test_stdio "print shr1(g)" \ 106 "address of sgs is $hex" \ 107 "\[0-9\]* = 4" \ 108 "print shr1(g)" 109} 110 111#break shr2 112#go 113gdb_test "break shr2" \ 114 "Breakpoint.*file.*shr2.c, line.*" \ 115 "breakpoint function shr2" 116 117gdb_test "continue" \ 118 "Continuing\\..*Breakpoint ${decimal}, shr2 \\(.*\\) at.*shr2\\.c:${decimal}.*shr2-return \\*\\/" \ 119 "run until breakpoint set at a function" 120 121 122#print shr1(1) 123if ![gdb_skip_stdio_test "print shr1(1) 2nd time"] { 124 gdb_test_stdio "print shr1(1)" \ 125 "address of sgs is $hex" \ 126 "\[0-9\]* = 2" \ 127 "print shr1(1) 2nd time" 128} 129 130#print mainshr1(1) 131gdb_test "print mainshr1(1)" "\[0-9\]* = 2" \ 132 "print mainshr1(1) from shlib func" 133 134#step -return 135# A step at this point will either take us entirely out of 136# the function or into the function's epilogue. The exact 137# behavior will differ depending upon upon whether or not 138# the compiler emits line number information for the epilogue. 139gdb_test_multiple "step" "step out of shr2 to main" { 140 -re "main \\(\\) at.*g = mainshr1\\(g\\);.*$gdb_prompt $" { 141 pass "step out of shr2 to main" 142 } 143 -re ".*\\\}.*$gdb_prompt $" { 144 pass "step out of shr2 to main (stopped in shr2 epilogue)" 145 gdb_test "step" \ 146 "main \\(\\) at.*g = mainshr1\\(g\\);" \ 147 "step out of shr2 epilogue to main" 148 } 149} 150 151#print mainshr1(1) 152gdb_test "print mainshr1(1)" "\[0-9\]* = 2" "print mainshr1(1)" 153 154#step 155gdb_test "step" "mainshr1 \\(g=4\\) at.*return 2.g;" \ 156 "step into mainshr1" 157 158# Start with a fresh gdb. 159 160gdb_exit 161gdb_start 162gdb_reinitialize_dir $srcdir/$subdir 163gdb_load ${binfile} 164gdb_test_no_output "set print sevenbit-strings" 165gdb_test_no_output "set print address off" 166gdb_test_no_output "set width 0" 167 168 169# PR's 16495, 18213 170# test that we can re-set breakpoints in shared libraries 171gdb_breakpoint "shr1" "allow-pending" 172 173set test "run to bp in shared library" 174gdb_run_cmd 175gdb_test_multiple "" $test { 176 -re "Breakpoint .,.*${gdb_prompt} " { 177 pass $test 178 } 179} 180 181gdb_continue_to_end "" continue 1 182 183set test "re-run to bp in shared library (PR's 16495, 18213)" 184gdb_run_cmd 185gdb_test_multiple "" $test { 186 -re "Breakpoint .,.*${gdb_prompt} " { 187 pass $test 188 } 189} 190 191gdb_continue_to_end "" continue 1 192