1 # Copyright 2015-2016 Free Software Foundation, Inc.
2 # This program is free software; you can redistribute it and/or modify
3 # it under the terms of the GNU General Public License as published by
4 # the Free Software Foundation; either version 3 of the License, or
5 # (at your option) any later version.
7 # This program is distributed in the hope that it will be useful,
8 # but WITHOUT ANY WARRANTY; without even the implied warranty of
9 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10 # GNU General Public License for more details.
12 # You should have received a copy of the GNU General Public License
13 # along with this program. If not, see <http://www.gnu.org/licenses/>.
15 load_lib "trace-support.exp"
18 set executable $testfile
19 set expfile $testfile.exp
21 # make check RUNTESTFLAGS='gdb.trace/ftrace-lock.exp NUM_THREADS=2'
22 if ![info exists NUM_THREADS] {
26 # Some targets have leading underscores on assembly symbols.
27 set additional_flags [gdb_target_symbol_prefix_flags]
28 set options [list debug [gdb_target_symbol_prefix_flags] \
29 additional_flags=-DNUM_THREADS=$NUM_THREADS]
31 # Check that the target supports trace.
32 if { [gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
33 untested "Couldn't compile test program"
37 clean_restart ${testfile}
40 fail "Can't run to main to check for trace support"
44 if ![gdb_target_supports_trace] {
45 unsupported "target does not support trace"
49 # Compile the test case with the in-process agent library.
50 set libipa [get_in_proc_agent]
51 gdb_load_shlibs $libipa
53 lappend options shlib=$libipa
55 if { [gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
56 untested "Couldn't compile test program with in-process agent library"
60 clean_restart ${executable}
63 fail "Can't run to main to check for trace support"
67 if { [gdb_test "info sharedlibrary" ".*${libipa}.*" "IPA loaded"] != 0 } {
68 untested "Could not find IPA lib loaded"
72 gdb_test "break end" ""
73 gdb_test "break fail" ""
75 gdb_test "ftrace set_point" "Fast tracepoint .*" \
76 "fast tracepoint at a long insn"
80 # If NUM_THREADS is high then this test case may timeout. Increase the
81 # timeout temporarily.
82 with_timeout_factor $NUM_THREADS {
83 # If the fail function is hit, then the testcase will fail.
84 gdb_test "continue" ".*Breakpoint \[0-9\]+, end \(\).*" \
85 "do not hit the fail function"