1# This testcase is part of GDB, the GNU debugger. 2 3# Copyright 1997-2023 Free Software Foundation, Inc. 4 5# This program is free software; you can redistribute it and/or modify 6# it under the terms of the GNU General Public License as published by 7# the Free Software Foundation; either version 3 of the License, or 8# (at your option) any later version. 9# 10# This program is distributed in the hope that it will be useful, 11# but WITHOUT ANY WARRANTY; without even the implied warranty of 12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13# GNU General Public License for more details. 14# 15# You should have received a copy of the GNU General Public License 16# along with this program. If not, see <http://www.gnu.org/licenses/>. 17 18# use this to debug: 19# 20#log_user 1 21 22# ending-run.exp -- Expect script to test ending a test run in gdb 23 24standard_testfile 25 26if { [prepare_for_testing "failed to prepare" $testfile] } { 27 return -1 28} 29remote_exec build "rm -f core" 30 31# CHFts23469: Test that you can "clear" a bp set at 32# a line _before_ the routine (which will default to the 33# first line in the routine, which turns out to correspond 34# to the prolog--that's another bug...) 35# 36 37gdb_test "b ending-run.c:1" ".*Breakpoint.*ending-run.c, line 1.*" \ 38 "bpt at line before routine" 39 40set break1_line [gdb_get_line_number "-break1-"] 41gdb_test "b ending-run.c:$break1_line" \ 42 ".*Note.*also.*Breakpoint 2.*ending-run.c, line $break1_line.*" \ 43 "b ending-run.c:$break1_line, one" 44 45# Set up to go to the next-to-last line of the program 46# 47set break2_line [gdb_get_line_number "-break2-"] 48gdb_test "b ending-run.c:$break2_line" ".*Breakpoint 3.*ending-run.c, line $break2_line.*" 49 50# Expect to hit the bp at line "1", but symbolize this 51# as line "13". Then try to clear it--this should work. 52# 53gdb_run_cmd 54gdb_test "" ".*Breakpoint.*1.*callee.*$break1_line.*" "run" 55 56gdb_test "cle" ".*Deleted breakpoints 1 2.*" "clear worked" 57gdb_test_multiple "i b" "cleared bp at line before routine" { 58 -re ".* breakpoint .* breakpoint .*$gdb_prompt $" { 59 fail "cleared bp at line before routine" 60 } 61 -re ".*3.*main.*$break2_line.*$gdb_prompt $" { 62 pass "cleared bp at line before routine" 63 } 64} 65 66# Test some other "clear" combinations 67# 68gdb_test "b ending-run.c:1" ".*Breakpoint.*4.*" 69gdb_test "b ending-run.c:$break1_line" ".*Note.*also.*Breakpoint.*5.*" "b ending-run.c:$break1_line, two" 70gdb_test "cle ending-run.c:$break1_line" \ 71 ".*Deleted breakpoints 4 5.*" "Cleared 2 by line" 72 73gdb_test_multiple "info line ending-run.c:$break1_line" "" { 74 -re ".*address (0x\[0-9a-fA-F]*).*$gdb_prompt $" { 75 set line_nine $expect_out(1,string) 76 gdb_test "b ending-run.c:$break1_line" ".*Breakpoint 6.*ending-run.c, line $break1_line.*" 77 gdb_test "b *$line_nine" ".*Note.*also.*Breakpoint 7.*" "breakpoint 7 at *ending-run.c:$break1_line" 78 gdb_test "cle" ".*Deleted breakpoints 6 7.*" "clear 2 by default" 79 } 80 -re ".*$gdb_prompt $" { 81 fail "need to fix test for new compile outcome" 82 } 83} 84 85gdb_test_multiple "i b" "all set to continue" { 86 -re ".* breakpoint .* breakpoint .*$gdb_prompt $" { 87 fail "all set to continue (didn't clear bps)" 88 } 89 -re ".*3.*main.*$break2_line.*$gdb_prompt $" { 90 pass "all set to continue" 91 } 92 -re ".*$gdb_prompt $" { 93 fail "all set to continue (missing bp at end)" 94 } 95} 96 97 98# See if we can step out with control. The "1 2 3" stuff 99# is output from the program. 100# 101if ![gdb_skip_stdio_test "cont"] { 102 gdb_test_stdio "cont" \ 103 "1 2 7 14 23 34 47 62 79" \ 104 "Breakpoint.*$break2_line.*" 105} else { 106 gdb_test "cont" ".*Breakpoint.*$break2_line.*" 107} 108 109if ![gdb_skip_stdio_test "Step to return"] { 110 gdb_test_stdio "next" \ 111 "Goodbye!" \ 112 "[expr {$break2_line + 1}].*" \ 113 "Step to return" 114} else { 115 gdb_test "next" ".*" "" 116} 117 118set old_timeout $timeout 119set timeout 50 120set program_exited 0 121set nexted 0 122 123gdb_test_multiple "next" "step out of main" { 124 -re "[expr {$break2_line + 2}]\[ \t\]+\}.*$gdb_prompt $" { 125 # sometimes we stop at the closing brace, if so, do another next 126 if { $nexted } { 127 fail "step out of main" 128 } else { 129 set nexted 1 130 send_gdb "next\n" 131 exp_continue 132 } 133 } 134 -re ".*Unable to find return pc for this frame.*$gdb_prompt $" { 135 fail "step out of main" 136 gdb_test "n" ".*" "" 137 } 138 -re ".*in.*start.*$gdb_prompt $" { 139 pass "step out of main" 140 } 141 -re ".*in.*bsp_trap.*$gdb_prompt $" { 142 pass "step out of main" 143 } 144 -re ".*in.*init.*$gdb_prompt $" { 145 # This is what happens on sparc64-elf ultra. 146 pass "step out of main" 147 } 148 -re ".*in.*dll_crt0_1.*$gdb_prompt $" { 149 # This is what happens on Cygwin. 150 pass "step out of main" 151 } 152 -re ".*WinMain.*$gdb_prompt $" { 153 # This is what happens on mingw32ce. 154 pass "step out of main" 155 } 156 -re ".*$inferior_exited_re normally.*$gdb_prompt $" { 157 # This is what happens on Linux i86 (and I would expect others) 158 set program_exited 1 159 pass "step out of main" 160 } 161 -re ".*in .nope ().*$gdb_prompt $" { 162 # This is what happens on Solaris currently -sts 1999-08-25 163 pass "step out of main" 164 } 165 -re ".*in _int_reset ().*$gdb_prompt $" { 166 # This is what happens on Sanyo XStormy16 167 pass "step out of main" 168 } 169 -re ".*init ().*$gdb_prompt $" { 170 # This is what happens on many Mips targets 171 pass "step out of main" 172 } 173 -re ".*in ..change.mode ().*$gdb_prompt $" { 174 # This is what happens on ARM in thumb mode -fn 2000-02-01 175 pass "step out of main" 176 } 177 -re ".*__rt_entry.* ().*$gdb_prompt $" { 178 # This is what happens on the ARM RVDS runtime 179 pass "step out of main" 180 } 181 -re ".*in.*\\\$START\\\$.*from.*dld.sl.*$gdb_prompt $" { 182 pass "step out of main" 183 } 184 -re ".*in __wrap__?main ().*$gdb_prompt $" { 185 pass "step out of main" 186 } 187 -re "__setup_argv_for_main (.*).*$gdb_prompt $" { 188 # On sh, another wrapper function (start_l) exists, so 189 # another `next' is necessary. 190 gdb_test "next" ".*in start_l ().*" "step out of main" 191 } 192 -re ".*in.*currently asm.*$gdb_prompt $" { 193 pass "step out of main" 194 } 195 -re "_*start\[0-9\]* \\(\[^)\]*\\).*$gdb_prompt $" { 196 pass "step out of main" 197 } 198 -re ".*Program received signal SIGTRAP.*$gdb_prompt $" { 199 pass "step out of main" 200 } 201 -re ".*in.*__uClibc_main.*$gdb_prompt $" { 202 # This is what happens on system using uClibc. 203 pass "step out of main" 204 } 205 -re "0x.*\\?\\? \\(\\) from /lib/powerpc.*$gdb_prompt $" { 206 # This case occurs on Powerpc when gdb steps out of main and the 207 # needed debug info files are not loaded on the system, preventing 208 # GDB to determine which function it reached (__libc_start_call_main). 209 # Ideally, the target system would have the necessary debugging 210 # information, but in its absence, GDB's behavior is as expected. 211 # 212 # Another consequence of this missing information is that GDB 213 # can no longer continue to perform "next" operations, as doing 214 # so requires GDB to know the bounds of the current function. 215 # Not know what the current function it, it cannot determine 216 # its bounds. So we also set program_exited to 1 to indicate 217 # that we need to stop this testcase at this stage of the testing. 218 pass "step out of main" 219 set program_exited 1 220 } 221} 222 223# When we're talking to a program running on a real stand-alone board, 224# every BSP's exit function behaves differently, so there's no single 225# way to tell whether we've exited gracefully or not. So don't run 226# these tests when use_gdb_stub is set, or when we're running under Cygmon. 227set program_exited_normally 0 228set program_not_exited 0 229set program_in_exit 0 230if {!$use_gdb_stub 231 && (! [target_info exists use_cygmon] || ! [target_info use_cygmon])} { 232 global program_exited 233 if {[eval expr $program_exited == 0]} { 234 gdb_test_multiple "n" "step to end of run" { 235 -re "$inferior_exited_re normally.*$gdb_prompt $" { 236 # If we actually have debug info for the start function, 237 # then we won't get the "Single-stepping until function 238 # exit" message. 239 pass "step to end of run" 240 set program_exited_normally 1 241 } 242 -re "Single.*EXIT code 0\r\n.*$inferior_exited_re normally.*$gdb_prompt $" { 243 pass "step to end of run (status wrapper)" 244 set program_exited_normally 1 245 } 246 -re "Single.*EXIT code 0\r\n.*$gdb_prompt $" { 247 pass "step to end of run (status wrapper)" 248 } 249 -re ".*Single.*$inferior_exited_re.*$gdb_prompt $" { 250 pass "step to end of run" 251 set program_exited_normally 1 252 } 253 -re ".*Single.*in exit.*from.*dld.sl.*$gdb_prompt $" { 254 pass "step to end of run" 255 set program_in_exit 1 256 } 257 -re ".*Single.*_int_reset.*$gdb_prompt $" { 258 pass "step to end of run" 259 if {![istarget "xstormy16-*-*"]} { 260 set program_exited_normally 1 261 } 262 } 263 } 264 } 265 266 if {$program_in_exit} { 267 if {[gdb_test "c" ".*" "continue after exit"] == 0} { 268 set program_exited_normally 1 269 } 270 } else { 271 unsupported "continue after exit" 272 } 273 274 if {$program_exited_normally} { 275 gdb_test "n" ".*The program is not being run.*" "don't step after run" 276 } elseif {$program_not_exited} { 277 unresolved "don't step after run" 278 } else { 279 unsupported "don't step after run" 280 } 281 282 set exec_output [remote_exec host "ls core"] 283 284 if [ regexp "core not found" $exec_output] { 285 pass "no core dumped on quit" 286 } else { 287 if [ regexp "No such file or directory" $exec_output] { 288 pass "ls: core (No core dumped on quit)" 289 } else { 290 remote_exec build "rm -f core" 291 fail "ls: core (Core dumped on quit)" 292 } 293 } 294} 295 296set timeout $old_timeout 297 298#remote_exec build "rm -f ${binfile}" 299return 0 300 301 302 303 304