gdb/testsuite/
[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.threads / staticthreads.exp
CommitLineData
c72b934c
AC
1# static.exp -- test script, for GDB, the GNU debugger.
2
9b254dd1 3# Copyright 2004, 2005, 2007, 2008 Free Software Foundation, Inc.
c72b934c
AC
4
5# This program is free software; you can redistribute it and/or modify
6# it under the terms of the GNU General Public License as published by
e22f8b7c 7# the Free Software Foundation; either version 3 of the License, or
c72b934c 8# (at your option) any later version.
e22f8b7c 9#
c72b934c
AC
10# This program is distributed in the hope that it will be useful,
11# but WITHOUT ANY WARRANTY; without even the implied warranty of
12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13# GNU General Public License for more details.
e22f8b7c 14#
c72b934c 15# You should have received a copy of the GNU General Public License
e22f8b7c 16# along with this program. If not, see <http://www.gnu.org/licenses/>.
c72b934c
AC
17
18# Based on manythreads written by Jeff Johnston, contributed by Red
19# Hat.
20
21if $tracelevel then {
22 strace $tracelevel
23}
24
25set prms_id 0
26set bug_id 0
27
28set testfile "staticthreads"
29set srcfile ${testfile}.c
30set binfile ${objdir}/${subdir}/${testfile}
31set static_flag "-static"
32
33if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
34 executable \
35 [list debug "incdir=${objdir}" "additional_flags=${static_flag}" \
36 ]] != "" } {
37 return -1
38}
39
40gdb_start
41gdb_reinitialize_dir $srcdir/$subdir
42gdb_load ${binfile}
43gdb_test "set print sevenbit-strings" ""
44
45
46# See if the static multi-threaded program runs.
47
48runto_main
49gdb_test "break sem_post"
50set test "Continue to main's call of sem_post"
51gdb_test_multiple "continue" "$test" {
aba471f5 52 -re "Breakpoint .*, .*sem_post .*$gdb_prompt " {
c72b934c
AC
53 pass "$test"
54 }
55 -re "Program received signal .*$gdb_prompt " {
56 kfail gdb/1328 "$test"
57 }
58}
59
60
61# See if handle SIG32 helps (a little) with a static multi-threaded
62# program.
63
1690f9cf
DJ
64set sig "SIG32"
65
66# SIGRTMIN is 37 on hppa-linux and hpux
67if [istarget hppa*-*-*] {
68 set sig "SIG37"
69}
70
c72b934c 71rerun_to_main
1690f9cf
DJ
72gdb_test "handle $sig nostop noprint pass"
73set test "Handle $sig helps"
74gdb_test "continue" " .*sem_post .*" "handle $sig helps"
c72b934c
AC
75
76
77# See if info threads produces anything approaching a thread list.
78
79set test "info threads"
80gdb_test_multiple "info threads" "$test" {
81 -re " Thread .*$gdb_prompt " {
82 pass "$test"
83 }
84 -re "$gdb_prompt " {
85 kfail gdb/1328 "$test"
86 }
87}
88
89
90# Check that the program can be quit.
91
92set test "GDB exits with static thread program"
93gdb_test_multiple "quit" "$test" {
b21991b0 94 -re "The program is running. Quit anyway \\(and kill it\\)\\? \\(y or n\\) $" {
c72b934c
AC
95 send_gdb "y\n"
96 exp_continue
97 }
98 eof {
99 pass "$test"
100 }
101}
This page took 0.446151 seconds and 4 git commands to generate.