1# Copyright (C) 2013-2021 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 test case is to test the performance of GDB doing stack
17# backtrace.
18# There is one parameter in this test:
19#  - BACKTRACE_DEPTH is the number of innermost frames that command
20#    'bt' prints.
21
22load_lib perftest.exp
23
24if [skip_perf_tests] {
25    return 0
26}
27
28standard_testfile .c
29set executable $testfile
30set expfile $testfile.exp
31
32# make check-perf RUNTESTFLAGS='backtrace.exp BACKTRACE_DEPTH=1024'
33if ![info exists BACKTRACE_DEPTH] {
34    set BACKTRACE_DEPTH 64
35}
36
37PerfTest::assemble {
38    global BACKTRACE_DEPTH
39    global srcdir subdir srcfile
40
41    set compile_flags {debug}
42    lappend compile_flags "additional_flags=-DBACKTRACE_DEPTH=${BACKTRACE_DEPTH}"
43
44    if { [gdb_compile "$srcdir/$subdir/$srcfile" ${binfile} executable $compile_flags] != ""} {
45	return -1
46    }
47
48    return 0
49} {
50    global binfile
51
52    clean_restart $binfile
53
54    if ![runto_main] {
55	fail "can't run to main"
56	return -1
57    }
58
59    gdb_breakpoint "fun2"
60    gdb_continue_to_breakpoint "fun2"
61
62    return 0
63} {
64    global BACKTRACE_DEPTH
65
66    gdb_test "python BackTrace\($BACKTRACE_DEPTH\).run()"
67
68    return 0
69}
70