1# This testcase is part of GDB, the GNU debugger. 2 3# Copyright 2007-2023 Free Software Foundation, Inc. 4 5# This program is free software; you can redistribute it and/or modify 6# it under the terms of the GNU General Public License as published by 7# the Free Software Foundation; either version 3 of the License, or 8# (at your option) any later version. 9# 10# This program is distributed in the hope that it will be useful, 11# but WITHOUT ANY WARRANTY; without even the implied warranty of 12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13# GNU General Public License for more details. 14# 15# You should have received a copy of the GNU General Public License 16# along with this program. If not, see <http://www.gnu.org/licenses/>. 17 18# Test attaching to already-running programs using extended-remote. 19 20load_lib gdbserver-support.exp 21load_lib trace-support.exp 22 23standard_testfile 24 25if { [skip_gdbserver_tests] } { 26 return 0 27} 28 29if {![can_spawn_for_attach]} { 30 return 0 31} 32 33if {[build_executable "failed to prepare" $testfile $srcfile debug]} { 34 return -1 35} 36 37# Run the test. TARGET_NON_STOP and TARGET_ASYNC should be 'on' 38# or 'off'. TO_DISABLE should be either the empty string, or 39# something that can be passed to gdbserver's --disable-packet command 40# line option. 41proc run_test { target_async target_non_stop to_disable } { 42 save_vars { ::GDBFLAGS } { 43 append ::GDBFLAGS " -ex \"maint set target-non-stop $target_non_stop\"" 44 append ::GDBFLAGS " -ex \"maintenance set target-async ${target_async}\"" 45 46 # If GDB and GDBserver are both running locally, set the sysroot to avoid 47 # reading files via the remote protocol. 48 if { ![is_remote host] && ![is_remote target] } { 49 set ::GDBFLAGS "$::GDBFLAGS -ex \"set sysroot\"" 50 } 51 52 clean_restart $::binfile 53 } 54 55 # Make sure we're disconnected, in case we're testing with an 56 # extended-remote board, therefore already connected. 57 gdb_test "disconnect" ".*" 58 59 if {[gdb_target_supports_trace]} { 60 # Test predefined TSVs are uploaded. 61 gdb_test_sequence "info tvariables" "check uploaded tsv" { 62 "\[\r\n\]+Name\[\t \]+Initial\[\t \]+Current" 63 "\[\r\n\]+\\\$trace_timestamp 0" 64 } 65 } 66 67 set target_exec [gdbserver_download_current_prog] 68 if { $to_disable != "" } { 69 set gdbserver_opts "--disable-packet=${to_disable}" 70 } else { 71 set gdbserver_opts "" 72 } 73 gdbserver_start_extended $gdbserver_opts 74 75 gdb_test_no_output "set remote exec-file $target_exec" "set remote exec-file" 76 77 set test_spawn_id [spawn_wait_for_attach $::binfile] 78 set testpid [spawn_id_get_pid $test_spawn_id] 79 80 gdb_test "attach $testpid" \ 81 "Attaching to program: .*, process $testpid.*(in|at).*" \ 82 "attach to remote program 1" 83 84 gdb_test "backtrace" ".*main.*" "backtrace 1" 85 86 gdb_test "detach" "Detaching from program.*process.*" 87 gdb_test "backtrace" "No stack\\." "backtrace with no program" 88 89 gdb_test "attach $testpid" \ 90 "Attaching to program: .*, process $testpid.*(in|at).*" \ 91 "attach to remote program 2" 92 gdb_test "backtrace" ".*main.*" "backtrace 2" 93 94 gdb_test "kill" "" "kill" "Kill the program being debugged. .y or n. " "y" 95 gdb_test_no_output "monitor exit" 96 97 kill_wait_spawned_process $test_spawn_id 98} 99 100foreach_with_prefix target_async {"on" "off" } { 101 foreach_with_prefix target_non_stop {"off" "on"} { 102 foreach_with_prefix to_disable { "" Tthread T } { 103 run_test ${target_async} ${target_non_stop} $to_disable 104 } 105 } 106} 107