mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-27 04:52:05 +08:00
4a94e36819
This commit brings all the changes made by running gdb/copyright.py as per GDB's Start of New Year Procedure. For the avoidance of doubt, all changes in this commits were performed by the script.
283 lines
7.5 KiB
Plaintext
283 lines
7.5 KiB
Plaintext
# Copyright 2011-2022 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/>.
|
|
|
|
# Please email any bugs, comments, and/or additions to this file to:
|
|
# bug-gdb@gnu.org
|
|
|
|
standard_testfile linux-dp.c
|
|
if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != ""} {
|
|
return -1
|
|
}
|
|
|
|
clean_restart ${binfile}
|
|
gdb_test_no_output "set print sevenbit-strings"
|
|
runto_main
|
|
|
|
# Run until there are some threads.
|
|
gdb_breakpoint [gdb_get_line_number "linuxthreads.exp: info threads 2"]
|
|
gdb_continue_to_breakpoint "main thread's sleep"
|
|
|
|
# Create thread names.
|
|
gdb_test "thread apply 1 thread name threadname_1" \
|
|
"Thread 1 .*" \
|
|
"name thread 1"
|
|
|
|
gdb_test "thread apply 2 thread name threadname_2" \
|
|
"Thread 2 .*" \
|
|
"name thread 2"
|
|
|
|
gdb_test "thread apply 3 thread name threadname_3" \
|
|
"Thread 3 .*" \
|
|
"name thread 3"
|
|
|
|
gdb_test "thread apply 4 thread name threadname_4" \
|
|
"Thread 4 .*" \
|
|
"name thread 4"
|
|
|
|
gdb_test "thread apply 5 thread name threadname_5" \
|
|
"Thread 5 .*" \
|
|
"name thread 5"
|
|
|
|
gdb_test "thread apply 6 thread name threadname_6" \
|
|
"Thread 6 .*" \
|
|
"name thread 6"
|
|
|
|
# Collect thread ids, if any.
|
|
|
|
gdb_test_multiple "info threads" "collect thread id" {
|
|
-re ". (\[0-9\]+) \[^\r\n\]*\[Tt\]hread (\[0-9a-fA-Fx\]+)\[^\r\n\]* \"threadname_\[0-9\]+\" \[^\r\n\]*" {
|
|
set thr_num $expect_out(1,string)
|
|
set thread$thr_num $expect_out(2,string)
|
|
exp_continue
|
|
}
|
|
-re ".*$gdb_prompt $" {
|
|
pass "collect thread id"
|
|
}
|
|
}
|
|
|
|
if { [info exists thread6] } then {
|
|
gdb_test "echo $thread6\\n" "$thread6" "got thread ids"
|
|
}
|
|
|
|
# Collect process ids, if any.
|
|
|
|
gdb_test_multiple "info threads" "collect thread id" {
|
|
-re ". (\[0-9\]+) \[^\r\n\]*\[Pp\]rocess (\[0-9a-fA-Fx\]+)\[^\r\n\]* \"threadname_\[0-9\]+\" \[^\r\n\]*" {
|
|
set thr_num $expect_out(1,string)
|
|
set process$thr_num $expect_out(2,string)
|
|
exp_continue
|
|
}
|
|
-re ".*$gdb_prompt $" {
|
|
pass "collect process id"
|
|
}
|
|
}
|
|
|
|
if { [info exists process6] } then {
|
|
gdb_test "echo $process6\\n" "$process6" "got process ids"
|
|
}
|
|
|
|
# Collect lwp ids, if any.
|
|
|
|
gdb_test_multiple "info threads" "collect thread id" {
|
|
-re ". (\[0-9\]+) \[^\r\n\]*LWP (\[0-9a-fA-Fx\]+)\[^\r\n\]* \"threadname_\[0-9\]+\" \[^\r\n\]*" {
|
|
set thr_num $expect_out(1,string)
|
|
set lwp$thr_num $expect_out(2,string)
|
|
exp_continue
|
|
}
|
|
-re ".*$gdb_prompt $" {
|
|
pass "collect lwp id"
|
|
}
|
|
}
|
|
|
|
if { [info exists lwp6] } then {
|
|
gdb_test "echo $lwp6\\n" "$lwp6" "got lwp ids"
|
|
}
|
|
|
|
#
|
|
# Now: test 'thread find' with names.
|
|
#
|
|
|
|
gdb_test "thread find threadname_6" \
|
|
"Thread 6 has name 'threadname_6'" "find thread name 6"
|
|
gdb_test "thread find threadname_5" \
|
|
"Thread 5 has name 'threadname_5'" "find thread name 5"
|
|
gdb_test "thread find threadname_4" \
|
|
"Thread 4 has name 'threadname_4'" "find thread name 4"
|
|
gdb_test "thread find threadname_3" \
|
|
"Thread 3 has name 'threadname_3'" "find thread name 3"
|
|
gdb_test "thread find threadname_2" \
|
|
"Thread 2 has name 'threadname_2'" "find thread name 2"
|
|
gdb_test "thread find threadname_1" \
|
|
"Thread 1 has name 'threadname_1'" "find thread name 1"
|
|
|
|
#
|
|
# Test 'thread find' with thread ids, if any.
|
|
#
|
|
|
|
if { [info exists thread6] } then {
|
|
gdb_test "thread find $thread6" \
|
|
"Thread 6 has .*$thread6.*" "find thread id 6"
|
|
gdb_test "thread find $thread5" \
|
|
"Thread 5 has .*$thread5.*" "find thread id 5"
|
|
gdb_test "thread find $thread4" \
|
|
"Thread 4 has .*$thread4.*" "find thread id 4"
|
|
gdb_test "thread find $thread3" \
|
|
"Thread 3 has .*$thread3.*" "find thread id 3"
|
|
gdb_test "thread find $thread2" \
|
|
"Thread 2 has .*$thread2.*" "find thread id 2"
|
|
gdb_test "thread find $thread1" \
|
|
"Thread 1 has .*$thread1.*" "find thread id 1"
|
|
}
|
|
|
|
#
|
|
# Test 'thread find' with process ids, if any.
|
|
#
|
|
|
|
if { [info exists process6] } then {
|
|
gdb_test "thread find $process6" \
|
|
"Thread 6 has .*$process6.*" "find process id 6"
|
|
gdb_test "thread find $process5" \
|
|
"Thread 5 has .*$process5.*" "find process id 5"
|
|
gdb_test "thread find $process4" \
|
|
"Thread 4 has .*$process4.*" "find process id 4"
|
|
gdb_test "thread find $process3" \
|
|
"Thread 3 has .*$process3.*" "find process id 3"
|
|
gdb_test "thread find $process2" \
|
|
"Thread 2 has .*$process2.*" "find process id 2"
|
|
gdb_test "thread find $process1" \
|
|
"Thread 1 has .*$process1.*" "find process id 1"
|
|
}
|
|
|
|
#
|
|
# Test 'thread find' with lwp ids, if any.
|
|
#
|
|
|
|
if { [info exists lwp6] } then {
|
|
gdb_test "thread find $lwp6" \
|
|
"Thread 6 has .*$lwp6.*" "find lwp id 6"
|
|
gdb_test "thread find $lwp5" \
|
|
"Thread 5 has .*$lwp5.*" "find lwp id 5"
|
|
gdb_test "thread find $lwp4" \
|
|
"Thread 4 has .*$lwp4.*" "find lwp id 4"
|
|
gdb_test "thread find $lwp3" \
|
|
"Thread 3 has .*$lwp3.*" "find lwp id 3"
|
|
gdb_test "thread find $lwp2" \
|
|
"Thread 2 has .*$lwp2.*" "find lwp id 2"
|
|
gdb_test "thread find $lwp1" \
|
|
"Thread 1 has .*$lwp1.*" "find lwp id 1"
|
|
}
|
|
|
|
# Test no match.
|
|
|
|
gdb_test "thread find foobarbaz" "No threads match .*" "no thread"
|
|
|
|
#
|
|
# Test regular expression
|
|
#
|
|
|
|
for {set i 1} {$i <= 6} {incr i} {
|
|
set see$i 0
|
|
}
|
|
gdb_test_multiple "thread find threadname_\[345\]" "test regular exp" {
|
|
-re "Thread (\[0-9\]+) has name \[^\r\n\]*" {
|
|
set thr_num $expect_out(1,string)
|
|
set see$thr_num 1
|
|
exp_continue
|
|
}
|
|
-re ".*$gdb_prompt $" {
|
|
if { $see3 && $see4 && $see5 && !$see1 && !$see2 && !$see6 } then {
|
|
pass "test regular exp"
|
|
} else {
|
|
fail "test regular exp"
|
|
}
|
|
}
|
|
}
|
|
|
|
#
|
|
# Test info threads on a subset of threads
|
|
#
|
|
|
|
for {set i 1} {$i <= 6} {incr i} {
|
|
set see$i 0
|
|
}
|
|
gdb_test_multiple "info threads 2 4 6" "info threads 2 4 6" {
|
|
-re ". (\[0-9\]+) \[^\r\n\]*\"threadname_\[0-9\]+\" \[^\r\n\]*" {
|
|
set thr_num $expect_out(1,string)
|
|
set see$thr_num 1
|
|
exp_continue
|
|
}
|
|
-re "$gdb_prompt $" {
|
|
if { $see2 && $see4 && $see6 && !$see1 && !$see3 && !$see5 } then {
|
|
pass "info threads 2 4 6"
|
|
} else {
|
|
fail "info threads 2 4 6"
|
|
}
|
|
}
|
|
}
|
|
|
|
#
|
|
# Test info threads on a range
|
|
#
|
|
|
|
for {set i 1} {$i <= 6} {incr i} {
|
|
set see$i 0
|
|
}
|
|
gdb_test_multiple "info threads 3-5" "info threads 3-5" {
|
|
-re ". (\[0-9\]+) \[^\r\n\]*\"threadname_\[0-9\]+\" \[^\r\n\]*" {
|
|
set thr_num $expect_out(1,string)
|
|
set see$thr_num 1
|
|
exp_continue
|
|
}
|
|
-re "$gdb_prompt $" {
|
|
if { $see3 && $see4 && $see5 && !$see1 && !$see2 && !$see6 } then {
|
|
pass "info threads 3-5"
|
|
} else {
|
|
fail "info threads 3-5"
|
|
}
|
|
}
|
|
}
|
|
|
|
# Test inverted range
|
|
|
|
gdb_test "info threads 5-3" "inverted range" "test inverted range"
|
|
|
|
# Test degenerate range
|
|
|
|
for {set i 1} {$i <= 6} {incr i} {
|
|
set see$i 0
|
|
}
|
|
gdb_test_multiple "info threads 3-3" "info threads 3-3" {
|
|
-re ". (\[0-9\]+) .*\"threadname_\[0-9\]+\" \[^\r\n\]*" {
|
|
set thr_num $expect_out(1,string)
|
|
set see$thr_num 1
|
|
exp_continue
|
|
}
|
|
-re ".*$gdb_prompt $" {
|
|
if { $see3 && !$see1 && !$see2 && !$see4 && !$see5 && !$see6 } then {
|
|
pass "info threads 3-3"
|
|
} else {
|
|
fail "info threads 3-3"
|
|
}
|
|
}
|
|
}
|
|
|
|
# Test bad input
|
|
|
|
gdb_test "info thread foo" \
|
|
"Invalid thread ID: foo"
|
|
|
|
gdb_test "info thread foo -1" \
|
|
"Invalid thread ID: foo -1"
|