OLD | NEW |
1 # Copyright (C) 2007, 2009-2012 Free Software Foundation, Inc. | 1 # Copyright (C) 2007, 2009-2012 Free Software Foundation, Inc. |
2 | 2 |
3 # This program is free software; you can redistribute it and/or modify | 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 | 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 | 5 # the Free Software Foundation; either version 3 of the License, or |
6 # (at your option) any later version. | 6 # (at your option) any later version. |
7 # | 7 # |
8 # This program is distributed in the hope that it will be useful, | 8 # This program is distributed in the hope that it will be useful, |
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
(...skipping 15 matching lines...) Expand all Loading... |
26 if ![istarget *-*-linux*] then { | 26 if ![istarget *-*-linux*] then { |
27 return | 27 return |
28 } | 28 } |
29 | 29 |
30 # When using gdbserver, even on Linux, we don't get notifications | 30 # When using gdbserver, even on Linux, we don't get notifications |
31 # about new threads. This is expected, so don't test for that. | 31 # about new threads. This is expected, so don't test for that. |
32 if [is_remote target] then { | 32 if [is_remote target] then { |
33 return | 33 return |
34 } | 34 } |
35 | 35 |
36 if $tracelevel then { | |
37 strace $tracelevel | |
38 } | |
39 | 36 |
| 37 standard_testfile |
40 | 38 |
41 set testfile "thread_events" | 39 if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executab
le debug] != "" } { |
42 set srcfile ${testfile}.c | |
43 set binfile ${objdir}/${subdir}/${testfile} | |
44 | |
45 if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executab
le [list debug "incdir=${objdir}"]] != "" } { | |
46 return -1 | 40 return -1 |
47 } | 41 } |
48 | 42 |
49 proc gdb_test_thread_start {messages_enabled command pattern message} { | 43 proc gdb_test_thread_start {messages_enabled command pattern message} { |
50 global gdb_prompt | 44 global gdb_prompt |
51 | 45 |
52 if { $messages_enabled } { | 46 if { $messages_enabled } { |
53 set events_expected 1 | 47 set events_expected 1 |
54 } else { | 48 } else { |
55 set events_expected 0 | 49 set events_expected 0 |
(...skipping 85 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
141 ".*Breakpoint .*,.*after_join_func.*at.*$srcfile:.*" \ | 135 ".*Breakpoint .*,.*after_join_func.*at.*$srcfile:.*" \ |
142 "continue to after_join_func $enabled_string" | 136 "continue to after_join_func $enabled_string" |
143 | 137 |
144 delete_breakpoints | 138 delete_breakpoints |
145 | 139 |
146 gdb_exit | 140 gdb_exit |
147 } | 141 } |
148 | 142 |
149 test_thread_messages 0 | 143 test_thread_messages 0 |
150 test_thread_messages 1 | 144 test_thread_messages 1 |
OLD | NEW |