gdb/testsuite/gdb.base/break.exp: split test_break_user_call

Change-Id: I9151ce9db9435722b758f41c6606b461bf15f320
Approved-By: Kevin Buettner <kevinb@redhat.com>
This commit is contained in:
Simon Marchi
2022-11-23 13:39:52 -05:00
committed by Simon Marchi
parent 2994ead4a0
commit 3ad8183797

View File

@ -626,9 +626,16 @@ with_test_prefix "set line breakpoint via convenience variable" {
} }
# Verify that we can set and trigger a breakpoint in a user-called function. # Verify that we can set and trigger a breakpoint in a user-called function.
#
proc_with_prefix test_break_user_call {} {
clean_restart break
if { ![runto_main] } {
return
}
gdb_test "break marker2" \ gdb_test "break marker2" \
"Breakpoint (\[0-9\]*) at .*, line $bp_location8.*" \ "Breakpoint (\[0-9\]*) at .*, line $::bp_location8.*" \
"set breakpoint on to-be-called function" "set breakpoint on to-be-called function"
gdb_test "print marker2(99)" \ gdb_test "print marker2(99)" \
@ -638,7 +645,7 @@ gdb_test "print marker2(99)" \
# As long as we're stopped (breakpointed) in a called function, # As long as we're stopped (breakpointed) in a called function,
# verify that we can successfully backtrace & such from here. # verify that we can successfully backtrace & such from here.
gdb_test "bt" \ gdb_test "bt" \
"#0\[ \t\]*($hex in )?marker2.*:$bp_location8\r\n#1\[ \t\]*<function called from gdb>.*" \ "#0\[ \t\]*($::hex in )?marker2.*:$::bp_location8\r\n#1\[ \t\]*<function called from gdb>.*" \
"backtrace while in called function" "backtrace while in called function"
# Return from the called function. For remote targets, it's important to do # Return from the called function. For remote targets, it's important to do
@ -646,13 +653,16 @@ gdb_test "bt" \
# breakpoint inserted by GDB at the program's entry point. # breakpoint inserted by GDB at the program's entry point.
# #
gdb_test_multiple "finish" "finish from called function" { gdb_test_multiple "finish" "finish from called function" {
-re "Run till exit from .*marker2.* at .*$bp_location8\r\n.*function called from gdb.*$gdb_prompt $" { -re "Run till exit from .*marker2.* at .*$::bp_location8\r\n.*function called from gdb.*$::gdb_prompt $" {
pass "finish from called function" pass "finish from called function"
} }
-re "Run till exit from .*marker2.* at .*$bp_location8\r\n.*Value returned.*$gdb_prompt $" { -re "Run till exit from .*marker2.* at .*$::bp_location8\r\n.*Value returned.*$::gdb_prompt $" {
pass "finish from called function" pass "finish from called function"
} }
} }
}
test_break_user_call
# Verify that GDB responds gracefully to a "finish" command with # Verify that GDB responds gracefully to a "finish" command with
# arguments. # arguments.