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
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
# Copyright 2017-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/>.
# Common routines for testing multi-target features.
load_lib gdbserver-support.exp
standard_testfile multi-target.c
# Keep a list of (inferior ID, spawn ID).
set server_spawn_ids [list]
proc connect_target_extended_remote {binfile num} {
set res [gdbserver_start "--multi" ""]
global server_spawn_ids server_spawn_id
lappend server_spawn_ids $num $server_spawn_id
set gdbserver_gdbport [lindex $res 1]
return [gdb_target_cmd "extended-remote" $gdbserver_gdbport]
}
# Add and start inferior number NUM. Returns true on success, false
# otherwise.
proc add_inferior {num target binfile {gcorefile ""}} {
# Start another inferior.
gdb_test "add-inferior -no-connection" "Added inferior $num" \
"add empty inferior $num"
gdb_test "inferior $num" "Switching to inferior $num.*" \
"switch to inferior $num"
gdb_test "file ${binfile}" ".*" "load file in inferior $num"
gdb_test_no_output "set remote exec-file ${binfile}" \
"set remote-exec file in inferior $num"
if {$target == "core"} {
gdb_test "core $gcorefile" "Core was generated by.*" \
"core [file tail $gcorefile], inf $num"
return 1
}
if {$target == "extended-remote"} {
if {[connect_target_extended_remote $binfile $num]} {
return 0
}
}
if ![runto "all_started"] then {
return 0
}
delete_breakpoints
return 1
}
proc prepare_core {} {
global gcorefile gcore_created
global binfile
clean_restart ${binfile}
if ![runto all_started] then {
return -1
}
global testfile
set gcorefile [standard_output_file $testfile.gcore]
set gcore_created [gdb_gcore_cmd $gcorefile "save a core file"]
}
proc next_live_inferior {inf} {
incr inf
if {$inf == 3} {
# 3 is a core.
return 4
}
if {$inf > 5} {
# 6 is a core.
return 1
}
return $inf
}
# Clean up the server_spawn_ids.
proc cleanup_gdbservers { } {
global server_spawn_id
global server_spawn_ids
foreach { inferior_id spawn_id } $server_spawn_ids {
set server_spawn_id $spawn_id
gdb_test "inferior $inferior_id"
gdbserver_exit 0
}
set server_spawn_ids [list]
}
# Return true on success, false otherwise.
proc setup {non-stop} {
global gcorefile gcore_created
global binfile
cleanup_gdbservers
save_vars { ::GDBFLAGS } {
# Make GDB read files from the local file system, not through the
# remote targets, to speed things up.
set ::GDBFLAGS "${::GDBFLAGS} -ex \"set sysroot\""
clean_restart ${binfile}
}
# multi-target depends on target running in non-stop mode. Force
# it on for remote targets, until this is the default.
gdb_test_no_output "maint set target-non-stop on"
gdb_test_no_output "set non-stop ${non-stop}"
if ![runto all_started] then {
return 0
}
delete_breakpoints
# inferior 1 -> native
# inferior 2 -> extended-remote
# inferior 3 -> core
# inferior 4 -> native
# inferior 5 -> extended-remote
# inferior 6 -> core
if {![add_inferior 2 "extended-remote" $binfile]} {
return 0
}
if {![add_inferior 3 "core" $binfile $gcorefile]} {
return 0
}
if {![add_inferior 4 "native" $binfile]} {
return 0
}
if {![add_inferior 5 "extended-remote" $binfile]} {
return 0
}
if {![add_inferior 6 "core" $binfile $gcorefile]} {
return 0
}
# For debugging.
gdb_test "info threads" ".*"
# Make "continue" resume all inferiors.
if {${non-stop} == "off"} {
gdb_test_no_output "set schedule-multiple on"
}
return 1
}
proc multi_target_prepare {} {
global binfile srcfile
if { [skip_gdbserver_tests] } {
return 0
}
# The plain remote target can't do multiple inferiors.
if {[target_info gdb_protocol] != ""} {
return 0
}
if { [prepare_for_testing "failed to prepare" ${binfile} "${srcfile}" \
{debug pthreads}] } {
return 0
}
# Make a core file with two threads upfront. Several tests load
# the same core file.
prepare_core
return 1
}
proc multi_target_cleanup {} {
cleanup_gdbservers
}
|
