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
|
# step2.exp -- Expect script to test gdb step.c
# Copyright (C) 1992, 1997, 2007, 2008 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/>.
# This file was written by Jeff Law. (law@cygnus.com)
#
if $tracelevel then {
strace $tracelevel
}
set program_exited 0
# A simple and crude test to see that we can step two threads independently
proc test_multi_threaded_stepping {} {
global gdb_prompt
global hex
global srcfile
global decimal
# Set breakpoints in code that we know is executed in only
# thread of control.
gdb_test "break thread1" \
"Break.* at $hex: file .*$srcfile, line $decimal\\."
gdb_test "break thread2" \
"Break.* at $hex: file .*$srcfile, line $decimal\\."
# the order in which things happen is indeterminate. So we basically
# look for a set of events and note that each one happens and that
# all of the required events have happened when we're done.
#
# Right now we only verify that both threads start and that they
# both call pthread_cond_wait twice.
set thread1started 0
set thread1condwait 0
set thread2started 0
set thread2condwait 0
send_gdb "run\n"
gdb_expect {
-re "The program .* has been started already.*y or n. $" {
send_gdb "y\n"
exp_continue
}
-re ".*Breakpoint \[0-9\]+,.*thread1.* at .*$srcfile:.*\[\t \].*$gdb_prompt $" {
if { $thread1started != 0 } then {
fail "thread1 started"
return
} else {
set thread1started 1
pass "thread1 started"
}
send_gdb "step\n"
exp_continue
}
-re ".*Breakpoint \[0-9\]+,.*thread2.* at .*$srcfile:.*\[\t \].*$gdb_prompt $" {
if { $thread2started != 0 } then {
fail "thread2 started"
return
} else {
set thread2started 1
pass "thread2 started"
}
send_gdb "step\n"
exp_continue
}
-re ".*pthread_cond_wait.*cv_a.*$gdb_prompt" {
if { $thread1started == 0 } then {
fail "thread1 condwait"
return
}
if { $thread1condwait < 2 } then {
pass "thread1 condwait"
incr thread1condwait
}
if { $thread2condwait == 2 } then {
pass "multi threaded stepping"
return
}
send_gdb "step\n"
exp_continue
}
-re ".*pthread_cond_wait.*cv_b.*$gdb_prompt" {
if { $thread2started == 0 } then {
fail "thread2 condwait"
return
}
if { $thread2condwait < 2 } then {
pass "thread2 condwait"
incr thread2condwait
}
if { $thread1condwait == 2 } then {
pass "multi threaded stepping"
return
}
send_gdb "step\n"
exp_continue
}
-re "$gdb_prompt" {
send_gdb "step\n"
exp_continue
}
default { fail "multi threaded stepping" }
}
}
# Check to see if we have an executable to test. If not, then either we
# haven't tried to compile one, or the compilation failed for some reason.
# In either case, just notify the user and skip the tests in this file.
set binfile "step"
set srcfile "step.c"
if ![file exists $objdir/$subdir/$binfile] then {
if $all_flag then {
warning "$binfile does not exist; tests suppressed."
}
return
}
set prms_id 0
set bug_id 0
# Start with a fresh gdb.
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $objdir/$subdir/$binfile
test_multi_threaded_stepping
|
