1 # This testcase is part of GDB, the GNU debugger.
3 # Copyright 2013-2016 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 # check for btrace support
21 if { [skip_btrace_tests] } { return -1 }
25 if [prepare_for_testing function_call_history.exp $testfile {} {debug}] {
33 gdb_test_no_output "record btrace"
35 # set bp after increment loop and continue
36 set bp_location [gdb_get_line_number "bp.1" $testfile.c]
37 gdb_breakpoint $bp_location
38 gdb_continue_to_breakpoint "cont to $bp_location" ".*$testfile.c:$bp_location.*"
41 gdb_test "record function-call-history 1" [multi_line \
65 # show function call history with unlimited size, we expect to see all 21 entries
66 gdb_test_no_output "set record function-call-history-size 0"
67 with_test_prefix "size unlimited" rec_fun_all
69 # show function call history with size of 21, we expect to see all 21 entries
70 gdb_test_no_output "set record function-call-history-size 21"
71 with_test_prefix "size 21" rec_fun_all
73 # show first 15 entries
74 gdb_test_no_output "set record function-call-history-size 15"
75 gdb_test "record function-call-history 1" [multi_line \
90 "15\tmain"] "forward - 1"
93 gdb_test "record function-call-history +" [multi_line \
99 "21\tmain"] "forward - 2"
101 # moving further should not work
102 gdb_test "record function-call-history +" "At the end of the branch trace record\\." "forward - 3"
104 # make sure we cannot move any further a second time
105 gdb_test "record function-call-history +" "At the end of the branch trace record\\." "forward - 4"
107 # moving back showing the latest 15 function calls
108 gdb_test "record function-call-history -" [multi_line \
123 "21\tmain"] "backward - 1"
125 # moving further back shows the 6 first function calls
126 gdb_test "record function-call-history -" [multi_line \
132 "6\tinc"] "backward - 2"
134 # moving further back shouldn't work
135 gdb_test "record function-call-history -" "At the start of the branch trace record\\." "backward - 3"
137 # make sure we cannot move any further back
138 gdb_test "record function-call-history -" "At the start of the branch trace record\\." "backward - 4"
140 # don't mess around with path names
141 gdb_test_no_output "set filename-display basename"
143 # moving forward again, but this time with file and line number, expected to see the first 15 entries
144 gdb_test "record function-call-history /l +" [multi_line \
145 "\[0-9\]*\tmain\tat $srcfile:40,41" \
146 "\[0-9\]*\tinc\tat $srcfile:22,24" \
147 "\[0-9\]*\tmain\tat $srcfile:40,41" \
148 "\[0-9\]*\tinc\tat $srcfile:22,24" \
149 "\[0-9\]*\tmain\tat $srcfile:40,41" \
150 "\[0-9\]*\tinc\tat $srcfile:22,24" \
151 "\[0-9\]*\tmain\tat $srcfile:40,41" \
152 "\[0-9\]*\tinc\tat $srcfile:22,24" \
153 "\[0-9\]*\tmain\tat $srcfile:40,41" \
154 "\[0-9\]*\tinc\tat $srcfile:22,24" \
155 "\[0-9\]*\tmain\tat $srcfile:40,41" \
156 "\[0-9\]*\tinc\tat $srcfile:22,24" \
157 "\[0-9\]*\tmain\tat $srcfile:40,41" \
158 "\[0-9\]*\tinc\tat $srcfile:22,24" \
159 "\[0-9\]*\tmain\tat $srcfile:40,41" \
162 # moving forward and expect to see the latest 6 entries
163 gdb_test "record function-call-history /l +" [multi_line \
164 "\[0-9\]*\tinc\tat $srcfile:22,24" \
165 "\[0-9\]*\tmain\tat $srcfile:40,41" \
166 "\[0-9\]*\tinc\tat $srcfile:22,24" \
167 "\[0-9\]*\tmain\tat $srcfile:40,41" \
168 "\[0-9\]*\tinc\tat $srcfile:22,24" \
169 "\[0-9\]*\tmain\tat $srcfile:40,43" \
172 # moving further forward shouldn't work
173 gdb_test "record function-call-history /l +" "At the end of the branch trace record\\." "forward /l - 3"
174 gdb_test "record function-call-history /l" "At the end of the branch trace record\\." "forward /l - 4"
176 set expected_range [multi_line \
185 # show functions in instruction range
186 gdb_test "record function-call-history 4,10" $expected_range
187 gdb_test "record function-call-history 4,+7" $expected_range
188 gdb_test "record function-call-history 10,-7" $expected_range
189 gdb_test "record function-call-history 4,4" "4\tinc\r"
191 # set bp after fib recursion and continue
192 set bp_location [gdb_get_line_number "bp.2" $testfile.c]
193 gdb_breakpoint $bp_location
194 gdb_continue_to_breakpoint "cont to $bp_location" ".*$testfile.c:$bp_location.*"
196 # at this point we expect to have main, fib, ..., fib, main, where fib occurs 9 times,
197 # so we limit the output to only show the latest 11 function calls
198 gdb_test_no_output "set record function-call-history-size 11"
199 gdb_test "record function-call-history" [multi_line \
210 "31\tmain"] "recursive"
212 # show indented function call history for fib
213 gdb_test "record function-call-history /c 21, +11" [multi_line \
227 # make sure we can handle incomplete trace with respect to indentation
231 # navigate to the fib in line 24 above
233 gdb_continue_to_breakpoint "cont to fib.1"
234 gdb_continue_to_breakpoint "cont to fib.2"
235 gdb_continue_to_breakpoint "cont to fib.3"
236 gdb_continue_to_breakpoint "cont to fib.4"
239 gdb_test_no_output "record btrace"
241 # continue until line 30 above
243 set bp_location [gdb_get_line_number "bp.2" $testfile.c]
244 gdb_breakpoint $bp_location
245 gdb_continue_to_breakpoint "cont to bp.2" ".*$testfile.c:$bp_location\r\n.*"
247 # let's look at the trace. we expect to see the tail of the above listing.
248 gdb_test "record function-call-history /c" [multi_line \