1 # This testcase is part of GDB, the GNU debugger.
3 # Copyright 2013-2017 Free Software Foundation, Inc.
5 # Contributed by Intel Corp. <markus.t.metzger@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"
25 # The "record goto" command jumps to a specific instruction in the execution
26 # trace. To guarantee that we always get the same execution trace, we use
27 # an assembly source file.
29 # We use different assembly sources based on the target architecture.
31 # Luckily, they are similar enough that a single test script can handle
34 if [info exists COMPILE] {
35 # make check RUNTESTFLAGS="gdb.btrace/record_goto.exp COMPILE=1"
36 standard_testfile record_goto.c
38 } elseif {[istarget "i?86-*-*"] || [istarget "x86_64-*-*"]} {
39 if {[is_amd64_regs_target]} {
40 standard_testfile x86_64-record_goto.S
42 standard_testfile i686-record_goto.S
45 unsupported "target architecture not supported"
49 if [prepare_for_testing "failed to prepare" $testfile $srcfile $opts] {
54 untested "failed to run to main"
58 # we want a small context sizes to simplify the test
59 gdb_test_no_output "set record instruction-history-size 3"
60 gdb_test_no_output "set record function-call-history-size 3"
62 # trace the call to the test function
63 gdb_test_no_output "record btrace"
66 # start by listing all functions
67 gdb_test "record function-call-history /ci 1, +20" [multi_line \
69 "2\t fun4\tinst 2,4" \
70 "3\t fun1\tinst 5,8" \
71 "4\t fun4\tinst 9,9" \
72 "5\t fun2\tinst 10,12" \
73 "6\t fun1\tinst 13,16" \
74 "7\t fun2\tinst 17,18" \
75 "8\t fun4\tinst 19,19" \
76 "9\t fun3\tinst 20,22" \
77 "10\t fun1\tinst 23,26" \
78 "11\t fun3\tinst 27,27" \
79 "12\t fun2\tinst 28,30" \
80 "13\t fun1\tinst 31,34" \
81 "14\t fun2\tinst 35,36" \
82 "15\t fun3\tinst 37,38" \
83 "16\t fun4\tinst 39,40" \
86 # let's see if we can go back in history
87 gdb_test "record goto 19" ".*fun4 \\(\\) at record_goto.c:43.*"
89 # the function call history should start at the new location
90 gdb_test "record function-call-history /ci" [multi_line \
91 "8\t fun4\tinst 19,19" \
92 "9\t fun3\tinst 20,22" \
93 "10\t fun1\tinst 23,26" \
94 ] "function-call-history from 19 forwards"
96 # the instruction history should start at the new location
97 gdb_test "record instruction-history" [multi_line \
101 ] "instruction-history from 19 forwards"
103 # let's go to another place in the history
104 gdb_test "record goto 27" ".*fun3 \\(\\) at record_goto.c:35.*"
106 # check the back trace at that location
107 gdb_test "backtrace" [multi_line \
108 "#0.*fun3.*at record_goto.c:35.*" \
109 "#1.*fun4.*at record_goto.c:43.*" \
110 "#2.*main.*at record_goto.c:49.*" \
111 "Backtrace stopped: not enough registers or memory available to unwind further" \
115 gdb_test "up" ".*fun4.*at record_goto.c:43.*" "up to fun4"
116 gdb_test "up" ".*main.*at record_goto.c:49.*" "up to main"
118 # the function call history should start at the new location
119 gdb_test "record function-call-history /ci -" [multi_line \
120 "9\t fun3\tinst 20,22" \
121 "10\t fun1\tinst 23,26" \
122 "11\t fun3\tinst 27,27" \
123 ] "function-call-history from 27 backwards"
125 # the instruction history should start at the new location
126 gdb_test "record instruction-history -" [multi_line \
130 ] "instruction-history from 27 backwards"
132 # test that we can go to the begin of the trace
133 gdb_test "record goto begin" ".*main \\(\\) at record_goto.c:49.*"
135 # check that we're filling up the context correctly
136 gdb_test "record function-call-history /ci -" [multi_line \
137 "1\tmain\tinst 1,1" \
138 "2\t fun4\tinst 2,4" \
139 "3\t fun1\tinst 5,8" \
140 ] "function-call-history from begin backwards"
142 # check that we're filling up the context correctly
143 gdb_test "record instruction-history -" [multi_line \
147 ] "instruction-history from begin backwards"
149 # we should get the exact same history from the first instruction
150 gdb_test "record goto 2" ".*fun4 \\(\\) at record_goto.c:40.*"
152 # check that we're filling up the context correctly
153 gdb_test "record function-call-history /ci -" [multi_line \
154 "1\tmain\tinst 1,1" \
155 "2\t fun4\tinst 2,4" \
156 "3\t fun1\tinst 5,8\r" \
157 ] "function-call-history from 2 backwards"
159 # check that we're filling up the context correctly
160 gdb_test "record instruction-history -" [multi_line \
164 ] "instruction-history from 2 backwards"
166 # check that we can go to the end of the trace
167 gdb_test "record goto end" ".*main \\(\\) at record_goto.c:50.*"
169 # check that we're filling up the context correctly
170 gdb_test "record function-call-history /ci" [multi_line \
171 "14\t fun2\tinst 35,36" \
172 "15\t fun3\tinst 37,38" \
173 "16\t fun4\tinst 39,40" \
174 ] "function-call-history from end forwards"
176 # check that we're filling up the context correctly
177 gdb_test "record instruction-history" [multi_line \
181 ] "instruction-history from end forwards"
183 # we should get the exact same history from the second to last instruction
184 gdb_test "record goto 39" ".*fun4 \\(\\) at record_goto.c:44.*"
186 # check that we're filling up the context correctly
187 gdb_test "record function-call-history /ci" [multi_line \
188 "14\t fun2\tinst 35,36" \
189 "15\t fun3\tinst 37,38" \
190 "16\t fun4\tinst 39,40\r" \
191 ] "function-call-history from 39 forwards"
193 # check that we're filling up the context correctly
194 gdb_test "record instruction-history" [multi_line \
198 ] "instruction-history from 39 forwards"