forked from Imagelibrary/binutils-gdb
d01e823438
This updates the copyright headers to include 2025. I did this by running gdb/copyright.py and then manually modifying a few files as noted by the script. Approved-By: Eli Zaretskii <eliz@gnu.org>
96 lines
2.6 KiB
Plaintext
96 lines
2.6 KiB
Plaintext
# Copyright 2024-2025 Free Software Foundation, Inc.
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
# Test detaching while the inferior is running. Basically:
|
|
#
|
|
# (gdb) attach PID
|
|
# (gdb) c&
|
|
# (gdb) detach
|
|
|
|
require can_spawn_for_attach
|
|
|
|
standard_testfile
|
|
|
|
if {[build_executable "failed to prepare" $testfile $srcfile {debug}] == -1} {
|
|
return
|
|
}
|
|
|
|
# The test proper. See description above.
|
|
|
|
proc test {} {
|
|
global binfile gdb_prompt
|
|
|
|
# This test requires executing commands while the target is
|
|
# running, which, when testing with the remote target, requires
|
|
# non-stop remote protocol. Until that variant of the RSP is the
|
|
# default, force target non-stop mode on.
|
|
set is_remote \
|
|
[expr {[target_info exists gdb_protocol] \
|
|
&& ([target_info gdb_protocol] == "remote" \
|
|
|| [target_info gdb_protocol] == "extended-remote")}]
|
|
|
|
save_vars { ::GDBFLAGS } {
|
|
if {$is_remote} {
|
|
append ::GDBFLAGS " -ex \"maint set target-non-stop on\""
|
|
}
|
|
clean_restart ${binfile}
|
|
}
|
|
|
|
set test_spawn_id [spawn_wait_for_attach $binfile]
|
|
set testpid [spawn_id_get_pid $test_spawn_id]
|
|
|
|
set any "\[^\r\n\]*"
|
|
|
|
# Iterate more than once so that we test re-attaching after
|
|
# detaching, in case GDB incorrectly detaches and the process
|
|
# crashes after the detach.
|
|
set n_iters 2
|
|
for {set iter 1} {$iter <= $n_iters} {incr iter} {
|
|
with_test_prefix "iter=$iter" {
|
|
set attached 0
|
|
|
|
gdb_test_multiple "attach $testpid" "attach" {
|
|
-re "Attaching to program:${any}process $testpid\r\n.*$gdb_prompt " {
|
|
pass $gdb_test_name
|
|
set attached 1
|
|
}
|
|
}
|
|
|
|
if {!$attached} {
|
|
break
|
|
}
|
|
|
|
gdb_test_multiple "continue &" "" {
|
|
-re "Continuing\.\r\n$::gdb_prompt " {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
gdb_test "detach" "Detaching from.*"
|
|
|
|
# Sleep a bit before reattaching to let the detached
|
|
# process crash and exit if e.g., GDB managed to leave
|
|
# breakpoint traps behind.
|
|
if {$iter != $n_iters} {
|
|
sleep 1
|
|
}
|
|
}
|
|
}
|
|
|
|
kill_wait_spawned_process $test_spawn_id
|
|
}
|
|
|
|
test
|