}
proc advance { i } {
- global gdb_prompt
+ global gdb_prompt inferior_exited_re
set prefix "$i from handler"
# Get us back into the handler
send_gdb "$i\n"
exp_continue -continue_timer
}
- -re "Program exited normally.*${gdb_prompt} $" {
+ -re "$inferior_exited_re normally.*${gdb_prompt} $" {
setup_kfail gdb/1639 powerpc-*-*bsd*
fail "$test (program exited)"
}
}
proc advancei { i } {
- global gdb_prompt
+ global gdb_prompt inferior_exited_re
set prefix "$i from handleri"
set program_exited 0
-re "main .*${gdb_prompt} $" {
fail "$test (in main)"
}
- -re "Program exited normally.*${gdb_prompt} $" {
+ -re "$inferior_exited_re normally.*${gdb_prompt} $" {
fail "$test (program exited)"
set program_exited 1
}
send_gdb "y\n"
exp_continue -continue_timer
}
- -re "Program exited normally.*${gdb_prompt} $" {
+ -re "$inferior_exited_re normally.*${gdb_prompt} $" {
kfail gdb/1639 "$test (program exited)"
set program_exited 1
}