forked from Imagelibrary/binutils-gdb
be437614a1
Add two options to "info threads": `-stopped` and `-running`.
The purpose of these options is to filter the output of the command.
The `-stopped` option means "print stopped threads only" and,
similarly, `-running` means "print the running threads only". When
both options are provided by the user, the indication is that the user
wants the union. That is, the output contains both stopped and
running threads.
Suppose we have an application with 5 threads, 2 of which have hit a
breakpoint. The "info threads" command in the non-stop mode gives:
(gdb) info threads
Id Target Id Frame
* 1 Thread 0x7ffff7d99740 (running)
2 Thread 0x7ffff7d98700 something () at file.c:30
3 Thread 0x7ffff7597700 (running)
4 Thread 0x7ffff6d96700 something () at file.c:30
5 Thread 0x7ffff6595700 (running)
(gdb)
Using the "-stopped" flag, we get
(gdb) info threads -stopped
Id Target Id Frame
2 Thread 0x7ffff7d98700 something () at file.c:30
4 Thread 0x7ffff6d96700 something () at file.c:30
(gdb)
Using the "-running" flag, we get
(gdb) info threads -running
Id Target Id Frame
* 1 Thread 0x7ffff7d99740 (running)
3 Thread 0x7ffff7597700 (running)
5 Thread 0x7ffff6595700 (running)
(gdb)
Using both flags prints all:
(gdb) info threads -stopped -running
Id Target Id Frame
* 1 Thread 0x7ffff7d99740 (running)
2 Thread 0x7ffff7d98700 something () at file.c:30
3 Thread 0x7ffff7597700 (running)
4 Thread 0x7ffff6d96700 something () at file.c:30
5 Thread 0x7ffff6595700 (running)
(gdb)
When combined with a thread ID, filtering applies to those threads that
are matched by the ID.
(gdb) info threads 3
Id Target Id Frame
3 Thread 0x7ffff7597700 (running)
(gdb) info threads -stopped 3
No threads matched.
(gdb)
Regression-tested on X86_64 Linux.
Reviewed-By: Eli Zaretskii <eliz@gnu.org>
Reviewed-By: Guinevere Larsen <guinevere@redhat.com>
Approved-by: Pedro Alves <pedro@palves.net
132 lines
3.8 KiB
Plaintext
132 lines
3.8 KiB
Plaintext
# Copyright (C) 2022-2025 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 the filter flags of the "info threads" command.
|
|
|
|
standard_testfile
|
|
|
|
if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
|
|
executable debug] != "" } {
|
|
return -1
|
|
}
|
|
|
|
save_vars { GDBFLAGS } {
|
|
append GDBFLAGS " -ex \"set non-stop on\""
|
|
clean_restart $binfile
|
|
}
|
|
|
|
if ![runto_main] {
|
|
return -1
|
|
}
|
|
|
|
gdb_breakpoint "stop_here"
|
|
gdb_test_multiple "continue -a&" "" {
|
|
-re "Continuing.\r\n$gdb_prompt " {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
set expected_hits 3
|
|
set fill "\[^\r\n\]+"
|
|
set num_hits 0
|
|
gdb_test_multiple "" "hit the breakpoint" -lbl {
|
|
-re "\r\nThread ${fill} hit Breakpoint ${decimal}," {
|
|
incr num_hits
|
|
if {$num_hits < $expected_hits} {
|
|
exp_continue
|
|
}
|
|
}
|
|
}
|
|
gdb_assert {$num_hits == $expected_hits} "expected threads hit the bp"
|
|
|
|
# Count the number of running/stopped threads reported
|
|
# by the "info threads" command. We also capture thread ids
|
|
# for additional tests.
|
|
set running_tid "invalid"
|
|
set stopped_tid "invalid"
|
|
|
|
set eol "(?=\r\n)"
|
|
|
|
foreach_with_prefix flag {"" "-running" "-stopped" "-running -stopped"} {
|
|
set num_running 0
|
|
set num_stopped 0
|
|
gdb_test_multiple "info threads $flag" "info threads $flag" -lbl {
|
|
-re "Id${fill}Target Id${fill}Frame${fill}${eol}" {
|
|
exp_continue
|
|
}
|
|
-re "^\r\n. (${decimal})${fill}Thread ${fill}.running.${eol}" {
|
|
incr num_running
|
|
set running_tid $expect_out(1,string)
|
|
exp_continue
|
|
}
|
|
-re "^\r\n. (${decimal})${fill}Thread ${fill}stop_here ${fill}${eol}" {
|
|
incr num_stopped
|
|
set stopped_tid $expect_out(1,string)
|
|
exp_continue
|
|
}
|
|
-re "^\r\n$gdb_prompt $" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|
|
|
|
if {$flag eq "-running"} {
|
|
gdb_assert {$num_running == 2} "num running"
|
|
gdb_assert {$num_stopped == 0} "num stopped"
|
|
} elseif {$flag eq "-stopped"} {
|
|
gdb_assert {$num_running == 0} "num running"
|
|
gdb_assert {$num_stopped == 3} "num stopped"
|
|
} else {
|
|
gdb_assert {$num_running == 2} "num running"
|
|
gdb_assert {$num_stopped == 3} "num stopped"
|
|
}
|
|
}
|
|
|
|
verbose -log "running_tid=$running_tid, stopped_tid=$stopped_tid"
|
|
|
|
# Test specifying thread ids.
|
|
gdb_test "info threads -running $stopped_tid" \
|
|
"No threads matched\\." \
|
|
"info thread -running for a stopped thread"
|
|
gdb_test "info threads -stopped $running_tid" \
|
|
"No threads matched\\." \
|
|
"info thread -stopped for a running thread"
|
|
|
|
set ws "\[ \t\]+"
|
|
foreach tid "\"$running_tid\" \"$running_tid $stopped_tid\"" {
|
|
gdb_test "info threads -running $tid" \
|
|
[multi_line \
|
|
"${ws}Id${ws}Target Id${ws}Frame${ws}" \
|
|
"${ws}${running_tid}${ws}Thread ${fill}.running."] \
|
|
"info thread -running with [llength $tid] thread ids"
|
|
}
|
|
|
|
foreach tid "\"$stopped_tid\" \"$stopped_tid $running_tid\"" {
|
|
gdb_test "info threads -stopped $tid" \
|
|
[multi_line \
|
|
"${ws}Id${ws}Target Id${ws}Frame${ws}" \
|
|
"${ws}${stopped_tid}${ws}Thread ${fill} stop_here ${fill}"] \
|
|
"info thread -stopped with [llength $tid] thread ids"
|
|
}
|
|
|
|
gdb_test_multiple "info threads -stopped -running $stopped_tid $running_tid" \
|
|
"filter flags and tids combined" {
|
|
-re -wrap ".*stop_here.*running.*" {
|
|
pass $gdb_test_name
|
|
}
|
|
-re -wrap ".*running.*stop_here.*" {
|
|
pass $gdb_test_name
|
|
}
|
|
}
|