1# Copyright 2015-2021 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.
6#
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.
11#
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/>.
14
15load_lib "trace-support.exp"
16
17if {[skip_shlib_tests]} {
18    return 0
19}
20
21standard_testfile
22set executable $testfile
23set expfile $testfile.exp
24
25# make check RUNTESTFLAGS='gdb.trace/ftrace-lock.exp NUM_THREADS=2'
26if ![info exists NUM_THREADS] {
27    set NUM_THREADS 2
28}
29
30# Some targets have leading underscores on assembly symbols.
31set additional_flags [gdb_target_symbol_prefix_flags]
32set options [list debug [gdb_target_symbol_prefix_flags] \
33	     additional_flags=-DNUM_THREADS=$NUM_THREADS]
34
35# Check that the target supports trace.
36if ![gdb_trace_common_supports_arch] {
37    unsupported "no trace-common.h support for arch"
38    return -1
39}
40if { [gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
41    untested "failed to compile"
42    return -1
43}
44
45clean_restart ${testfile}
46
47if ![runto_main] {
48    fail "can't run to main to check for trace support"
49    return -1
50}
51
52if ![gdb_target_supports_trace] {
53    unsupported "target does not support trace"
54    return -1
55}
56
57# Compile the test case with the in-process agent library.
58set libipa [get_in_proc_agent]
59set remote_libipa [gdb_load_shlib $libipa]
60
61lappend options shlib=$libipa
62
63if { [gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
64    untested "failed to compile with in-process agent library"
65    return -1
66}
67
68clean_restart ${executable}
69
70if ![runto_main] {
71    fail "can't run to main to check for trace support"
72    return -1
73}
74
75if { [gdb_test "info sharedlibrary" ".*${remote_libipa}.*" "IPA loaded"] != 0 } {
76    untested "could not find IPA lib loaded"
77    return 1
78}
79
80gdb_breakpoint "end" qualified
81gdb_breakpoint "fail" qualified
82
83gdb_test "ftrace set_point" "Fast tracepoint .*" \
84    "fast tracepoint at a long insn"
85
86gdb_test "tstart" ""
87
88# If NUM_THREADS is high then this test case may timeout.  Increase the
89# timeout temporarily.
90with_timeout_factor $NUM_THREADS {
91    # If the fail function is hit, then the testcase will fail.
92    gdb_test "continue" ".*Breakpoint \[0-9\]+, end \(\).*" \
93	"do not hit the fail function"
94}
95
96gdb_test "tstop" ""
97