1 # Copyright (C) 2014-2019 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 # Test that "signal FOO" behaves correctly when we have multiple
17 # threads that have stopped for a signal.
19 if [target_info exists gdb,nosignals] {
20 verbose "Skipping ${testfile}.exp because of nosignals."
26 if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
27 executable { debug }] != "" } {
31 # Run the test proper. SCHEDLOCK indicates which variant (around
32 # scheduler-locking) of the test to perform.
34 proc test { schedlock } {
35 global srcfile binfile
37 with_test_prefix "schedlock $schedlock" {
38 clean_restart ${binfile}
40 if ![runto_main] then {
41 fail "can't run to main"
45 gdb_test "handle SIGUSR1 stop print pass"
46 gdb_test "handle SIGUSR2 stop print pass"
48 gdb_test "break all_threads_started" "Breakpoint .* at .*$srcfile.*"
50 # Create threads one at a time, to insure stable thread
51 # numbers between runs and targets.
52 gdb_test "break thread_function" "Breakpoint .* at .*$srcfile.*"
53 gdb_test "continue" "thread_function.*" "thread 2 created"
54 gdb_test "continue" "thread_function.*" "thread 3 created"
56 gdb_test "continue" "all_threads_started.*"
58 # Using schedlock, let the main thread queue a signal for each
60 gdb_test_no_output "set scheduler-locking on"
62 gdb_test "break all_threads_signalled" "Breakpoint .* at .*$srcfile.*"
63 gdb_test "continue" "all_threads_signalled.*"
65 gdb_test "info threads" "\\\* 1\[ \t\]+Thread.*" "thread 1 selected"
67 # With schedlock still enabled, let each thread report its
70 gdb_test "thread 3" "Switching to thread 3.*"
71 gdb_test "continue" "Thread 3 .*received signal SIGUSR2.*" "stop with SIGUSR2"
72 gdb_test "thread 2" "Switching to thread 2.*"
73 gdb_test "continue" "Thread 2 .*received signal SIGUSR1.*" "stop with SIGUSR1"
75 gdb_test "break handler_sigusr1" "Breakpoint .* at .*$srcfile.*"
76 gdb_test "break handler_sigusr2" "Breakpoint .* at .*$srcfile.*"
78 set handler_re "Breakpoint .*, handler_sigusr. \\(sig=.*\\) at .*"
80 # Now test the "signal" command with either scheduler locking
81 # enabled or disabled.
83 if { $schedlock == "off" } {
84 # With scheduler locking off, switch to the main thread
85 # and issue "signal 0". "signal 0" should then warn that
86 # two threads have signals that will be delivered. When
87 # we let the command proceed, a signal should be
88 # delivered, and thus the corresponding breakpoint in the
89 # signal handler should trigger.
91 gdb_test_no_output "set scheduler-locking off"
92 gdb_test "thread 1" "Switching to thread 1.*"
95 set test "signal command queries"
96 gdb_test_multiple "signal 0" $test {
97 -re "stopped with.*stopped with.*stopped with.*Continue anyway.*y or n. $" {
98 fail "$test (too many threads noted)"
101 -re "stopped with signal SIGUSR.*\r\nContinuing .*still deliver .*Continue anyway.*y or n. $" {
105 -re "Continue anyway.*y or n. $" {
106 fail "$test (no threads noted)"
111 # Continuing should stop in one of the signal handlers.
112 # Which thread runs first is not determinate.
114 gdb_test "y" "$handler_re" "one signal delivered"
117 # Continuing a second time should stop in the other
119 with_test_prefix "second signal" {
120 gdb_test "continue" "$handler_re" "signal delivered"
123 # With scheduler locking on, stay with thread 2 selected,
124 # and try to deliver its signal explicitly. The "signal"
125 # command should then warn that one other thread has a
126 # signal that will be delivered. When we let the command
127 # proceed, the current thread's signal should be
128 # delivered, and thus the corresponding breakpoint in the
129 # signal handler should trigger.
130 gdb_test "signal SIGUSR1" \
131 "Breakpoint .*, handler_sigusr1 \\(sig=.*\\) at .*" \
132 "signal command does not query, signal delivered"
134 with_test_prefix "second signal" {
135 # The other thread had stopped for a signal too, and
136 # it wasn't resumed yet. Disabling schedlock and
137 # trying "signal 0" from the main thread should warn
139 gdb_test_no_output "set scheduler-locking off"
142 set test "signal command queries"
143 gdb_test_multiple "signal 0" $test {
144 -re "stopped with.*stopped with.*Continue anyway.*y or n. $" {
145 fail "$test (too many threads noted)"
148 -re "stopped with signal SIGUSR.*\r\nContinuing .*still deliver .*Continue anyway.*y or n. $" {
152 -re "Continue anyway.*y or n. $" {
153 fail "$test (no threads noted)"
159 gdb_test "y" "Breakpoint .*, handler_sigusr2 \\(sig=.*\\) at .*" "signal delivered"
164 # Both threads got their signal. Continuing again should
165 # neither intercept nor deliver any other signal.
166 gdb_test "b end" "Breakpoint .* at .*$srcfile.*"
167 gdb_test "continue" "end .*" "no more signals"
171 foreach schedlock {"off" "on"} {