1 # Copyright (C) 2015-2023 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <http://www.gnu.org/licenses/>.
16 # This test verifies that threads created by the child fork are
17 # properly handled. Specifically, GDB used to have a bug where it
18 # would leave child fork threads stuck stopped, even though "info
19 # threads" would show them running.
21 # See https://sourceware.org/bugzilla/show_bug.cgi?id=18600
23 # In remote mode, we cannot continue debugging after all
24 # inferiors have terminated, and this test requires that.
25 if { [target_info exists gdb_protocol]
26 && [target_info gdb_protocol] == "remote" } {
32 proc do_test { detach-on-fork } {
34 global srcfile testfile
37 set saved_gdbflags $GDBFLAGS
38 set GDBFLAGS [concat $GDBFLAGS " -ex \"set non-stop on\""]
40 if {[prepare_for_testing "failed to prepare" \
41 $testfile $srcfile {debug pthreads}] == -1} {
42 set GDBFLAGS $saved_gdbflags
46 set GDBFLAGS $saved_gdbflags
52 gdb_test_no_output "set detach-on-fork ${detach-on-fork}"
54 gdb_test_multiple $test $test {
60 # gdbserver had a bug that resulted in reporting the fork child's
61 # initial stop to gdb, which gdb does not expect, in turn
62 # resulting in a broken session, like:
64 # [Thread 31536.31536] #16 stopped. <== BAD
65 # [New Thread 31547.31547]
66 # [Inferior 10 (process 31536) exited normally]
67 # [New Thread 31547.31560]
69 # [Thread 31547.31547] #18 stopped. <== BAD
70 # Cannot remove breakpoints because program is no longer writable. <== BAD
71 # Further execution is probably impossible. <== BAD
72 # [Inferior 11 (process 31547) exited normally]
73 # [Inferior 1 (process 31454) exited normally]
75 # These variables track whether we see such broken behavior.
76 set saw_cannot_remove_breakpoints 0
77 set saw_thread_stopped 0
79 set expected_num_inferior_exits [expr ${detach-on-fork} == "off" ? 11 : 1]
81 # Flags indicating if we have see the exit for each inferior.
82 for {set i 1} {$i <= $expected_num_inferior_exits} {incr i} {
83 set inferior_exits_seen($i) 0
86 # Number of inferior exits seen so far.
87 set num_inferior_exits_seen 0
89 set test "inferior 1 exited"
90 gdb_test_multiple "" $test {
91 -re "^Cannot remove breakpoints" {
92 set saw_cannot_remove_breakpoints 1
95 -re "^\\\[Thread \[^\r\n\]+ stopped\\." {
96 set saw_thread_stopped 1
99 -re "^\\\[Inferior ($::decimal) \(\[^\r\n\]+\) exited normally\\\]" {
100 set infnum $expect_out(1,string)
101 incr num_inferior_exits_seen
102 incr inferior_exits_seen($infnum) 1
104 if { $num_inferior_exits_seen == $expected_num_inferior_exits } {
110 -re "^\[^\r\n]*\r\n" {
116 # Verify that we got all the inferior exits we expected.
118 for {set i 1} {$i <= $expected_num_inferior_exits} {incr i} {
119 if { $inferior_exits_seen($i) == 1 } {
124 gdb_assert { $num_ok_exits == $expected_num_inferior_exits } \
125 "seen all expected inferior exits"
127 gdb_assert !$saw_cannot_remove_breakpoints \
128 "no failure to remove breakpoints"
129 gdb_assert !$saw_thread_stopped \
130 "no spurious thread stop"
132 gdb_test "info threads" "No threads\." \
135 gdb_test "info inferiors" \
136 "Num\[ \t\]+Description\[ \t\]+Connection\[ \t\]+Executable\[ \t\]+\r\n\\* 1 \[^\r\n\]+" \
137 "only inferior 1 left"
140 foreach_with_prefix detach-on-fork {"on" "off"} {
141 do_test ${detach-on-fork}