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