1 # Copyright (C) 2015-2016 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 several threads forking while another thread
17 # is constantly stepping over a breakpoint is properly handled.
21 set linenum [gdb_get_line_number "set break here"]
23 if {[build_executable "failed to prepare" $testfile $srcfile {debug pthreads}] == -1} {
28 set displaced_stepping_supported 1
30 # "set displaced on" only tells gdb to use displaced stepping if
31 # possible. Probe for actual support.
33 proc probe_displaced_stepping_support {} {
34 global displaced_stepping_supported
35 global binfile gdb_prompt
37 with_test_prefix "probe displaced-stepping support" {
38 clean_restart $binfile
40 gdb_test_no_output "set displaced on"
41 if ![runto_main] then {
42 fail "Can't run to main"
46 # We're stopped at the main breakpoint. If displaced stepping is
47 # supported, we'll see related debug output while we step past
49 gdb_test_no_output "set debug displaced 1"
50 gdb_test_multiple "next" "probe" {
51 -re "displaced pc to.*$gdb_prompt $" {
54 -re ".*$gdb_prompt $" {
55 set displaced_stepping_supported 0
62 # The test proper. If COND_BP_TARGET is true, then test with
63 # conditional breakpoints evaluated on the target side, if possible.
64 # DETACH_ON_FORK is used as value for the "set detach-on-fork"
65 # setting. If "on", this exercises GDB explicitly continuing the fork
66 # child until exit. If "off", this exercises GDB detaching the fork
67 # child. DISPLACED indicates whether to use displaced stepping or
69 proc do_test { cond_bp_target detach_on_fork displaced } {
71 global srcfile testfile binfile
72 global decimal gdb_prompt
74 global is_remote_target
76 set saved_gdbflags $GDBFLAGS
77 set GDBFLAGS [concat $GDBFLAGS " -ex \"set non-stop on\""]
78 clean_restart $binfile
79 set GDBFLAGS $saved_gdbflags
81 if ![runto_main] then {
82 fail "Can't run to main"
86 if {$cond_bp_target} {
87 set test "set breakpoint condition-evaluation target"
88 gdb_test_multiple $test $test {
89 -re "warning: Target does not support breakpoint condition evaluation.\r\nUsing host evaluation mode instead.\r\n$gdb_prompt $" {
90 # Target doesn't support breakpoint condition
91 # evaluation on its side. Skip the test.
94 -re "^$test\r\n$gdb_prompt $" {
98 gdb_test_no_output "set breakpoint condition-evaluation host"
101 gdb_test_no_output "set detach-on-fork $detach_on_fork"
102 gdb_test_no_output "set displaced $displaced"
104 gdb_test "break $linenum if zero == 1" \
106 "set breakpoint that evals false"
108 set test "continue &"
109 gdb_test_multiple $test $test {
118 with_timeout_factor 10 {
119 set test "inferior 1 exited"
120 gdb_test_multiple "" $test {
121 -re "Inferior 1 \(\[^\r\n\]+\) exited normally" {
125 -re "Inferior $decimal \(\[^\r\n\]+\) exited normally" {
127 if {$fork_count <= 100} {
130 fail "$test (too many forks)"
137 # No use testing further.
141 gdb_test "info threads" "No threads\." \
144 gdb_test "info inferiors" \
145 "Num\[ \t\]+Description\[ \t\]+Executable\[ \t\]+\r\n\\* 1 \[^\r\n\]+" \
146 "only inferior 1 left"
149 probe_displaced_stepping_support
151 foreach_with_prefix cond_bp_target {1 0} {
152 foreach_with_prefix detach_on_fork {"on" "off"} {
153 # Disable "off" for now. The test does pass with
154 # detach-on-fork off (at the time of writing), but gdb seems
155 # to slow down quadratically as inferiors are created, and
156 # then the test takes annoyingly long to complete...
157 if {$detach_on_fork == "off"} {
161 foreach_with_prefix displaced {"on" "off"} {
162 if {$displaced == "on" && !$displaced_stepping_supported} {
166 do_test $cond_bp_target $detach_on_fork $displaced