Updated copyright notices for most files.
[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.threads / thread_check.exp
1 # Copyright (C) 2004, 2007, 2008, 2009 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 Manoj Iyer. (manjo@austin.ibm.com)
17 # Test break points and single step on thread functions.
18 #
19 # Test Purpose:
20 # - Test that breakpoints, continue in a threaded application works.
21 # On powerpc64-unknown-linux-gnu system, running kernel version
22 # 2.6.5-7.71-pseries64 this test is known to fail due to kernel bug
23 # in ptrace system call.
24 #
25 # Test Strategy:
26 # - thread_check.c creates 2 threads
27 # - start gdb
28 # - create 2 breakpoints #1 main() #2 tf() (the thread function)
29 # - run gdb till #1 main() breakpoint is reached
30 # - continue to breakpoint #2 tf()
31 # - delete all breakpoints
32 # - exit gdb.
33
34 if $tracelevel then {
35 strace $tracelevel
36 }
37
38 set prms_id 0
39 set bug_id 0
40
41 set testfile "thread_check"
42 set srcfile ${testfile}.c
43 set binfile ${objdir}/${subdir}/${testfile}
44
45 if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug "incdir=${objdir}"]] != "" } {
46 return -1
47 }
48
49
50 gdb_start
51 gdb_reinitialize_dir $srcdir/$subdir
52 gdb_load ${binfile}
53
54 if ![runto_main] then {
55 fail "Can't run to main"
56 return 1;
57 }
58
59
60 #
61 # set breakpoint at thread fucntion tf
62 #
63 gdb_test "break tf" \
64 "Breakpoint.*at.* file .*$srcfile, line.*" \
65 "breakpoint at tf"
66
67
68 #
69 #
70 # continue to tf() breakpoint #2
71 #
72 gdb_test "continue" \
73 ".*Breakpoint 2,.*tf.*at.*$srcfile:.*" \
74 "continue to tf"
75
76 #
77 # backtrace from thread function.
78 #
79 gdb_test "backtrace" \
80 "#0 .*tf .*at .*$srcfile:.*" \
81 "backtrace from thread function"
82
83
84 #
85 # delete all breakpoints
86 #
87 delete_breakpoints
88
89 #
90 # exit gdb
91 #
92 gdb_exit
This page took 0.035494 seconds and 5 git commands to generate.