Commit | Line | Data |
---|---|---|
32d0add0 | 1 | # Copyright (C) 1996-2015 Free Software Foundation, Inc. |
0312286c DJ |
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 | |
e22f8b7c | 5 | # the Free Software Foundation; either version 3 of the License, or |
0312286c | 6 | # (at your option) any later version. |
e22f8b7c | 7 | # |
0312286c DJ |
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. | |
e22f8b7c | 12 | # |
0312286c | 13 | # You should have received a copy of the GNU General Public License |
e22f8b7c | 14 | # along with this program. If not, see <http://www.gnu.org/licenses/>. |
0312286c | 15 | |
0312286c DJ |
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 | ||
0312286c | 22 | |
0efbbabc | 23 | standard_testfile |
0312286c DJ |
24 | |
25 | # regexp for "horizontal" text (i.e. doesn't include newline or | |
26 | # carriage return) | |
27 | set horiz "\[^\n\r\]*" | |
28 | ||
0efbbabc | 29 | if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable debug] != "" } { |
0312286c DJ |
30 | return -1 |
31 | } | |
32 | ||
33 | # Now we can proceed with the real testing. | |
34 | ||
0efbbabc | 35 | clean_restart ${binfile} |
0312286c | 36 | |
12b5d08a MS |
37 | gdb_test_no_output "set print sevenbit-strings" |
38 | #gdb_test_no_output "set print address off" | |
39 | gdb_test_no_output "set width 0" | |
0312286c DJ |
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. | |
09dd9a69 | 43 | gdb_test "shell stty intr '^C'" ".*" |
0312286c DJ |
44 | |
45 | proc test_all_threads { name kill } { | |
fda326dd | 46 | global gdb_prompt inferior_exited_re |
0312286c DJ |
47 | |
48 | set i 0 | |
49 | set j 0 | |
9db70545 | 50 | gdb_test_multiple "continue" "all threads ran once" { |
0312286c DJ |
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 | } | |
fda326dd | 67 | -re "$inferior_exited_re normally.\[\r\n\]+$gdb_prompt" { |
0312286c DJ |
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 | } | |
027c0295 | 75 | -re "Program received signal SIGTRAP.*(Thread \[-0-9a-fx\]* \\(zombie\\)|0x00000000 in ).*$gdb_prompt $" { |
f56973f8 DJ |
76 | if { $kill == 1 } { |
77 | kfail "gdb/1265" "Running threads ($name) (zombie thread)" | |
78 | } else { | |
79 | fail "Running threads ($name) (unknown output)" | |
80 | } | |
81 | } | |
0312286c DJ |
82 | } |
83 | } | |
84 | ||
a4b5b48a DE |
85 | # Record the old timeout, we need to extend it for slower tests. |
86 | set oldtimeout $timeout | |
87 | ||
0312286c DJ |
88 | runto_main |
89 | gdb_test "break thread_function" "Breakpoint \[0-9\]+ at 0x\[0-9a-f\]+: file .*print-threads.c, line \[0-9\]*\\." | |
12b5d08a | 90 | gdb_test_no_output "set var slow = 0" |
0312286c DJ |
91 | test_all_threads "fast" 0 |
92 | ||
93 | runto_main | |
94 | gdb_test "break thread_function" "Breakpoint \[0-9\]+ at 0x\[0-9a-f\]+: file .*print-threads.c, line \[0-9\]*\\." "break thread_function (2)" | |
12b5d08a | 95 | gdb_test_no_output "set var slow = 1" |
a4b5b48a DE |
96 | # Extend the timeout for slower tests. |
97 | set timeout [expr $oldtimeout + 120] | |
0312286c | 98 | test_all_threads "slow" 0 |
a4b5b48a | 99 | set timeout $oldtimeout |
0312286c DJ |
100 | |
101 | runto_main | |
102 | gdb_test "break thread_function" "Breakpoint \[0-9\]+ at 0x\[0-9a-f\]+: file .*print-threads.c, line \[0-9\]*\\." "break thread_function (3)" | |
12b5d08a | 103 | gdb_test_no_output "set var slow = 1" "set var slow = 1 (2)" |
6afcfa39 | 104 | gdb_breakpoint "kill" |
a4b5b48a DE |
105 | # Extend the timeout for slower tests. |
106 | set timeout [expr $oldtimeout + 120] | |
0312286c | 107 | test_all_threads "slow with kill breakpoint" 1 |
a4b5b48a | 108 | set timeout $oldtimeout |
0312286c DJ |
109 | |
110 | return 0 |