1 # Copyright
(C
) 2013-2024 Free Software Foundation
, Inc.
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.
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.
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
/>.
16 # This test case is to test the performance of GDB doing stack
18 # There is one parameter in this test
:
19 #
- BACKTRACE_DEPTH is the number of innermost frames that command
24 require allow_perf_tests
27 set executable $testfile
28 set expfile $testfile.exp
30 # make check
-perf RUNTESTFLAGS
='backtrace.exp BACKTRACE_DEPTH=1024'
31 if ![info exists BACKTRACE_DEPTH
] {
32 set BACKTRACE_DEPTH
64
36 global BACKTRACE_DEPTH
37 global srcdir subdir srcfile
39 set compile_flags
{debug
}
40 lappend compile_flags
"additional_flags=-DBACKTRACE_DEPTH=${BACKTRACE_DEPTH}"
42 if { [gdb_compile
"$srcdir/$subdir/$srcfile" ${binfile} executable $compile_flags] != ""} {
50 clean_restart $binfile
57 gdb_continue_to_breakpoint
"fun2"
61 global BACKTRACE_DEPTH
63 gdb_test_python_run
"BackTrace\($BACKTRACE_DEPTH\)"