1# This testcase is part of GDB, the GNU debugger. 2# 3# Copyright 2013-2019 Free Software Foundation, Inc. 4# 5# Contributed by Intel Corp. <markus.t.metzger@intel.com> 6# 7# This program is free software; you can redistribute it and/or modify 8# it under the terms of the GNU General Public License as published by 9# the Free Software Foundation; either version 3 of the License, or 10# (at your option) any later version. 11# 12# This program is distributed in the hope that it will be useful, 13# but WITHOUT ANY WARRANTY; without even the implied warranty of 14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15# GNU General Public License for more details. 16# 17# You should have received a copy of the GNU General Public License 18# along with this program. If not, see <http://www.gnu.org/licenses/>. 19 20if { [skip_btrace_tests] } { 21 unsupported "target does not support record-btrace" 22 return -1 23} 24 25standard_testfile 26 27# discard local symbols 28set ldflags "additional_flags=-Wl,-x" 29if [prepare_for_testing "failed to prepare" $testfile $srcfile $ldflags] { 30 return -1 31} 32 33if ![runto test] { 34 untested "failed to run to main" 35 return -1 36} 37 38# we want to see the full trace for this test 39gdb_test_no_output "set record function-call-history-size 0" 40 41# trace from one call of test to the next 42gdb_test_no_output "record btrace" 43gdb_continue_to_breakpoint "cont to test" ".*test.*" 44 45# show the flat branch trace 46gdb_test "record function-call-history 1" [multi_line \ 47 "1\ttest" \ 48 "2\t\\\?\\\?" \ 49 "3\t\\\?\\\?" \ 50 "4\t\\\?\\\?" \ 51 "5\ttest" \ 52 "6\tmain" \ 53 "7\ttest" \ 54 ] "flat" 55 56# show the branch trace with calls indented 57gdb_test "record function-call-history /c 1" [multi_line \ 58 "1\t test" \ 59 "2\t \\\?\\\?" \ 60 "3\t \\\?\\\?" \ 61 "4\t \\\?\\\?" \ 62 "5\t test" \ 63 "6\tmain" \ 64 "7\t test" \ 65 ] "indented" 66