diff options
| -rw-r--r-- | gdb/testsuite/gdb.base/break-interp.exp | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.base/break-interp.exp b/gdb/testsuite/gdb.base/break-interp.exp index 545e365..fd2b166 100644 --- a/gdb/testsuite/gdb.base/break-interp.exp +++ b/gdb/testsuite/gdb.base/break-interp.exp @@ -84,6 +84,16 @@ gdb_test_multiple $test $test { } set interp_system [section_get [standard_output_file $binfile_test] .interp] +clean_restart $interp_system +set dl_main_found 0 +gdb_test_multiple "info addr dl_main" "" { + -re -wrap "Symbol \"dl_main\" is a function at address $hex\\." { + set dl_main_found 1 + } + -re -wrap "No symbol \"dl_main\" in current context\\." { + } +} + set interp_system_debug [system_debug_get $interp_system] verbose -log "$interp_system has debug $interp_system_debug" @@ -381,6 +391,7 @@ proc test_attach {file displacement {relink_args ""}} { proc test_ld {file ifmain trynosym displacement} { global srcdir subdir gdb_prompt expect_out inferior_exited_re solib_bp + global hex dl_main_found # First test normal `file'-command loaded $FILE with symbols. @@ -413,7 +424,28 @@ proc test_ld {file ifmain trynosym displacement} { with_test_prefix "first backtrace" { gdb_test_no_output "set verbose off" - gdb_test "bt" "#0 +\[^\r\n\]*\\m(__GI_)?$solib_bp\\M.*" "dl bt" + gdb_test_multiple "bt" "dl bt" { + -re -wrap "#0 +\[^\r\n\]*\\m(__GI_)?$solib_bp\\M.*" { + pass $gdb_test_name + } + -re -wrap "#0 ($hex) .*" { + if { $dl_main_found } { + fail $gdb_test_name + } else { + set pc $expect_out(1,string) + regsub "0x0*" $pc "" pc + gdb_test "p /x 0x$pc" ".*" + gdb_test_multiple "info probes stap rtld" $gdb_test_name { + -re -wrap "(?:init_start|init_complete) +0x0*$pc .*" { + pass $gdb_test_name + } + -re -wrap "" { + fail $gdb_test_name + } + } + } + } + } gdb_test_no_output "set verbose on" } |