blob: 257efb337f9f2f2ea9faecdc3f75528c67bb5ed2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
# Copyright 2023 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/>.
# Check that sending GDB a SIGINT while handling execution control
# does not interrupt the execution control.
standard_testfile
if {[build_executable "failed to prepare" $testfile $srcfile debug]} {
return -1
}
# Run the test. Sets a breakpoint with a condition that sends a
# SIGINT to GDB, and ensures that that doesn't make the breakpoint hit
# cause a premature stop. This emulates pressing Ctrl-C just while
# GDB is evaluating the breakpoint condition.
proc test {} {
clean_restart $::binfile
if {![runto_main]} {
return
}
delete_breakpoints
set gdb_pid [exp_pid -i [board_info host fileid]]
# Number of times the breakpoint should be hit before stopping.
set num_hits 10
# A counter used in the breakpoint's condition to ensure that it
# causes a stop after NUM_HITS hits.
gdb_test "p \$hit_count = 0" " = 0" "reset hit counter"
# Set a breakpoint with a condition that sends a SIGINT to GDB. This
# emulates pressing Ctrl-C just while GDB is evaluating the breakpoint
# condition.
gdb_test \
"break foo if \$hit_count\+\+ == $num_hits || \$_shell(\"kill -SIGINT $gdb_pid\") != 0" \
"Breakpoint .*" \
"break foo if <condition>"
# Number of times we've seen GDB print "Quit" followed by the
# prompt. We should see that exactly $NUM_HITS times.
set quit_count 0
gdb_test_multiple "c&" "SIGINT does not interrupt background execution" {
-re "^c&\r\nContinuing\\.\r\n$::gdb_prompt " {
exp_continue
}
-re "^Quit\r\n$::gdb_prompt " {
incr quit_count
verbose -log "quit_count=$quit_count"
exp_continue
}
-re "^\r\nBreakpoint .*return 0;" {
gdb_assert {$quit_count == $num_hits} $gdb_test_name
}
-re ".*Asynchronous execution not supported on this target\..*" {
unsupported "$gdb_test_name (asynchronous execution not supported)"
}
}
}
test
|
