1 # Copyright 2016-2020 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 is to test whether GDBserver or other remote stubs deliver signal
17 # to the inferior while step over thread. The program signal.c sends
18 # signal SIGABRT to itself via kill syscall. The test sets tracepoints
19 # syscall instruction and the next one, and it is quite likely that
20 # GDBserver gets the signal when it steps over thread and does the
21 # collection. If GDBserver doesn't deliver signal in thread step over,
22 # one collection is got for one tracepoint hit. Otherwise, there may
23 # be two collections for one tracepoint hit, because tracepoint is
24 # collected once before step over, the program goes into signal handler
25 # (because signal is delivered in step over), and program goes back
26 # to the tracepoint again (one more collection) after returns from
29 load_lib "trace-support.exp"
31 if [target_info exists gdb,nosignals] {
32 verbose "Skipping signal.exp because of nosignals."
38 if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
43 fail "can't run to main to check for trace support"
47 if ![gdb_target_supports_trace] {
48 unsupported "target does not support trace"
52 # Step 1, find the syscall instruction address.
56 # Define the syscall instruction for each target.
58 if { [istarget "i\[34567\]86-*-linux*"] || [istarget "x86_64-*-linux*"] } {
59 set syscall_insn "\[ \t\](int|syscall|sysenter)\[ \t\]"
60 } elseif { [istarget "aarch64*-*-linux*"] || [istarget "arm*-*-linux*"] } {
61 set syscall_insn "\[ \t\](swi|svc)\[ \t\]"
63 unsupported "unknown syscall instruction"
67 # Start with a fresh gdb.
68 clean_restart ${testfile}
70 fail "can't run to main"
74 gdb_breakpoint "kill" qualified
75 gdb_test "handle SIGABRT nostop noprint pass" ".*" "pass SIGABRT"
77 # Hit the breakpoint on $syscall for the first time. In this time,
78 # we will let PLT resolution done, and the number single steps we will
79 # do later will be reduced.
80 gdb_test "continue" "Continuing\\..*Breakpoint $decimal, (.* in |__libc_|)kill \\(\\).*" \
81 "continue to kill, 1st time"
83 # Hit the breakpoint on $syscall for the second time. In this time,
84 # the address of syscall insn and next insn of syscall are recorded.
85 gdb_test "continue" "Continuing\\..*Breakpoint $decimal, (.* in |__libc_|)kill \\(\\).*" \
86 "continue to kill, 2nd time"
88 gdb_test "display/i \$pc" ".*"
90 # Single step until we see a syscall insn or we reach the
91 # upper bound of loop iterations.
92 set msg "find syscall insn in kill"
95 gdb_test_multiple "stepi" $msg {
96 -re ".*$syscall_insn.*$gdb_prompt $" {
99 -re "x/i .*=>.*\r\n$gdb_prompt $" {
101 if {$steps == $max_steps} {
110 if {$steps == $max_steps} {
115 gdb_test_no_output "delete display 1"
117 set syscall_insn_addr [get_hexadecimal_valueof "\$pc" "0"]
118 set syscall_insn_next 0
120 gdb_test_multiple $test $test {
121 -re "$hex .*:\[^\r\n\]+\r\n\[ \]+($hex).*\.\r\n$gdb_prompt $" {
122 set syscall_insn_next $expect_out(1,string)
127 gdb_breakpoint "start" qualified
128 gdb_continue_to_breakpoint "continue to start"
130 gdb_assert { 0 == [get_integer_valueof "counter" "1"] } "counter is zero"
134 # Step 2, set tracepoints on syscall instruction and the next one.
135 # It is more likely to get signal on these two places when GDBserver
136 # is doing step-over.
137 gdb_test "trace *$syscall_insn_addr" "Tracepoint $decimal at .*" \
138 "tracepoint on syscall instruction"
139 set tpnum [get_integer_valueof "\$bpnum" 0]
140 gdb_test "trace *$syscall_insn_next" "Tracepoint $decimal at .*" \
141 "tracepoint on instruction following syscall instruction"
143 gdb_breakpoint "end" qualified
145 gdb_test_no_output "tstart"
146 gdb_test "continue" ".*Breakpoint.* end .*at.*$srcfile.*" \
148 gdb_test_no_output "tstop"
150 set iterations [get_integer_valueof "iterations" "0"]
152 gdb_assert { $iterations == [get_integer_valueof "counter" "0"] } \
153 "iterations equals to counter"
155 # Record the hit times of each tracepoint in this array.
156 array set tracepoint_hits { }
157 for { set i $tpnum } { $i < [expr $tpnum + 2] } { incr i } {
158 set tracepoint_hits($i) 0
164 gdb_test_multiple $test $test {
165 -re "Found trace frame $decimal, tracepoint ($decimal).*\r\n$gdb_prompt $" {
166 set idx [expr $expect_out(1,string)]
167 incr tracepoint_hits($idx)
169 -re "Target failed to find requested trace frame\..*\r\n$gdb_prompt $" {
178 # Step 3, check the number of collections on each tracepoint.
180 for { set i $tpnum } { $i < [expr $tpnum + 2] } { incr i } {
182 if { $tracepoint_hits($i) == $iterations } {
183 pass "tracepoint $i hit $iterations times"
184 } elseif { $tracepoint_hits($i) > $iterations } {
185 # GDBserver deliver the signal while stepping over tracepoint,
186 # so it is possible that a tracepoint is collected twice.
187 pass "tracepoint $i hit $iterations times (spurious collection)"
189 fail "tracepoint $i hit $iterations times"