blob: d405411be012f5e8b911612345e3a652936173cb [file] [log] [blame]
# Copyright 2022 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 that a multi-threaded program doing a vfork doesn't miss breakpoints.
#
# When a program vforks, its address space is shared with the parent. When we
# detach a vfork child, we must keep breakpoints out of that shared address space
# until the child either exits or execs, so that the child does not hit a
# breakpoint while out of GDB's control. During that time, threads from
# the parent must be held stopped, otherwise they could miss breakpoints.
#
# The thread that did the vfork is suspended by the kernel, so it's not a
# concern. The other threads need to be manually stopped by GDB and resumed
# once the vfork critical region is done.
#
# This test spawns one thread that calls vfork. Meanwhile, the main thread
# crosses a breakpoint. A buggy GDB would let the main thread run while
# breakpoints are removed, so the main thread would miss the breakpoint and run
# until exit.
standard_testfile
if { [build_executable "failed to prepare" ${testfile} ${srcfile} {debug pthreads}] } {
return
}
set any "\[^\r\n\]*"
# A bunch of util procedures to continue an inferior to an expected point.
proc continue_to_parent_breakpoint {} {
gdb_test "continue" \
"hit Breakpoint .* should_break_here .*" \
"continue parent to breakpoint"
}
proc continue_to_parent_end {} {
gdb_test "continue" "Inferior 1.*exited with code 06.*" \
"continue parent to end"
}
# Run the test with the given GDB settings.
proc do_test { target-non-stop non-stop follow-fork-mode detach-on-fork schedule-multiple } {
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}
}
gdb_test_no_output "set follow-fork-mode ${follow-fork-mode}"
gdb_test_no_output "set detach-on-fork ${detach-on-fork}"
gdb_test_no_output "set schedule-multiple ${schedule-multiple}"
# The message about thread 2 of inferior 1 exiting happens at a somewhat
# unpredictable moment, it's simpler to silence it than to try to match it.
gdb_test_no_output "set print thread-events off"
if { ![runto_main] } {
return
}
# The main thread is expected to hit this breakpoint.
gdb_test "break should_break_here" "Breakpoint $::decimal at .*"
continue_to_parent_breakpoint
continue_to_parent_end
}
# We only test with follow-fork-mode=parent and detach-on-fork=on at the
# moment, but the loops below are written to make it easy to add other values
# on these axes in the future.
foreach_with_prefix target-non-stop {auto on off} {
foreach_with_prefix non-stop {off on} {
foreach_with_prefix follow-fork-mode {parent} {
foreach_with_prefix detach-on-fork {on} {
foreach_with_prefix schedule-multiple {off on} {
do_test ${target-non-stop} ${non-stop} ${follow-fork-mode} ${detach-on-fork} ${schedule-multiple}
}
}
}
}
}