]>
Commit | Line | Data |
---|---|---|
ebec9a0f PA |
1 | # This testcase is part of GDB, the GNU debugger. |
2 | ||
1d506c26 | 3 | # Copyright 2009-2024 Free Software Foundation, Inc. |
ebec9a0f PA |
4 | |
5 | # This program is free software; you can redistribute it and/or modify | |
6 | # it under the terms of the GNU General Public License as published by | |
7 | # the Free Software Foundation; either version 3 of the License, or | |
8 | # (at your option) any later version. | |
9 | # | |
10 | # This program is distributed in the hope that it will be useful, | |
11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 | # GNU General Public License for more details. | |
14 | # | |
15 | # You should have received a copy of the GNU General Public License | |
16 | # along with this program. If not, see <http://www.gnu.org/licenses/>. | |
17 | ||
18 | # Test GDB can cope with two watchpoints being hit by different threads at the | |
19 | # same time, GDB reports one of them and after "continue" to report the other | |
20 | # one GDB should not be confused by differently set watchpoints that time. | |
21 | # This is the goal of "reorder1". "reorder0" tests the basic functionality of | |
22 | # two watchpoints being hit at the same time, without reordering them during the | |
23 | # stop. The formerly broken functionality is due to the all-stop mode default | |
24 | # "show breakpoint always-inserted" being "off". Formerly the remembered hit | |
25 | # could be assigned during continuation of a thread with pending SIGTRAP to the | |
26 | # different/new watchpoint, just based on the watchpoint/debug register number. | |
27 | ||
9bc8ef1d | 28 | require allow_hw_watchpoint_access_tests allow_hw_watchpoint_multi_tests |
7c1a12b3 | 29 | if {![istarget *-*-linux*]} { |
ebec9a0f PA |
30 | return 0 |
31 | } | |
32 | ||
0efbbabc | 33 | standard_testfile |
ebec9a0f PA |
34 | if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" ${binfile} executable [list debug additional_flags=-lrt]] != "" } { |
35 | return -1 | |
36 | } | |
37 | ||
0f4d39d5 | 38 | foreach reorder {0 1} { with_test_prefix "reorder$reorder" { |
ebec9a0f PA |
39 | |
40 | clean_restart $testfile | |
41 | ||
42 | gdb_test "set can-use-hw-watchpoints 1" | |
43 | ||
44 | if ![runto_main] { | |
45 | return -1 | |
46 | } | |
47 | ||
48 | # Use "rwatch" as "watch" would report the watchpoint changed just based on its | |
49 | # read memory value during a stop by unrelated event. We are interested in not | |
50 | # losing the hardware watchpoint trigger. | |
51 | ||
52 | gdb_test "rwatch thread1_rwatch" "Hardware read watchpoint \[0-9\]+: thread1_rwatch" | |
53 | set test "rwatch thread2_rwatch" | |
54 | gdb_test_multiple $test $test { | |
55 | -re "Target does not support this type of hardware watchpoint\\.\r\n$gdb_prompt $" { | |
56 | # ppc64 supports at most 1 hw watchpoints. | |
57 | unsupported $test | |
58 | return | |
59 | } | |
60 | -re "Hardware read watchpoint \[0-9\]+: thread2_rwatch\r\n$gdb_prompt $" { | |
61 | pass $test | |
62 | } | |
63 | } | |
64 | gdb_breakpoint [gdb_get_line_number "break-at-exit"] | |
65 | ||
66 | # The watchpoints can happen in arbitrary order depending on random: | |
67 | # SEL: Found 2 SIGTRAP events, selecting #[01] | |
68 | # As GDB contains no srand() on the specific host/OS it will behave always the | |
69 | # same. Such order cannot be guaranteed for GDB in general. | |
70 | ||
71 | gdb_test "continue" \ | |
72 | "Hardware read watchpoint \[0-9\]+: thread\[12\]_rwatch\r\n\r\nValue = 0\r\n0x\[0-9a-f\]+ in thread\[12\]_func .*" \ | |
73 | "continue a" | |
74 | ||
75 | if $reorder { | |
76 | # GDB orders watchpoints by their addresses so inserting new variables | |
77 | # with lower addresses will shift the former watchpoints to higher | |
78 | # debug registers. | |
79 | ||
80 | gdb_test "rwatch unused1_rwatch" "Hardware read watchpoint \[0-9\]+: unused1_rwatch" | |
81 | gdb_test "rwatch unused2_rwatch" "Hardware read watchpoint \[0-9\]+: unused2_rwatch" | |
82 | } | |
83 | ||
84 | gdb_test "continue" \ | |
85 | "Hardware read watchpoint \[0-9\]+: thread\[12\]_rwatch\r\n\r\nValue = 0\r\n0x\[0-9a-f\]+ in thread\[12\]_func .*" \ | |
86 | "continue b" | |
87 | ||
88 | # While the debug output itself is not checked in this testcase one bug was | |
89 | # found in the DEBUG_INFRUN code path. | |
90 | gdb_test "set debug infrun 1" | |
91 | ||
3ec3145c SM |
92 | set prompt "$gdb_prompt \\\[infrun\\\] fetch_inferior_event: exit\r\n$" |
93 | gdb_test_multiple "continue" "continue to breakpoint: break-at-exit" -prompt $prompt { | |
94 | -re ".*break-at-exit.*$prompt$" { | |
95 | pass $gdb_test_name | |
96 | } | |
97 | } | |
6a5870ce | 98 | }} |