-# Copyright 1999, 2001, 2002, 2003 Free Software Foundation, Inc.
+# Copyright 1999-2019 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 2 of the License, or
+# 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, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+# 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
### killing and restarting
### quitting gracefully
-if $tracelevel then {
- strace $tracelevel
-}
-
-set prms_id 0
-set bug_id 0
# This only works with Linux configurations.
-if ![istarget *-*-linux-gnu] then {
+if ![istarget *-*-linux-gnu*] then {
return
}
-set testfile "linux-dp"
-set srcfile ${testfile}.c
-set binfile ${objdir}/${subdir}/${testfile}
-if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug libs=-lpthread}] != ""} {
+standard_testfile
+if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != ""} {
return -1
}
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-gdb_load ${binfile}
-send_gdb "set print sevenbit-strings\n" ; gdb_expect -re "$gdb_prompt $"
+clean_restart ${binfile}
+gdb_test_no_output "set print sevenbit-strings"
runto_main
# There should be no threads initially.
-gdb_test "info threads" "" "info threads 1"
+gdb_test "info threads" ".*" "info threads 1"
# Try stepping over the thread creation function.
gdb_breakpoint [gdb_get_line_number "linuxthreads.exp: create philosopher"]
set expect_manager -1
for {set i 0} {$i < 5} {incr i} {
gdb_continue_to_breakpoint "about to create philosopher: $i"
- send_gdb "next\n"
- gdb_expect {
- -re "\\\[New .*\\\].*\\\[New .*\\\].*$gdb_prompt $" {
- # Two threads are created the first time in LinuxThreads,
- # where the second is the manager thread. In NPTL, there is none.
- if {$i == 0} {
- set expect_manager 1
- }
- pass "create philosopher: $i"
+ set threads_before {}
+ gdb_test_multiple "info threads" "info threads before: $i" {
+ -re "info threads\r\n" {
+ exp_continue
}
- -re "\\\[New .*\\\].*$gdb_prompt $" {
- if {$i == 0} {
- set expect_manager 0
- }
- pass "create philosopher: $i"
+ -re "^ *Id.*Frame *\[\r\n\]+" {
+ exp_continue
+ }
+ -re "^. +(\[0-9\]+ *Thread \[-0-9a-fx.\]+) \[^\n\]*\n" {
+ verbose -log "found thread $expect_out(1,string)" 2
+ lappend threads_before $expect_out(1,string)
+ exp_continue
+ }
+ -re "^\[^\n\]*\n" {
+ verbose -log "skipping line" 2
+ exp_continue -continue_timer
+ }
+ -re "^$gdb_prompt $" {
+ }
+ }
+ set threads_created 0
+ gdb_test_multiple "next" "create philosopher: $i" {
+ -re "^next\r\n" {
+ exp_continue
}
- -re "Program received signal.*(Unknown signal|SIGUSR|Real-time event).*$gdb_prompt $" {
+ -re "^ *\[_!\] \[0-9\]* \[_!\]\r\n" {
+ # Ignore program output.
+ exp_continue -continue_timer
+ }
+ -re "^\\\[New \[^\]\n\]+\\\]\[^\n\]+\n" {
+ incr threads_created
+ exp_continue
+ }
+ -re "^189\[^\n\]+\n" {
+ exp_continue
+ }
+ -re "^$gdb_prompt $" {
+ }
+ -re " received signal.*(Unknown signal|SIGUSR|Real-time event).*$gdb_prompt $" {
# It would be nice if we could catch the message that GDB prints
# when it first notices that the thread library doesn't support
# debugging, or if we could explicitly ask GDB somehow.
- unsupported "This GDB does not support threads on this system."
+ unsupported "this GDB does not support threads on this system."
return -1
}
-re "$gdb_prompt $" {
- # We used to fail here, but not all targets announce new
- # threads as they are created. For example, the GDB
- # remote protocol target only finds out about threads when
- # they actually report some event like a breakpoint hit,
- # or when the user types 'info threads'.
- unresolved "create philosopher: $i"
}
- timeout {
- fail "(timeout) create philosopher: $i"
+ }
+ if { $threads_created == 1 } {
+ if { $expect_manager < 0 } {
+ set expect_manager 0
+ }
+ pass "create philosopher: $i"
+ } elseif { !$i && $threads_created == 2 } {
+ # Two threads are created the first time in LinuxThreads,
+ # where the second is the manager thread. In NPTL, there is none.
+ set expect_manager 1
+ pass "create philosopher: $i"
+ } else {
+ fail "create philosopher: $i"
+ }
+
+ set threads_after {}
+ gdb_test_multiple "info threads" "info threads after: $i" {
+ -re "info threads\r\n" {
+ exp_continue
+ }
+ -re "^ *Id.*Frame *\[\r\n\]+" {
+ exp_continue
+ }
+ -re "^. +(\[0-9\]+ *Thread \[-0-9a-fx.\]+) \[^\n\]*\n" {
+ set name $expect_out(1,string)
+ for {set j 0} {$j != [llength $threads_before] } {incr j} {
+ if {$name == [lindex $threads_before $j]} {
+ set threads_before [lreplace $threads_before $j $j]
+ set name ""
+ break
+ }
+ }
+ if { $name != "" } {
+ lappend threads_after $name
+ }
+ exp_continue
+ }
+ -re "^\[^\n\]*\n" {
+ verbose -log "skipping line" 2
+ exp_continue -continue_timer
+ }
+ -re "^$gdb_prompt $" {
+ if { [llength $threads_before] != 0 } {
+ fail "info threads after: $i"
+ } elseif { !$i && [llength $threads_after] == 2 } {
+ set expect_manager 1
+ pass "info threads after: $i"
+ } elseif { [llength $threads_after] == 1 } {
+ if { $expect_manager < 0 } {
+ set expect_manager 0
+ }
+ pass "info threads after: $i"
+ } else {
+ fail "info threads after: $i"
+ }
}
}
}
# 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"
-set info_threads_ptn ""
-for {set i $nthreads} {$i > 0} {incr i -1} {
- append info_threads_ptn "$i Thread .*"
+set info_threads_ptn ".*"
+for {set i 1} {$i < $nthreads} {incr i} {
+ append info_threads_ptn "$i *Thread .*"
}
append info_threads_ptn "\[\r\n\]+$gdb_prompt $"
-set info_threads_manager_ptn "[expr $nthreads + 1] Thread .*$info_threads_ptn"
+set info_threads_manager_ptn "[expr $nthreads + 1] *Thread .*$info_threads_ptn"
gdb_test_multiple "info threads" "info threads 2" {
-re "$info_threads_manager_ptn" {
gdb_continue_to_breakpoint "thread 5's print"
# When there is no debugging info available for the thread library,
# the backtrace entry for philosopher's caller looks like:
-# #1 0x4001c548 in pthread_create () from /lib/libpthread.so.0
+# #2 0x4001c548 in pthread_create () from /lib/libpthread.so.0
# If you do have debug info, the output obviously depends more on the
# exact library in use; under NPTL, you get:
# #2 0x0012b7fc in start_thread (arg=0x21) at pthread_create.c:264
-gdb_test "where" "print_philosopher.*philosopher.* \(from .*libpthread\|at pthread_create\).*" \
+gdb_test "where" "print_philosopher.*philosopher.* \(from .*libpthread\|at pthread_create\|in pthread_create\).*" \
"first thread-specific breakpoint hit"
# Make sure it's catching the right thread. Try hitting the
set only_five 1
for {set i 0} {$only_five > 0 && $i < 10} {incr i} {
gdb_continue_to_breakpoint "thread 5's print, pass: $i"
- send_gdb "info threads\n"
- gdb_expect {
- -re "\\* 5 Thread .* print_philosopher .*\r\n$gdb_prompt $" {
+ gdb_test_multiple "info threads" "" {
+ -re "\[*\] 5 *Thread .* +print_philosopher .*\r\n$gdb_prompt $" {
# Okay this time.
}
-re ".*$gdb_prompt $" {
proc select_thread {thread} {
global gdb_prompt
- send_gdb "thread $thread\n"
- gdb_expect {
- -re "\\\[Switching to thread .*\\\].*\r\n$gdb_prompt $" {
- pass "selected thread: $thread"
- }
- -re "$gdb_prompt $" {
- fail "selected thread: $thread"
- }
- timeout {
- fail "selected thread: $thread (timeout)"
- }
- }
+ gdb_test "thread $thread" \
+ "\\\[Switching to thread .*\\\].*" \
+ "selected thread: $thread"
}
### Select THREAD, check for a plausible backtrace, and make sure
set interesting 0
select_thread $thread
- send_gdb "where\n"
- gdb_expect {
+ gdb_test_multiple "where" "$name" {
-re ".* in philosopher \\(data=(0x\[0-9a-f\]+).*\r\n$gdb_prompt $" {
set data $expect_out(1,string)
if {[info exists seen($data)]} {
## be an xfail.
pass $name
}
- -re "$gdb_prompt $" {
- fail $name
- }
- timeout {
- fail "$name (timeout)"
- }
}
return $interesting
}
set any_interesting 0
+catch {unset seen}
array set seen {}
-unset seen
for {set i 1} {$i <= $nthreads} {incr i} {
if [check_philosopher_stack $i seen] {
set any_interesting 1
}
}
+unset seen
if {$any_interesting} {
pass "found an interesting thread"
projects / deliverable / binutils-gdb.git / blobdiff