binutils-gdb/gdb/testsuite/gdb.threads/next-fork-other-thread.exp
Andrew Burgess 1d506c26d9 Update copyright year range in header of all files managed by GDB
This commit is the result of the following actions:

  - Running gdb/copyright.py to update all of the copyright headers to
    include 2024,

  - Manually updating a few files the copyright.py script told me to
    update, these files had copyright headers embedded within the
    file,

  - Regenerating gdbsupport/Makefile.in to refresh it's copyright
    date,

  - Using grep to find other files that still mentioned 2023.  If
    these files were updated last year from 2022 to 2023 then I've
    updated them this year to 2024.

I'm sure I've probably missed some dates.  Feel free to fix them up as
you spot them.
2024-01-12 15:49:57 +00:00

117 lines
3.9 KiB
Plaintext

# Copyright 2022-2024 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 doing a "next" on a thread during which forks or vforks happen in other
# threads.
standard_testfile
# Line where to stop the main thread.
set break_here_line [gdb_get_line_number "break here"]
# Build executables, one for each fork flavor.
foreach_with_prefix fork_func {fork vfork} {
set opts [list debug pthreads additional_flags=-DFORK_FUNC=${fork_func}]
if { [build_executable "failed to prepare" \
${testfile}-${fork_func} ${srcfile} $opts] } {
return
}
}
# If testing against GDBserver, consume all it its output.
proc drain_gdbserver_output { } {
if { [info exists ::server_spawn_id] } {
gdb_test_multiple "" "" {
-i "$::server_spawn_id"
-timeout 0
-re ".+" {
exp_continue
}
}
}
}
# Run the test with the given parameters:
#
# - FORK_FUNC: fork flavor, "fork" or "vfork".
# - TARGET-NON-STOP: "maintenance set target-non-stop" value, "auto", "on" or
# "off".
# - NON-STOP: "set non-stop" value, "on" or "off".
# - DISPLACED-STEPPING: "set displaced-stepping" value, "auto", "on" or "off".
proc do_test { fork_func target-non-stop non-stop displaced-stepping } {
save_vars { ::GDBFLAGS } {
append ::GDBFLAGS " -ex \"maintenance set target-non-stop ${target-non-stop}\""
append ::GDBFLAGS " -ex \"set non-stop ${non-stop}\""
clean_restart ${::binfile}-${fork_func}
}
gdb_test_no_output "set displaced-stepping ${displaced-stepping}"
if { ![runto_main] } {
return
}
# The "Detached after (v)fork" messages get in the way in non-stop, disable
# them.
gdb_test_no_output "set print inferior-events off"
# Advance the next-ing thread to the point where we'll execute the nexts.
# Leave the breakpoint in: it will force GDB to step over it while next-ing,
# which exercises some additional code paths.
gdb_test "break $::break_here_line" "Breakpoint $::decimal at $::hex.*"
gdb_test "continue" "hit Breakpoint $::decimal, main.*"
# Next an arbitrary number of times over the lines of the loop.
#
# It is useful to bump this number to a larger value (e.g. 200) to stress
# test more, but it makes the test case run for considerably longer. If
# you increase the number of loops, you might want to adjust the alarm
# time in the .c file accordingly.
for { set i 0 } { $i < 20 } { incr i } {
# If testing against GDBserver, the forking threads cause a lot of
# "Detaching from process XYZ" messages to appear. If we don't consume
# that output, GDBserver eventually blocks on a full stderr. Drain it
# once every loop. It may not be needed for 20 iterations, but it's
# needed if you increase to 200 iterations.
drain_gdbserver_output
with_test_prefix "i=$i" {
if { [gdb_test "next" "other line.*" "next to other line"] != 0 } {
return
}
if { [gdb_test "next" "for loop.*" "next to for loop"] != 0 } {
return
}
if { [gdb_test "next" "break here.*" "next to break here"] != 0} {
return
}
}
}
}
foreach_with_prefix fork_func {fork vfork} {
foreach_with_prefix target-non-stop {auto on off} {
foreach_with_prefix non-stop {off on} {
foreach_with_prefix displaced-stepping {auto on off} {
do_test ${fork_func} ${target-non-stop} ${non-stop} ${displaced-stepping}
}
}
}
}