1# Copyright (C) 1996-2017 Free Software Foundation, Inc. 2 3# This program is free software; you can redistribute it and/or modify 4# it under the terms of the GNU General Public License as published by 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16# This file was written by Daniel Jacobowitz <drow@mvista.com> 17# (parts based on pthreads.exp by Fred Fish (fnf@cygnus.com). 18# 19# It tests miscellaneous actions with multiple threads, including 20# handling for thread exit. 21 22 23standard_testfile 24 25# regexp for "horizontal" text (i.e. doesn't include newline or 26# carriage return) 27set horiz "\[^\n\r\]*" 28 29if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable debug] != "" } { 30 return -1 31} 32 33# Now we can proceed with the real testing. 34 35clean_restart ${binfile} 36 37gdb_test_no_output "set print sevenbit-strings" 38#gdb_test_no_output "set print address off" 39gdb_test_no_output "set width 0" 40 41# We'll need this when we send_gdb a ^C to GDB. Need to do it before we 42# run the program and gdb starts saving and restoring tty states. 43gdb_test "shell stty intr '^C'" ".*" 44 45proc test_all_threads { name kill } { 46 global gdb_prompt inferior_exited_re 47 48 set i 0 49 set j 0 50 gdb_test_multiple "continue" "all threads ran once" { 51 -re "Breakpoint \[0-9\]+, thread_function \\(arg=.*\\) at .*print-threads.c:\[0-9\]+.*$gdb_prompt" { 52 set i [expr $i + 1] 53 pass "hit thread_function breakpoint, $i ($name)" 54 send_gdb "continue\n" 55 exp_continue 56 } 57 -re "Breakpoint \[0-9\]+, .* kill \\(.*\\) .*$gdb_prompt" { 58 set j [expr $j + 1] 59 if { $kill == 1 } { 60 pass "hit kill breakpoint, $j ($name)" 61 } else { 62 fail "hit kill breakpoint, $j ($name) (unexpected)" 63 } 64 send_gdb "continue\n" 65 exp_continue 66 } 67 -re "$inferior_exited_re normally.\[\r\n\]+$gdb_prompt" { 68 pass "program exited normally" 69 if {$i == 5} { 70 pass "all threads ran once ($name)" 71 } else { 72 fail "all threads ran once ($name) (total $i threads ran)" 73 } 74 } 75 -re " received signal SIGTRAP.*(Thread \[-0-9a-fx\]* \\(zombie\\)|0x00000000 in ).*$gdb_prompt $" { 76 if { $kill == 1 } { 77 kfail "gdb/1265" "Running threads ($name) (zombie thread)" 78 } else { 79 fail "running threads ($name) (unknown output)" 80 } 81 } 82 } 83} 84 85# Record the old timeout, we need to extend it for slower tests. 86set oldtimeout $timeout 87 88runto_main 89gdb_test "break thread_function" "Breakpoint \[0-9\]+ at 0x\[0-9a-f\]+: file .*print-threads.c, line \[0-9\]*\\." 90gdb_test_no_output "set var slow = 0" 91test_all_threads "fast" 0 92 93runto_main 94gdb_test "break thread_function" "Breakpoint \[0-9\]+ at 0x\[0-9a-f\]+: file .*print-threads.c, line \[0-9\]*\\." "break thread_function (2)" 95gdb_test_no_output "set var slow = 1" 96# Extend the timeout for slower tests. 97set timeout [expr $oldtimeout + 120] 98test_all_threads "slow" 0 99set timeout $oldtimeout 100 101runto_main 102gdb_test "break thread_function" "Breakpoint \[0-9\]+ at 0x\[0-9a-f\]+: file .*print-threads.c, line \[0-9\]*\\." "break thread_function (3)" 103gdb_test_no_output "set var slow = 1" "set var slow = 1 (2)" 104gdb_breakpoint "kill" 105# Extend the timeout for slower tests. 106set timeout [expr $oldtimeout + 120] 107test_all_threads "slow with kill breakpoint" 1 108set timeout $oldtimeout 109 110return 0 111