Commit | Line | Data |
---|---|---|
b811d2c2 | 1 | # Copyright 2009-2020 Free Software Foundation, Inc. |
f61e138d SS |
2 | # |
3 | # This program is free software; you can redistribute it and/or modify | |
4 | # it under the terms of the GNU General Public License as published by | |
5 | # the Free Software Foundation; either version 3 of the License, or | |
6 | # (at your option) any later version. | |
7 | # | |
8 | # This program is distributed in the hope that it will be useful, | |
9 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
10 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
11 | # GNU General Public License for more details. | |
12 | # | |
13 | # You should have received a copy of the GNU General Public License | |
14 | # along with this program. If not, see <http://www.gnu.org/licenses/>. | |
15 | ||
4ec70201 | 16 | load_lib "trace-support.exp" |
f61e138d | 17 | |
f61e138d SS |
18 | |
19 | gdb_exit | |
20 | gdb_start | |
497a5eb0 | 21 | standard_testfile actions.c |
8bca2978 SL |
22 | if ![gdb_trace_common_supports_arch] { |
23 | unsupported "no trace-common.h support for arch" | |
24 | return -1 | |
25 | } | |
f61e138d SS |
26 | if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \ |
27 | executable {debug nowarnings}] != "" } { | |
84c93cd5 | 28 | untested "failed to compile" |
f61e138d SS |
29 | return -1 |
30 | } | |
0914bcdb | 31 | gdb_load $binfile |
f61e138d | 32 | |
0ad9d8c7 SDJ |
33 | # PR gdb/21352: Command tsave does not support -r argument |
34 | gdb_test "tsave -r" "Argument required \\\(file in which to save trace data\\\)\." \ | |
35 | "tsave command properly supports -r argument" | |
36 | ||
f61e138d SS |
37 | gdb_test "tvariable \$tvar1" \ |
38 | "Trace state variable \\\$tvar1 created, with initial value 0." \ | |
bb95117e | 39 | "create a trace state variable" |
f61e138d SS |
40 | |
41 | gdb_test "tvariable \$tvar2 = 45" \ | |
42 | "Trace state variable \\\$tvar2 created, with initial value 45." \ | |
bb95117e | 43 | "create a trace state variable with initial value" |
f61e138d SS |
44 | |
45 | gdb_test "tvariable \$tvar2 = -92" \ | |
46 | "Trace state variable \\\$tvar2 now has initial value -92." \ | |
bb95117e | 47 | "change initial value of a trace state variable" |
f61e138d SS |
48 | |
49 | gdb_test "tvariable \$tvar3 = 2 + 3" \ | |
50 | "Trace state variable \\\$tvar3 created, with initial value 5." \ | |
bb95117e | 51 | "create a trace state variable with expression" |
f61e138d SS |
52 | |
53 | gdb_test "tvariable \$tvar3 = 1234567000000" \ | |
54 | "Trace state variable \\\$tvar3 now has initial value 1234567000000." \ | |
bb95117e | 55 | "init trace state variable to a 64-bit value" |
f61e138d | 56 | |
1773c82c HAQ |
57 | gdb_test "tvariable $" \ |
58 | "Must supply a non-empty variable name" \ | |
59 | "tvariable syntax error, not empty variable name" | |
60 | ||
f61e138d | 61 | gdb_test "tvariable main" \ |
1773c82c | 62 | "Name of trace variable should start with '\\\$'" \ |
f61e138d SS |
63 | "tvariable syntax error, bad name" |
64 | ||
1773c82c HAQ |
65 | gdb_test "tvariable \$\$" \ |
66 | "Syntax must be \\\$NAME \\\[ = EXPR \\\]" \ | |
67 | "tvariable syntax error, bad name 2" | |
68 | ||
69 | gdb_test "tvariable \$123" \ | |
70 | "\\\$123 is not a valid trace state variable name" \ | |
71 | "tvariable syntax error, bad name 3" | |
72 | ||
f61e138d SS |
73 | gdb_test "tvariable \$tvar1 - 93" \ |
74 | "Syntax must be \\\$NAME \\\[ = EXPR \\\]" \ | |
75 | "tvariable syntax error, not an assignment" | |
76 | ||
1773c82c HAQ |
77 | gdb_test "tvariable \$tvar0 = 1 = 1" \ |
78 | "Left operand of assignment is not an lvalue\." \ | |
79 | "tvariable creation fails with invalid expression" | |
80 | ||
f61e138d SS |
81 | gdb_test "info tvariables" \ |
82 | "Name\[\t \]+Initial\[\t \]+Current.* | |
83 | \\\$tvar1\[\t \]+0\[\t \]+<undefined>.* | |
84 | \\\$tvar2\[\t \]+-92\[\t \]+<undefined>.* | |
85 | \\\$tvar3\[\t \]+1234567000000\[\t \]+.*<undefined>.*" \ | |
86 | "List tvariables" | |
87 | ||
0914bcdb SS |
88 | gdb_test "print \$tvar2" " = void" \ |
89 | "Print a trace state variable before run" | |
90 | ||
e68d8fd4 | 91 | gdb_test_no_output "delete tvariable \$tvar2" \ |
f61e138d SS |
92 | "delete trace state variable" |
93 | ||
94 | gdb_test "info tvariables" \ | |
95 | "Name\[\t \]+Initial\[\t \]+Current.* | |
96 | \\\$tvar1\[\t \]+0\[\t \]+<undefined>.* | |
97 | \\\$tvar3\[\t \]+1234567000000\[\t \]+.*<undefined>.*" \ | |
98 | "List tvariables after deletion" | |
99 | ||
0ab48859 MS |
100 | gdb_test "delete tvariable" \ |
101 | "" \ | |
102 | "Delete all trace state variables" \ | |
103 | "Delete all trace state variables.*y or n.*$" \ | |
104 | "y" | |
f61e138d SS |
105 | |
106 | gdb_test "info tvariables" \ | |
107 | "No trace state variables.*" \ | |
bb95117e | 108 | "list tvariables after deleting all" |
f61e138d | 109 | |
0914bcdb SS |
110 | # Now try running a trace. |
111 | ||
112 | runto_main | |
113 | gdb_reinitialize_dir $srcdir/$subdir | |
114 | ||
115 | # The rest of the testing needs actual tracing to work. | |
116 | if { ![gdb_target_supports_trace] } then { | |
bc6c7af4 | 117 | unsupported "current target does not support trace" |
ae59b1da | 118 | return 1 |
0914bcdb SS |
119 | } |
120 | ||
0914bcdb | 121 | gdb_delete_tracepoints |
4ec70201 | 122 | set trcpt1 [gdb_gettpnum gdb_c_test] |
045dd51f YQ |
123 | |
124 | if { $trcpt1 <= 0 } then { | |
0914bcdb | 125 | fail "setting tracepoints" |
4ec70201 | 126 | return |
0914bcdb SS |
127 | } |
128 | ||
129 | gdb_test "tvariable \$tvar5 = 15" \ | |
130 | "Trace state variable \\\$tvar5 created, with initial value 15." \ | |
bb95117e | 131 | "create a trace state variable tvar5" |
0914bcdb SS |
132 | |
133 | gdb_trace_setactions "collect tsv for first tracepoint" \ | |
134 | "$trcpt1" \ | |
135 | "collect \$tvar5 += 1" "^$" | |
136 | ||
045dd51f | 137 | gdb_test_no_output "tstart" "" |
0914bcdb SS |
138 | |
139 | gdb_test "print \$tvar5" " = 15" \ | |
140 | "Print a trace state variable at start of run" | |
141 | ||
142 | # Be sure not to fall off the end of the program. | |
194ed413 | 143 | gdb_breakpoint "end" qualified |
0914bcdb SS |
144 | gdb_test "continue" \ |
145 | "Continuing.*Breakpoint $decimal, end.*" \ | |
146 | "run trace experiment" | |
147 | ||
148 | gdb_test "print \$tvar5" " = 16" \ | |
149 | "Print a trace state variable during run" | |
150 | ||
045dd51f | 151 | gdb_test_no_output "tstop" "" |
0914bcdb | 152 | |
8ddb1965 YQ |
153 | # Save trace frames to tfile. |
154 | set tracefile [standard_output_file ${testfile}] | |
155 | gdb_test "tsave ${tracefile}.tf" \ | |
156 | "Trace data saved to file '${tracefile}.tf'.*" \ | |
157 | "save tfile trace file" | |
393fd4c3 YQ |
158 | # Save trace frames to ctf. |
159 | gdb_test "tsave -ctf ${tracefile}.ctf" \ | |
160 | "Trace data saved to directory '${tracefile}.ctf'.*" \ | |
161 | "save ctf trace file" | |
8ddb1965 YQ |
162 | |
163 | proc check_tsv { data_source } { | |
164 | with_test_prefix "${data_source}" { | |
165 | gdb_test "tfind 0" | |
166 | gdb_test "print \$tvar5" " = 16" \ | |
167 | "Print a trace state variable" | |
168 | gdb_test "tfind" \ | |
169 | "Target failed to find requested trace frame.*" | |
170 | } | |
171 | } | |
0914bcdb | 172 | |
8ddb1965 YQ |
173 | # Check the tsv from the live inferior. |
174 | check_tsv "live" | |
175 | ||
176 | # Change target to tfile. | |
177 | set test "change to tfile target" | |
178 | gdb_test_multiple "target tfile ${tracefile}.tf" "$test" { | |
179 | -re "A program is being debugged already. Kill it. .y or n. " { | |
180 | send_gdb "y\n" | |
181 | exp_continue | |
182 | } | |
183 | -re "$gdb_prompt $" { | |
184 | pass "$test" | |
185 | } | |
186 | } | |
f61e138d | 187 | |
8ddb1965 | 188 | # Check the tsv from tfile. |
393fd4c3 | 189 | |
8ddb1965 | 190 | check_tsv "tfile" |
393fd4c3 YQ |
191 | # Try to read ctf data if GDB supports. |
192 | gdb_test_multiple "target ctf ${tracefile}.ctf" "" { | |
193 | -re "Undefined target command: \"ctf ${tracefile}.ctf\"\. Try \"help target\"\.\r\n$gdb_prompt $" { | |
194 | } | |
195 | -re ".*\r\n$gdb_prompt $" { | |
196 | check_tsv "ctf" | |
197 | } | |
198 | } | |
a0743c90 YQ |
199 | |
200 | # Restart. | |
201 | clean_restart ${binfile} | |
202 | ||
203 | if ![runto_main] then { | |
bc6c7af4 | 204 | fail "can't run to main" |
a0743c90 YQ |
205 | return |
206 | } | |
207 | ||
208 | # If there are predefined TSVs, test these predefined TSVs are correctly | |
209 | # uploaded. | |
210 | if [target_info exists gdb,predefined_tsv] { | |
211 | set tsv [target_info gdb,predefined_tsv] | |
212 | ||
213 | # Test predefined TSVs are uploaded. | |
214 | gdb_test "info tvariables" ".*${tsv}.*" "predefined tsvs are uploaded" | |
215 | } else { | |
216 | # Otherwise (the predefined TSVs are not defined in the board file), | |
217 | # test there is no TSVs in GDB. | |
218 | gdb_test "info tvariables" "No trace state variables\." \ | |
219 | "no predefined tsvs" | |
220 | } |