timeout { fail "run until function breakpoint (timeout)" }
}
} else {
- gdb_test continue "Continuing\\..*Breakpoint \[0-9\]+, main \\(argc=.*, argv=.*, envp=.*\\) at .*$srcfile:60.*60\[\t \]+if .argc.*\{" \
- "stubs continue"
+ if ![target_info exists gdb_stub] {
+ gdb_test continue "Continuing\\..*Breakpoint \[0-9\]+, main \\(argc=.*, argv=.*, envp=.*\\) at .*$srcfile:60.*60\[\t \]+if .argc.*\{" "stub continue"
+ }
}
#
delete_breakpoints
+ set timeout 20;
+
gdb_test next "\[0-9\]*\[\t \]+return \\(value\\);.*" \
"next over recursive call"
# Test stepping and other mundane operations with watchpoints enabled
proc test_watchpoint_triggered_in_syscall {} {
global gdb_prompt
- global noinferiorio
global noresults
- if $noinferiorio {
+ if [target_info exists gdb,noinferiorio] {
verbose "Skipping test_watchpoint_triggered_in_syscall due to noinferiorio"
return
}
if [target_info exists use_gdb_stub] {
send_gdb "jump *start\n"
expect {
+ -re "Continuing at \[^\r\n\]*\[\r\n\]" {
+ if ![target_info exists gdb_stub] {
+ return;
+ }
+ }
-re "Line.* Jump anyway.*y or n. $" {
send_gdb "y\n"
- expect {
- -re "Continuing.*$gdb_prompt $" {}
- timeout { perror "Jump to start() failed (timeout)"; return }
- }
+ exp_continue;
}
-re "No symbol.*context.*$gdb_prompt $" {}
-re "The program is not being run.*$gdb_prompt $" {
}
timeout { perror "Jump to start() failed (timeout)"; return }
}
- send_gdb "continue\n"
+ if [target_info exists gdb_stub] {
+ expect {
+ -re ".*$gdb_prompt $" {
+ send_gdb "continue\n"
+ }
+ }
+ }
return
}
send_gdb "run $args\n"
-re "Break.* at .*:$decimal.*$gdb_prompt $" {
return 1
}
- -re "Breakpoint \[0-9\]*, \[0-9xa-f\]* in $function.*$gdb_prompt $" {
+ -re "Breakpoint \[0-9\]*, \[0-9xa-f\]* in .*$gdb_prompt $" {
return 1
}
-re "$gdb_prompt $" {