mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-27 04:52:05 +08:00
3666a04883
This commits the result of running gdb/copyright.py as per our Start
of New Year procedure...
gdb/ChangeLog
Update copyright year range in copyright header of all GDB files.
111 lines
3.7 KiB
Plaintext
111 lines
3.7 KiB
Plaintext
# Copyright 2017-2021 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/>.
|
|
|
|
# Test "info inferiors" and "info connections" with multiple targets.
|
|
|
|
source $srcdir/$subdir/multi-target.exp.tcl
|
|
|
|
if {![multi_target_prepare]} {
|
|
return
|
|
}
|
|
|
|
# Test "info inferiors" and "info connections". MULTI_PROCESS
|
|
# indicates whether the multi-process feature of remote targets is
|
|
# turned off or on.
|
|
proc test_info_inferiors {multi_process} {
|
|
setup "off"
|
|
|
|
gdb_test_no_output \
|
|
"set remote multiprocess-feature-packet $multi_process"
|
|
|
|
# Get the description for inferior INF for when the current
|
|
# inferior id is CURRENT.
|
|
proc inf_desc {inf current} {
|
|
set ws "\[ \t\]+"
|
|
global decimal
|
|
upvar multi_process multi_process
|
|
|
|
if {($multi_process == "off") && ($inf == 2 || $inf == 5)} {
|
|
set desc "Remote target"
|
|
} else {
|
|
set desc "process ${decimal}"
|
|
}
|
|
|
|
set desc "${inf}${ws}${desc}${ws}"
|
|
if {$inf == $current} {
|
|
return "\\* $desc"
|
|
} else {
|
|
return " $desc"
|
|
}
|
|
}
|
|
|
|
# Get the "Num" column for CONNECTION for when the current
|
|
# inferior id is CURRENT_INF.
|
|
proc connection_num {connection current_inf} {
|
|
switch $current_inf {
|
|
"4" { set current_connection "1"}
|
|
"5" { set current_connection "4"}
|
|
"6" { set current_connection "5"}
|
|
default { set current_connection $current_inf}
|
|
}
|
|
if {$connection == $current_connection} {
|
|
return "\\* $connection"
|
|
} else {
|
|
return " $connection"
|
|
}
|
|
}
|
|
|
|
set ws "\[ \t\]+"
|
|
global decimal binfile
|
|
|
|
# Test "info connections" and "info inferior" by switching to each
|
|
# inferior one by one.
|
|
for {set inf 1} {$inf <= 6} {incr inf} {
|
|
with_test_prefix "inferior $inf" {
|
|
gdb_test "inferior $inf" "Switching to inferior $inf.*"
|
|
|
|
gdb_test "info connections" \
|
|
[multi_line \
|
|
"Num${ws}What${ws}Description${ws}" \
|
|
"[connection_num 1 $inf]${ws}native${ws}Native process${ws}" \
|
|
"[connection_num 2 $inf]${ws}extended-remote localhost:$decimal${ws}Extended remote serial target in gdb-specific protocol${ws}" \
|
|
"[connection_num 3 $inf]${ws}core${ws}Local core dump file${ws}" \
|
|
"[connection_num 4 $inf]${ws}extended-remote localhost:$decimal${ws}Extended remote serial target in gdb-specific protocol${ws}" \
|
|
"[connection_num 5 $inf]${ws}core${ws}Local core dump file${ws}" \
|
|
]
|
|
|
|
gdb_test "info inferiors" \
|
|
[multi_line \
|
|
"Num${ws}Description${ws}Connection${ws}Executable${ws}" \
|
|
"[inf_desc 1 $inf]1 \\(native\\)${ws}${binfile}${ws}" \
|
|
"[inf_desc 2 $inf]2 \\(extended-remote localhost:$decimal\\)${ws}${binfile}${ws}" \
|
|
"[inf_desc 3 $inf]3 \\(core\\)${ws}${binfile}${ws}" \
|
|
"[inf_desc 4 $inf]1 \\(native\\)${ws}${binfile}${ws}" \
|
|
"[inf_desc 5 $inf]4 \\(extended-remote localhost:$decimal\\)${ws}${binfile}${ws}" \
|
|
"[inf_desc 6 $inf]5 \\(core\\)${ws}${binfile}${ws}" \
|
|
]
|
|
}
|
|
}
|
|
}
|
|
|
|
# Test "info inferiors" and "info connections" commands.
|
|
with_test_prefix "info-inferiors" {
|
|
foreach_with_prefix multi_process {"on" "off"} {
|
|
test_info_inferiors $multi_process
|
|
}
|
|
}
|
|
|
|
multi_target_cleanup
|