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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
# This testcase is part of GDB, the GNU debugger.
# Copyright 2004, 2007 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 GDB can support multiple watchpoints across threads.
if $tracelevel {
strace $tracelevel
}
set prms_id 0
set bug_id 0
# This test verifies that a watchpoint is detected in the proper thread
# so the test is only meaningful on a system with hardware watchpoints.
if [target_info exists gdb,no_hardware_watchpoints] {
return 0;
}
proc target_no_stopped_data { } {
return [istarget s390*-*-*]
}
set testfile "watchthreads"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug "incdir=${objdir}"]] != "" } {
return -1
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
gdb_test "set can-use-hw-watchpoints 1" "" ""
#
# Run to `main' where we begin our tests.
#
if ![runto_main] then {
gdb_suppress_tests
}
set args_0 0
set args_1 0
# Watch values that will be modified by distinct threads.
gdb_test "watch args\[0\]" "Hardware watchpoint 2: args\\\[0\\\]"
gdb_test "watch args\[1\]" "Hardware watchpoint 3: args\\\[1\\\]"
set init_line [expr [gdb_get_line_number "Init value"]+1]
set inc_line [gdb_get_line_number "Loop increment"]
set main_loc "main \\\(\\\) at .*watchthreads.c:$init_line"
set thread0_loc "thread_function \\\(arg=0x0\\\) at .*watchthreads.c:$inc_line"
set thread1_loc "thread_function \\\(arg=0x1\\\) at .*watchthreads.c:$inc_line"
# Loop and continue to allow both watchpoints to be triggered.
for {set i 0} {$i < 30} {incr i} {
set test_flag_0 0
set test_flag_1 0
set test_flag 0
gdb_test_multiple "continue" "threaded watch loop" {
-re "(.*Hardware watchpoint.*)$gdb_prompt $" {
# At least one hardware watchpoint was hit. Check if both were.
set string $expect_out(1,string)
if [regexp "Hardware watchpoint 2: args\\\[0\\\]\[^\r\]*\r\[^\r\]*\r\[^\r\]*Old value = $args_0\[^\r\]*\r\[^\r\]*New value = [expr $args_0+1]\r" $string] {
incr args_0
incr test_flag_0
}
if [regexp "Hardware watchpoint 3: args\\\[1\\\]\[^\r\]*\r\[^\r\]*\r\[^\r\]*Old value = $args_1\[^\r\]*\r\[^\r\]*New value = [expr $args_1+1]\r" $string] {
incr args_1
incr test_flag_1
}
set expected_loc "bogus location"
if { $test_flag_0 == 1 && $test_flag_1 == 0 && $args_0 == 1 } {
set expected_loc $main_loc
} elseif { $test_flag_0 == 0 && $test_flag_1 == 1 && $args_1 == 1 } {
set expected_loc $main_loc
} elseif { $test_flag_0 == 1 && $test_flag_1 == 0 } {
set expected_loc $thread0_loc
} elseif { $test_flag_0 == 0 && $test_flag_1 == 1 } {
set expected_loc $thread1_loc
} elseif { $test_flag_0 + $test_flag_1 == 2 } {
# On S/390, or any other system which can not report the
# stopped data address, it is OK to report two watchpoints
# at once in this test. Make sure the reported location
# corresponds to at least one of the watchpoints (and not,
# e.g., __nptl_create_event). On other systems, we should
# report the two watchpoints serially.
if { [target_no_stopped_data] } {
set expected_loc "($main_loc|$thread0_loc|$thread1_loc)"
}
}
if [ regexp "$expected_loc" $string ] {
set test_flag 1
} else {
fail "threaded watch loop"
}
}
}
# If we fail above, don't bother continuing loop
if { $test_flag == 0 } {
set i 30;
}
}
# Print success message if loop succeeded.
if { $test_flag == 1 } {
pass "threaded watch loop"
}
# Verify that we hit first watchpoint in main thread.
set message "first watchpoint on args\[0\] hit"
if { $args_0 > 0 } {
pass $message
} else {
fail $message
}
# Verify that we hit second watchpoint in main thread.
set message "first watchpoint on args\[1\] hit"
if { $args_1 > 0 } {
pass $message
} else {
fail $message
}
# Verify that we hit first watchpoint in child thread.
set message "watchpoint on args\[0\] hit in thread"
if { $args_0 > 1 } {
pass $message
} else {
fail $message
}
# Verify that we hit second watchpoint in child thread.
set message "watchpoint on args\[1\] hit in thread"
if { $args_1 > 1 } {
pass $message
} else {
fail $message
}
# Verify that all watchpoint hits are accounted for.
set message "combination of threaded watchpoints = 30"
if { [target_no_stopped_data] } {
# See above. If we allow two watchpoints to be hit at once, we
# may have more than 30 hits total.
set result [expr $args_0 + $args_1 >= 30]
} else {
set result [expr $args_0 + $args_1 == 30]
}
if { $result } {
pass $message
} else {
fail $message
}
|
