1 # This testcase is part of GDB, the GNU debugger.
3 # Copyright 2013-2020 Free Software Foundation, Inc.
5 # Contributed by Intel Corp. <christian.himpel@intel.com>
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.
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.
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/>.
20 if { [skip_btrace_tests] } {
21 unsupported "target does not support record-btrace"
26 if [prepare_for_testing "failed to prepare" $testfile {} {debug}] {
31 untested "failed to run to main"
36 gdb_test_no_output "record btrace"
38 # set bp after increment loop and continue
39 set bp_location [gdb_get_line_number "bp.1" $testfile.c]
40 gdb_breakpoint $bp_location
41 gdb_continue_to_breakpoint "cont to $bp_location" ".*$testfile.c:$bp_location.*"
44 gdb_test "record function-call-history 1" [multi_line \
68 # show function call history with unlimited size, we expect to see all 21 entries
69 gdb_test_no_output "set record function-call-history-size 0"
70 with_test_prefix "size unlimited" rec_fun_all
72 # show function call history with size of 21, we expect to see all 21 entries
73 gdb_test_no_output "set record function-call-history-size 21"
74 with_test_prefix "size 21" rec_fun_all
76 # show first 15 entries
77 gdb_test_no_output "set record function-call-history-size 15"
78 gdb_test "record function-call-history 1" [multi_line \
93 "15\tmain"] "forward - 1"
96 gdb_test "record function-call-history +" [multi_line \
102 "21\tmain"] "forward - 2"
104 # moving further should not work
105 gdb_test "record function-call-history +" "At the end of the branch trace record\\." "forward - 3"
107 # make sure we cannot move any further a second time
108 gdb_test "record function-call-history +" "At the end of the branch trace record\\." "forward - 4"
110 # moving back showing the latest 15 function calls
111 gdb_test "record function-call-history -" [multi_line \
126 "21\tmain"] "backward - 1"
128 # moving further back shows the 6 first function calls
129 gdb_test "record function-call-history -" [multi_line \
135 "6\tinc"] "backward - 2"
137 # moving further back shouldn't work
138 gdb_test "record function-call-history -" "At the start of the branch trace record\\." "backward - 3"
140 # make sure we cannot move any further back
141 gdb_test "record function-call-history -" "At the start of the branch trace record\\." "backward - 4"
143 # don't mess around with path names
144 gdb_test_no_output "set filename-display basename"
146 # moving forward again, but this time with file and line number, expected to see the first 15 entries
147 gdb_test "record function-call-history /l +" [multi_line \
148 "\[0-9\]*\tmain\tat $srcfile:40,41" \
149 "\[0-9\]*\tinc\tat $srcfile:22,24" \
150 "\[0-9\]*\tmain\tat $srcfile:40,41" \
151 "\[0-9\]*\tinc\tat $srcfile:22,24" \
152 "\[0-9\]*\tmain\tat $srcfile:40,41" \
153 "\[0-9\]*\tinc\tat $srcfile:22,24" \
154 "\[0-9\]*\tmain\tat $srcfile:40,41" \
155 "\[0-9\]*\tinc\tat $srcfile:22,24" \
156 "\[0-9\]*\tmain\tat $srcfile:40,41" \
157 "\[0-9\]*\tinc\tat $srcfile:22,24" \
158 "\[0-9\]*\tmain\tat $srcfile:40,41" \
159 "\[0-9\]*\tinc\tat $srcfile:22,24" \
160 "\[0-9\]*\tmain\tat $srcfile:40,41" \
161 "\[0-9\]*\tinc\tat $srcfile:22,24" \
162 "\[0-9\]*\tmain\tat $srcfile:40,41" \
165 # moving forward and expect to see the latest 6 entries
166 gdb_test "record function-call-history /l +" [multi_line \
167 "\[0-9\]*\tinc\tat $srcfile:22,24" \
168 "\[0-9\]*\tmain\tat $srcfile:40,41" \
169 "\[0-9\]*\tinc\tat $srcfile:22,24" \
170 "\[0-9\]*\tmain\tat $srcfile:40,41" \
171 "\[0-9\]*\tinc\tat $srcfile:22,24" \
172 "\[0-9\]*\tmain\tat $srcfile:40,43" \
175 # moving further forward shouldn't work
176 gdb_test "record function-call-history /l +" "At the end of the branch trace record\\." "forward /l - 3"
177 gdb_test "record function-call-history /l" "At the end of the branch trace record\\." "forward /l - 4"
179 set expected_range [multi_line \
188 # show functions in instruction range
189 gdb_test "record function-call-history 4,10" $expected_range
190 gdb_test "record function-call-history 4,+7" $expected_range
191 gdb_test "record function-call-history 10,-7" $expected_range
192 gdb_test "record function-call-history 4,4" "4\tinc\r"
194 # set bp after fib recursion and continue
195 set bp_location [gdb_get_line_number "bp.2" $testfile.c]
196 gdb_breakpoint $bp_location
197 gdb_continue_to_breakpoint "cont to $bp_location" ".*$testfile.c:$bp_location.*"
199 # at this point we expect to have main, fib, ..., fib, main, where fib occurs 9 times,
200 # so we limit the output to only show the latest 11 function calls
201 gdb_test_no_output "set record function-call-history-size 11"
202 gdb_test "record function-call-history" [multi_line \
213 "31\tmain"] "recursive"
215 # show indented function call history for fib
216 gdb_test "record function-call-history /c 21, +11" [multi_line \
230 # make sure we can handle incomplete trace with respect to indentation
232 untested "failed to run to main"
235 # navigate to the fib in line 24 above
237 gdb_continue_to_breakpoint "cont to fib.1"
238 gdb_continue_to_breakpoint "cont to fib.2"
239 gdb_continue_to_breakpoint "cont to fib.3"
240 gdb_continue_to_breakpoint "cont to fib.4"
243 gdb_test_no_output "record btrace"
245 # continue until line 30 above
247 set bp_location [gdb_get_line_number "bp.2" $testfile.c]
248 gdb_breakpoint $bp_location
249 gdb_continue_to_breakpoint "cont to bp.2" ".*$testfile.c:$bp_location\r\n.*"
251 # let's look at the trace. we expect to see the tail of the above listing.
252 gdb_test "record function-call-history /c" [multi_line \