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 }
23 # compile and run to main
24 standard_testfile .c .S
25 if [prepare_for_testing $testfile.exp $testfile "$srcfile $srcfile2" {debug}] {
32 # set bp before loop and continue
33 set bp_location [gdb_get_line_number "bp.1" $srcfile2]
34 gdb_breakpoint $srcfile2:$bp_location
35 gdb_continue_to_breakpoint "cont to $bp_location" ".*$srcfile2:$bp_location.*"
38 gdb_test_no_output "record btrace"
40 # set bp after loop and continue
41 set bp_location [gdb_get_line_number "bp.2" $srcfile2]
42 gdb_breakpoint $srcfile2:$bp_location
43 gdb_continue_to_breakpoint "cont to $bp_location" ".*$srcfile2:$bp_location.*"
45 # The following test cases test if "browsing" through the
46 # instruction history works as expected. So for the tests
47 # it is necessary to count the number of lines that are
48 # shown by the "record instruction-history" command.
51 set testname "determine number of recorded instructions"
52 gdb_test_multiple "info record" $testname {
53 -re "Active record target: record-btrace\r\n.*\r\nRecorded \(\[0-9\]*\) instructions in \(\[0-9\]*\) functions \\\(0 gaps\\\) for thread 1 .*\\.\r\n$gdb_prompt $" {
54 set traced $expect_out(1,string)
59 # we have exactly 11 instructions here
60 set message "exactly 11 instructions"
61 if { $traced != 11 } {
67 # test that we see the expected instructions
68 gdb_test "record instruction-history 3,7" [multi_line \
69 "3\t 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>:\tje 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>" \
70 "4\t 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>:\tdec %eax" \
71 "5\t 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>:\tjmp 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>" \
72 "6\t 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>:\tcmp \\\$0x0,%eax" \
73 "7\t 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>:\tje 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>\r" \
76 gdb_test "record instruction-history /f 3,+5" [multi_line \
77 "3\t 0x\[0-9a-f\]+ <\\+\[0-9\]+>:\tje 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>" \
78 "4\t 0x\[0-9a-f\]+ <\\+\[0-9\]+>:\tdec %eax" \
79 "5\t 0x\[0-9a-f\]+ <\\+\[0-9\]+>:\tjmp 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>" \
80 "6\t 0x\[0-9a-f\]+ <\\+\[0-9\]+>:\tcmp \\\$0x0,%eax" \
81 "7\t 0x\[0-9a-f\]+ <\\+\[0-9\]+>:\tje 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>\r" \
84 gdb_test "record instruction-history /p 7,-5" [multi_line \
85 "3\t 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>:\tje 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>" \
86 "4\t 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>:\tdec %eax" \
87 "5\t 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>:\tjmp 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>" \
88 "6\t 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>:\tcmp \\\$0x0,%eax" \
89 "7\t 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>:\tje 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>\r" \
92 gdb_test "record instruction-history /pf 3,7" [multi_line \
93 "3\t 0x\[0-9a-f\]+ <\\+\[0-9\]+>:\tje 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>" \
94 "4\t 0x\[0-9a-f\]+ <\\+\[0-9\]+>:\tdec %eax" \
95 "5\t 0x\[0-9a-f\]+ <\\+\[0-9\]+>:\tjmp 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>" \
96 "6\t 0x\[0-9a-f\]+ <\\+\[0-9\]+>:\tcmp \\\$0x0,%eax" \
97 "7\t 0x\[0-9a-f\]+ <\\+\[0-9\]+>:\tje 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>\r" \
100 gdb_test "record instruction-history 3,3" "3\t 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>:\tje 0x\[0-9a-f\]+ <loop\\+\[0-9\]+>\r"
102 # the following tests are checking the iterators
103 # to avoid lots of regexps, we just check the number of lines that
104 # were printed during command execution.
106 # test_lines_output returns the output lines from command as a list.
107 proc test_lines_output { command message } {
109 set message "test_lines_output: $message"
110 gdb_test_multiple $command $message {
111 -re "\n\(.*\)\r\n$gdb_prompt $" {
112 return [split [string trim $expect_out(1,string)] "\n"]
117 # test_lines_length returns the number of lines from command.
118 proc test_lines_length { command message } {
119 return [llength [test_lines_output $command $message]]
122 # show instruction history with unlimited size, we expect to see
123 # all $traced instructions
124 gdb_test_no_output "set record instruction-history-size 0"
125 set message "record instruction-history - unlimited"
126 set lines [test_lines_length "record instruction-history 1" $message]
127 if { $traced != $lines } {
133 gdb_test_no_output "set record instruction-history-size $traced"
134 set message "record instruction-history - traced"
135 set lines [test_lines_length "record instruction-history 1" $message]
136 if { $traced != $lines } {
142 # test that the iterator works
144 gdb_test_no_output "set record instruction-history-size $history_size"
145 set message "browse history forward start"
146 set lines [test_lines_length "record instruction-history 1" $message]
147 if { $lines != $history_size } {
153 set message "browse history forward middle"
154 set lines [test_lines_length "record instruction-history +" $message]
155 if { $lines != $history_size } {
161 set message "browse history forward last"
162 set lines [test_lines_length "record instruction-history +" $message]
169 gdb_test "record instruction-history" "At the end of the branch trace record\\." "browse history forward beyond 1"
171 # make sure we cannot move further
172 gdb_test "record instruction-history" "At the end of the branch trace record\\." "browse history forward beyond 2"
174 set message "browse history backward last"
175 set lines [test_lines_length "record instruction-history -" $message]
176 if { $lines != $history_size } {
182 set message "browse history backward middle"
183 set lines [test_lines_length "record instruction-history -" $message]
184 if { $lines != $history_size } {
190 set message "browse history backward first"
191 set lines [test_lines_length "record instruction-history -" $message]
198 gdb_test "record instruction-history -" "At the start of the branch trace record\\." "browse history backward beyond 1"
200 # make sure we cannot move further back
201 gdb_test "record instruction-history -" "At the start of the branch trace record\\." "browse history backward beyond 2"