OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.3/] [gdb/] [testsuite/] [gdb.mi/] [mi0-var-child.exp] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 1181 sfurman 
#   Copyright (C) 1999 2000 Cygnus Solutions
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 2 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, write to the Free Software
15 
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
16 
 
17 
# Please email any bugs, comments, and/or additions to this file to:
18 
# bug-gdb@prep.ai.mit.edu
19 
 
20 
# Test essential Machine interface (MI) operations
21 
#
22 
# Verify that, using the MI, we can create, update, delete variables.
23 
#
24 
 
25 
 
26 
load_lib mi-support.exp
27 
set MIFLAGS "-i=mi0"
28 
 
29 
gdb_exit
30 
if [mi_gdb_start] {
31 
    continue
32 
}
33 
 
34 
set testfile "var-cmd"
35 
set srcfile ${testfile}.c
36 
set binfile ${objdir}/${subdir}/${testfile}
37 
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } {
38 
    gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
39 
}
40 
 
41 
mi_delete_breakpoints
42 
mi_gdb_reinitialize_dir $srcdir/$subdir
43 
mi_gdb_load ${binfile}
44 
 
45 
mi_gdb_test "200-break-insert do_children_tests" \
46 
        "200\\^done,bkpt=\{number=\"1\",type=\"breakpoint\",disp=\"keep\",enabled=\"y\",addr=\"$hex\",func=\"do_children_tests\",file=\".*var-cmd.c\",line=\"190\",times=\"0\"\}" \
47 
        "break-insert operation"
48 
 
49 
mi_run_cmd
50 
# The running part has been checked already by mi_run_cmd
51 
gdb_expect {
52 
    -re "\[\r\n\]*000\\*stopped,reason=\"breakpoint-hit\",bkptno=\"1\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"190\"\}\r\n$mi_gdb_prompt$" {
53 
        pass "run to do_children_tests"
54 
    }
55 
    -re ".*$mi_gdb_prompt$" {fail "run to do_children_tests (2)"}
56 
    timeout {fail "run to do_children_tests (timeout 2)"}
57 
}
58 
 
59 
#####        #####
60 
#                #
61 
# children tests #
62 
#                #
63 
#####        #####
64 
 
65 
 
66 
# Test: c_variable-4.2
67 
# Desc: create variable "struct_declarations"
68 
mi_gdb_test "-var-create struct_declarations * struct_declarations" \
69 
        "\\^done,name=\"struct_declarations\",numchild=\"11\",type=\"struct _struct_decl\"" \
70 
        "create local variable struct_declarations"
71 
 
72 
# Test: c_variable-4.3
73 
# Desc: children of struct_declarations
74 
# STABS doesn't give us argument types for the func ptr structs, but
75 
# Dwarf 2 does.
76 
mi_gdb_test "-var-list-children struct_declarations" \
77 
        "\\^done,numchild=\"11\",children=\{child=\{name=\"struct_declarations.integer\",exp=\"integer\",numchild=\"0\",type=\"int\"\},child=\{name=\"struct_declarations.character\",exp=\"character\",numchild=\"0\",type=\"char\"\},child={name=\"struct_declarations.char_ptr\",exp=\"char_ptr\",numchild=\"1\",type=\"char \\*\"\},child=\{name=\"struct_declarations.long_int\",exp=\"long_int\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.int_ptr_ptr\",exp=\"int_ptr_ptr\",numchild=\"1\",type=\"int \\*\\*\"\},child=\{name=\"struct_declarations.long_array\",exp=\"long_array\",numchild=\"10\",type=\"long int \\\[10\\\]\"\},child=\{name=\"struct_declarations.func_ptr\",exp=\"func_ptr\",numchild=\"0\",type=\"void \\(\\*\\)\\((void)?\\)\"\},child=\{name=\"struct_declarations.func_ptr_struct\",exp=\"func_ptr_struct\",numchild=\"0\",type=\"struct _struct_decl \\(\\*\\)\\((int, char \\*, long int)?\\)\"\},child=\{name=\"struct_declarations.func_ptr_ptr\",exp=\"func_ptr_ptr\",numchild=\"0\",type=\"struct _struct_decl \\*\\(\\*\\)\\((int, char \\*, long int)?\\)\"\},child=\{name=\"struct_declarations.u1\",exp=\"u1\",numchild=\"4\",type=\"union \{\\.\\.\\.\}\"\},child=\{name=\"struct_declarations.s2\",exp=\"s2\",numchild=\"4\",type=\"struct \{\\.\\.\\.\}\"\}\}" \
78 
        "get children of struct_declarations"
79 
 
80 
#gdbtk_test c_variable-4.3 {children of struct_declarations} {
81 
#  get_children  struct_declarations
82 
#} {integer character char_ptr long_int int_ptr_ptr long_array func_ptr func_ptr_struct func_ptr_ptr u1 s2}
83 
 
84 
# Test: c_variable-4.4
85 
# Desc: number of children of struct_declarations
86 
mi_gdb_test "-var-info-num-children struct_declarations" \
87 
        "\\^done,numchild=\"11\"" \
88 
        "get number of children of struct_declarations"
89 
 
90 
# Test: c_variable-4.5
91 
# Desc: children of struct_declarations.integer
92 
mi_gdb_test "-var-list-children struct_declarations.integer" \
93 
        "\\^done,numchild=\"0\"" \
94 
        "get children of struct_declarations.integer"
95 
 
96 
# Test: c_variable-4.6
97 
# Desc: number of children of struct_declarations.integer
98 
mi_gdb_test "-var-info-num-children struct_declarations.integer" \
99 
        "\\^done,numchild=\"0\"" \
100 
        "get number of children of struct_declarations.integer"
101 
 
102 
# Test: c_variable-4.7
103 
# Desc: children of struct_declarations.character
104 
mi_gdb_test "-var-list-children struct_declarations.character" \
105 
        "\\^done,numchild=\"0\"" \
106 
        "get children of struct_declarations.character"
107 
 
108 
# Test: c_variable-4.8
109 
# Desc: number of children of struct_declarations.character
110 
mi_gdb_test "-var-info-num-children struct_declarations.character" \
111 
        "\\^done,numchild=\"0\"" \
112 
        "get number of children of struct_declarations.character"
113 
 
114 
# Test: c_variable-4.9
115 
# Desc: children of struct_declarations.char_ptr
116 
mi_gdb_test "-var-list-children struct_declarations.char_ptr" \
117 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"struct_declarations.char_ptr.\\*char_ptr\",exp=\"\\*char_ptr\",numchild=\"0\",type=\"char\"\}\}" \
118 
        "get children of struct_declarations.char_ptr"
119 
 
120 
# Test: c_variable-4.10
121 
# Desc: number of children of struct_declarations.char_ptr
122 
mi_gdb_test "-var-info-num-children struct_declarations.char_ptr" \
123 
        "\\^done,numchild=\"1\"" \
124 
        "get number of children of struct_declarations.char_ptr"
125 
 
126 
# Test: c_variable-4.11
127 
# Desc: children of struct_declarations.long_int
128 
mi_gdb_test "-var-list-children struct_declarations.long_int" \
129 
        "\\^done,numchild=\"0\"" \
130 
        "get children of struct_declarations.long_int"
131 
 
132 
# Test: c_variable-4.12
133 
# Desc: number of children of struct_declarations.long_int
134 
mi_gdb_test "-var-info-num-children struct_declarations.long_int" \
135 
        "\\^done,numchild=\"0\"" \
136 
        "get number of children of struct_declarations.long_int"
137 
 
138 
# Test: c_variable-4.13
139 
# Desc: children of int_ptr_ptr
140 
mi_gdb_test "-var-list-children struct_declarations.int_ptr_ptr" \
141 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"struct_declarations.int_ptr_ptr.\\*int_ptr_ptr\",exp=\"\\*int_ptr_ptr\",numchild=\"1\",type=\"int \\*\"\}\}" \
142 
        "get children of struct_declarations.int_ptr_ptr"
143 
 
144 
#gdbtk_test c_variable-4.13 {children of int_ptr_ptr} {
145 
#  get_children struct_declarations.int_ptr_ptr
146 
#} {*int_ptr_ptr}
147 
 
148 
# Test: c_variable-4.14
149 
# Desc: number of children of int_ptr_ptr
150 
mi_gdb_test "-var-info-num-children struct_declarations.int_ptr_ptr" \
151 
        "\\^done,numchild=\"1\"" \
152 
        "get number of children of struct_declarations.int_ptr_ptr"
153 
 
154 
 
155 
# Test: c_variable-4.15
156 
# Desc: children of struct_declarations.long_array
157 
mi_gdb_test "-var-list-children struct_declarations.long_array" \
158 
        "\\^done,numchild=\"10\",children=\{child=\{name=\"struct_declarations.long_array.0\",exp=\"0\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.long_array.1\",exp=\"1\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.long_array.2\",exp=\"2\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.long_array.3\",exp=\"3\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.long_array.4\",exp=\"4\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.long_array.5\",exp=\"5\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.long_array.6\",exp=\"6\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.long_array.7\",exp=\"7\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.long_array.8\",exp=\"8\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.long_array.9\",exp=\"9\",numchild=\"0\",type=\"long int\"\}\}" \
159 
        "get children of struct_declarations.long_array"
160 
 
161 
# Test: c_variable-4.16
162 
# Desc: number of children of struct_declarations.long_array
163 
mi_gdb_test "-var-info-num-children struct_declarations.long_array" \
164 
        "\\^done,numchild=\"10\"" \
165 
        "get number of children of struct_declarations.long_array"
166 
 
167 
# Test: c_variable-4.17
168 
# Desc: children of struct_declarations.func_ptr
169 
mi_gdb_test "-var-list-children struct_declarations.func_ptr" \
170 
        "\\^done,numchild=\"0\"" \
171 
        "get children of struct_declarations.func_ptr"
172 
 
173 
 
174 
# Test: c_variable-4.18
175 
# Desc: number of children of struct_declarations.func_ptr
176 
mi_gdb_test "-var-info-num-children struct_declarations.func_ptr" \
177 
        "\\^done,numchild=\"0\"" \
178 
        "get number of children of struct_declarations.func_ptr"
179 
 
180 
 
181 
# Test: c_variable-4.19
182 
# Desc: children of struct_declarations.func_ptr_struct
183 
mi_gdb_test "-var-list-children struct_declarations.func_ptr_struct" \
184 
        "\\^done,numchild=\"0\"" \
185 
        "get children of struct_declarations.func_ptr_struct"
186 
 
187 
# Test: c_variable-4.20
188 
# Desc: number of children of struct_declarations.func_ptr_struct
189 
mi_gdb_test "-var-info-num-children struct_declarations.func_ptr_struct" \
190 
        "\\^done,numchild=\"0\"" \
191 
        "get number of children of struct_declarations.func_ptr_struct"
192 
 
193 
 
194 
# Test: c_variable-4.21
195 
# Desc: children of struct_declarations.func_ptr_ptr
196 
mi_gdb_test "-var-list-children struct_declarations.func_ptr_ptr" \
197 
        "\\^done,numchild=\"0\"" \
198 
        "get children of struct_declarations.func_ptr_ptr"
199 
 
200 
# Test: c_variable-4.22
201 
# Desc: number of children of struct_declarations.func_ptr_ptr
202 
mi_gdb_test "-var-info-num-children struct_declarations.func_ptr_ptr" \
203 
        "\\^done,numchild=\"0\"" \
204 
        "get number of children of struct_declarations.func_ptr_ptr"
205 
 
206 
 
207 
# Test: c_variable-4.23
208 
# Desc: children of struct_declarations.u1
209 
mi_gdb_test "-var-list-children struct_declarations.u1" \
210 
        "\\^done,numchild=\"4\",children=\{child=\{name=\"struct_declarations.u1.a\",exp=\"a\",numchild=\"0\",type=\"int\"\},child=\{name=\"struct_declarations.u1.b\",exp=\"b\",numchild=\"1\",type=\"char \\*\"\},child=\{name=\"struct_declarations.u1.c\",exp=\"c\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.u1.d\",exp=\"d\",numchild=\"0\",type=\"enum foo\"\}\}" \
211 
        "get children of struct_declarations.u1"
212 
 
213 
# Test: c_variable-4.24
214 
# Desc: number of children of struct_declarations.u1
215 
mi_gdb_test "-var-info-num-children struct_declarations.u1" \
216 
        "\\^done,numchild=\"4\"" \
217 
        "get number of children of struct_declarations.u1"
218 
 
219 
# Test: c_variable-4.25
220 
# Desc: children of struct_declarations.s2
221 
mi_gdb_test "-var-list-children struct_declarations.s2" \
222 
        "\\^done,numchild=\"4\",children=\{child=\{name=\"struct_declarations.s2.u2\",exp=\"u2\",numchild=\"3\",type=\"union \{\\.\\.\\.\}\"\},child=\{name=\"struct_declarations.s2.g\",exp=\"g\",numchild=\"0\",type=\"int\"\},child=\{name=\"struct_declarations.s2.h\",exp=\"h\",numchild=\"0\",type=\"char\"\},child=\{name=\"struct_declarations.s2.i\",exp=\"i\",numchild=\"10\",type=\"long int \\\[10\\\]\"\}\}" \
223 
        "get children of struct_declarations.s2"
224 
#gdbtk_test c_variable-4.25 {children of struct_declarations.s2} {
225 
#  get_children struct_declarations.s2
226 
#} {u2 g h i}
227 
 
228 
# Test: c_variable-4.26
229 
# Desc: number of children of struct_declarations.s2
230 
mi_gdb_test "-var-info-num-children struct_declarations.s2" \
231 
        "\\^done,numchild=\"4\"" \
232 
        "get number of children of struct_declarations.s2"
233 
 
234 
 
235 
# Test: c_variable-4.27
236 
# Desc: children of struct_declarations.long_array.1
237 
mi_gdb_test "-var-list-children struct_declarations.long_array.1" \
238 
        "\\^done,numchild=\"0\"" \
239 
        "get children of struct_declarations.long_array.1"
240 
 
241 
# Test: c_variable-4.28
242 
# Desc: number of children of struct_declarations.long_array.1
243 
mi_gdb_test "-var-info-num-children struct_declarations.long_array.1" \
244 
        "\\^done,numchild=\"0\"" \
245 
        "get number of children of struct_declarations.long_array.1"
246 
 
247 
# Test: c_variable-4.29
248 
# Desc: children of struct_declarations.long_array.2
249 
mi_gdb_test "-var-list-children struct_declarations.long_array.2" \
250 
        "\\^done,numchild=\"0\"" \
251 
        "get children of struct_declarations.long_array.2"
252 
 
253 
# Test: c_variable-4.30
254 
# Desc: number of children of struct_declarations.long_array.2
255 
mi_gdb_test "-var-info-num-children struct_declarations.long_array.2" \
256 
        "\\^done,numchild=\"0\"" \
257 
        "get number of children of struct_declarations.long_array.2"
258 
 
259 
# Test: c_variable-4.31
260 
# Desc: children of struct_declarations.long_array.3
261 
mi_gdb_test "-var-list-children struct_declarations.long_array.3" \
262 
        "\\^done,numchild=\"0\"" \
263 
        "get children of struct_declarations.long_array.3"
264 
 
265 
# Test: c_variable-4.32
266 
# Desc: number of children of struct_declarations.long_array.3
267 
mi_gdb_test "-var-info-num-children struct_declarations.long_array.3" \
268 
        "\\^done,numchild=\"0\"" \
269 
        "get number of children of struct_declarations.long_array.3"
270 
 
271 
# Test: c_variable-4.33
272 
# Desc: children of struct_declarations.long_array.4
273 
mi_gdb_test "-var-list-children struct_declarations.long_array.4" \
274 
        "\\^done,numchild=\"0\"" \
275 
        "get children of struct_declarations.long_array.4"
276 
 
277 
# Test: c_variable-4.34
278 
# Desc: number of children of struct_declarations.long_array.4
279 
mi_gdb_test "-var-info-num-children struct_declarations.long_array.4" \
280 
        "\\^done,numchild=\"0\"" \
281 
        "get number of children of struct_declarations.long_array.4"
282 
 
283 
# Test: c_variable-4.35
284 
# Desc: children of struct_declarations.long_array.5
285 
mi_gdb_test "-var-list-children struct_declarations.long_array.5" \
286 
        "\\^done,numchild=\"0\"" \
287 
        "get children of struct_declarations.long_array.5"
288 
 
289 
# Test: c_variable-4.36
290 
# Desc: number of children of struct_declarations.long_array.5
291 
mi_gdb_test "-var-info-num-children struct_declarations.long_array.5" \
292 
        "\\^done,numchild=\"0\"" \
293 
        "get number of children of struct_declarations.long_array.5"
294 
 
295 
# Test: c_variable-4.37
296 
# Desc: children of struct_declarations.long_array.6
297 
mi_gdb_test "-var-list-children struct_declarations.long_array.6" \
298 
        "\\^done,numchild=\"0\"" \
299 
        "get children of struct_declarations.long_array.6"
300 
 
301 
# Test: c_variable-4.38
302 
# Desc: number of children of struct_declarations.long_array.6
303 
mi_gdb_test "-var-info-num-children struct_declarations.long_array.6" \
304 
        "\\^done,numchild=\"0\"" \
305 
        "get number of children of struct_declarations.long_array.6"
306 
 
307 
# Test: c_variable-4.39
308 
# Desc: children of struct_declarations.long_array.7
309 
mi_gdb_test "-var-list-children struct_declarations.long_array.7" \
310 
        "\\^done,numchild=\"0\"" \
311 
        "get children of struct_declarations.long_array.7"
312 
 
313 
# Test: c_variable-4.40
314 
# Desc: number of children of struct_declarations.long_array.7
315 
mi_gdb_test "-var-info-num-children struct_declarations.long_array.7" \
316 
        "\\^done,numchild=\"0\"" \
317 
        "get number of children of struct_declarations.long_array.7"
318 
 
319 
# Test: c_variable-4.41
320 
# Desc: children of struct_declarations.long_array.8
321 
mi_gdb_test "-var-list-children struct_declarations.long_array.8" \
322 
        "\\^done,numchild=\"0\"" \
323 
        "get children of struct_declarations.long_array.8"
324 
 
325 
# Test: c_variable-4.42
326 
# Desc: number of children of struct_declarations.long_array.8
327 
mi_gdb_test "-var-info-num-children struct_declarations.long_array.8" \
328 
        "\\^done,numchild=\"0\"" \
329 
        "get number of children of struct_declarations.long_array.8"
330 
 
331 
 
332 
# Test: c_variable-4.43
333 
# Desc: children of struct_declarations.long_array.9
334 
mi_gdb_test "-var-list-children struct_declarations.long_array.9" \
335 
        "\\^done,numchild=\"0\"" \
336 
        "get children of struct_declarations.long_array.9"
337 
 
338 
# Test: c_variable-4.44
339 
# Desc: number of children of struct_declarations.long_array.9
340 
mi_gdb_test "-var-info-num-children struct_declarations.long_array.9" \
341 
        "\\^done,numchild=\"0\"" \
342 
        "get number of children of struct_declarations.long_array.9"
343 
 
344 
# Test: c_variable-4.45
345 
# Desc: children of struct_declarations.u1.a
346 
mi_gdb_test "-var-list-children struct_declarations.u1.a" \
347 
        "\\^done,numchild=\"0\"" \
348 
        "get children of struct_declarations.u1.a"
349 
 
350 
# Test: c_variable-4.46
351 
# Desc: number of children of struct_declarations.u1.a
352 
mi_gdb_test "-var-info-num-children struct_declarations.u1.a" \
353 
        "\\^done,numchild=\"0\"" \
354 
        "get number of children of struct_declarations.u1.a"
355 
 
356 
# Test: c_variable-4.47
357 
# Desc: children of struct_declarations.u1.b
358 
mi_gdb_test "-var-list-children struct_declarations.u1.b" \
359 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"struct_declarations.u1.b.\\*b\",exp=\"\\*b\",numchild=\"0\",type=\"char\"\}\}" \
360 
        "get children of struct_declarations.u1.b"
361 
 
362 
# Test: c_variable-4.48
363 
# Desc: number of children of struct_declarations.u1.b
364 
mi_gdb_test "-var-info-num-children struct_declarations.u1.b" \
365 
        "\\^done,numchild=\"1\"" \
366 
        "get number of children of struct_declarations.u1.b"
367 
 
368 
# Test: c_variable-4.49
369 
# Desc: children of struct_declarations.u1.c
370 
mi_gdb_test "-var-list-children struct_declarations.u1.c" \
371 
        "\\^done,numchild=\"0\"" \
372 
        "get children of struct_declarations.u1.c"
373 
 
374 
# Test: c_variable-4.50
375 
# Desc: number of children of struct_declarations.u1.c
376 
mi_gdb_test "-var-info-num-children struct_declarations.u1.c" \
377 
        "\\^done,numchild=\"0\"" \
378 
        "get number of children of struct_declarations.u1.c"
379 
 
380 
# Test: c_variable-4.51
381 
# Desc: children of struct_declarations.u1.d
382 
mi_gdb_test "-var-list-children struct_declarations.u1.d" \
383 
        "\\^done,numchild=\"0\"" \
384 
        "get children of struct_declarations.u1.d"
385 
 
386 
 
387 
# Test: c_variable-4.52
388 
# Desc: number of children of struct_declarations.u1.d
389 
mi_gdb_test "-var-info-num-children struct_declarations.u1.d" \
390 
        "\\^done,numchild=\"0\"" \
391 
        "get number of children of struct_declarations.u1.d"
392 
 
393 
 
394 
# Test: c_variable-4.53
395 
# Desc: children of struct_declarations.s2.u2
396 
mi_gdb_test "-var-list-children struct_declarations.s2.u2" \
397 
        "\\^done,numchild=\"3\",children=\{child=\{name=\"struct_declarations.s2.u2.u1s1\",exp=\"u1s1\",numchild=\"4\",type=\"struct \{\\.\\.\\.\}\"\},child=\{name=\"struct_declarations.s2.u2.f\",exp=\"f\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.s2.u2.u1s2\",exp=\"u1s2\",numchild=\"2\",type=\"struct \{\\.\\.\\.\}\"\}\}" \
398 
        "get children of struct_declarations.s2.u2"
399 
 
400 
# Test: c_variable-4.54
401 
# Desc: number of children of struct_declarations.s2.u2
402 
mi_gdb_test "-var-info-num-children struct_declarations.s2.u2" \
403 
        "\\^done,numchild=\"3\"" \
404 
        "get number of children of struct_declarations.s2.u2"
405 
 
406 
# Test: c_variable-4.55
407 
# Desc: children of struct_declarations.s2.g
408 
mi_gdb_test "-var-list-children struct_declarations.s2.g" \
409 
        "\\^done,numchild=\"0\"" \
410 
        "get children of struct_declarations.s2.g"
411 
 
412 
# Test: c_variable-4.56
413 
# Desc: number of children of struct_declarations.s2.g
414 
mi_gdb_test "-var-info-num-children struct_declarations.s2.g" \
415 
        "\\^done,numchild=\"0\"" \
416 
        "get number of children of struct_declarations.s2.g"
417 
 
418 
 
419 
# Test: c_variable-4.57
420 
# Desc: children of struct_declarations.s2.h
421 
mi_gdb_test "-var-list-children struct_declarations.s2.h" \
422 
        "\\^done,numchild=\"0\"" \
423 
        "get children of struct_declarations.s2.h"
424 
 
425 
# Test: c_variable-4.58
426 
# Desc: number of children of struct_declarations.s2.h
427 
mi_gdb_test "-var-info-num-children struct_declarations.s2.h" \
428 
        "\\^done,numchild=\"0\"" \
429 
        "get number of children of struct_declarations.s2.h"
430 
 
431 
 
432 
# Test: c_variable-4.59
433 
# Desc: children of struct_declarations.s2.i
434 
mi_gdb_test "-var-list-children struct_declarations.s2.i" \
435 
        "\\^done,numchild=\"10\",children=\{child=\{name=\"struct_declarations.s2.i.0\",exp=\"0\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.s2.i.1\",exp=\"1\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.s2.i.2\",exp=\"2\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.s2.i.3\",exp=\"3\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.s2.i.4\",exp=\"4\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.s2.i.5\",exp=\"5\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.s2.i.6\",exp=\"6\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.s2.i.7\",exp=\"7\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.s2.i.8\",exp=\"8\",numchild=\"0\",type=\"long int\"\},child=\{name=\"struct_declarations.s2.i.9\",exp=\"9\",numchild=\"0\",type=\"long int\"\}\}" \
436 
        "get children of struct_declarations.s2.i"
437 
 
438 
# Test: c_variable-4.60
439 
# Desc: number of children of struct_declarations.s2.i
440 
mi_gdb_test "-var-info-num-children struct_declarations.s2.i" \
441 
        "\\^done,numchild=\"10\"" \
442 
        "get number of children of struct_declarations.s2.i"
443 
 
444 
# Test: c_variable-4.61
445 
# Desc: children of struct_declarations.s2.u2.u1s1
446 
mi_gdb_test "-var-list-children struct_declarations.s2.u2.u1s1" \
447 
        "\\^done,numchild=\"4\",children=\{child=\{name=\"struct_declarations.s2.u2.u1s1.d\",exp=\"d\",numchild=\"0\",type=\"int\"\},child=\{name=\"struct_declarations.s2.u2.u1s1.e\",exp=\"e\",numchild=\"10\",type=\"char \\\[10\\\]\"\},child=\{name=\"struct_declarations.s2.u2.u1s1.func\",exp=\"func\",numchild=\"0\",type=\"int \\*\\(\\*\\)\\((void)?\\)\"\},child=\{name=\"struct_declarations.s2.u2.u1s1.foo\",exp=\"foo\",numchild=\"0\",type=\"efoo\"\}\}" \
448 
        "get children of struct_declarations.s2.u2.u1s1"
449 
 
450 
# Test: c_variable-4.62
451 
# Desc: number of children of struct_declarations.s2.u2.u1s1
452 
mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s1" \
453 
        "\\^done,numchild=\"4\"" \
454 
        "get number of children of struct_declarations.s2.u2.u1s1"
455 
 
456 
# Test: c_variable-4.63
457 
# Desc: children of struct_declarations.s2.u2.f
458 
mi_gdb_test "-var-list-children struct_declarations.s2.u2.f" \
459 
        "\\^done,numchild=\"0\"" \
460 
        "get children of struct_declarations.s2.u2.f"
461 
 
462 
# Test: c_variable-4.64
463 
# Desc: number of children of struct_declarations.s2.u2.f
464 
mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.f" \
465 
        "\\^done,numchild=\"0\"" \
466 
        "get number of children of struct_declarations.s2.u2.f"
467 
 
468 
# Test: c_variable-4.65
469 
# Desc: children of struct_declarations.s2.u2.u1s2
470 
mi_gdb_test "-var-list-children struct_declarations.s2.u2.u1s2" \
471 
        "\\^done,numchild=\"2\",children=\{child=\{name=\"struct_declarations.s2.u2.u1s2.array_ptr\",exp=\"array_ptr\",numchild=\"2\",type=\"char \\\[2\\\]\"\},child=\{name=\"struct_declarations.s2.u2.u1s2.func\",exp=\"func\",numchild=\"0\",type=\"int \\(\\*\\)\\((int, char \\*)?\\)\"\}\}" \
472 
        "get children of struct_declarations.s2.u2.u1s2"
473 
 
474 
# Test: c_variable-4.66
475 
# Desc: number of children of struct_declarations.s2.u2.u1s2
476 
mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s2" \
477 
        "\\^done,numchild=\"2\"" \
478 
        "get number of children of struct_declarations.s2.u2.u1s2"
479 
 
480 
# Test: c_variable-4.67
481 
# Desc: children of struct_declarations.s2.u2.u1s1.d
482 
mi_gdb_test "-var-list-children struct_declarations.s2.u2.u1s1.d" \
483 
        "\\^done,numchild=\"0\"" \
484 
        "get children of struct_declarations.s2.u2.u1s1.d"
485 
 
486 
# Test: c_variable-4.68
487 
# Desc: number of children of struct_declarations.s2.u2.u1s1.d
488 
mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s1.d" \
489 
        "\\^done,numchild=\"0\"" \
490 
        "get number of children of struct_declarations.s2.u2.u1s1.d"
491 
 
492 
# Test: c_variable-4.69
493 
# Desc: children of struct_declarations.s2.u2.u1s1.e
494 
mi_gdb_test "-var-list-children struct_declarations.s2.u2.u1s1.e" \
495 
        "\\^done,numchild=\"10\",children=\{child=\{name=\"struct_declarations.s2.u2.u1s1.e.0\",exp=\"0\",numchild=\"0\",type=\"char\"\},child=\{name=\"struct_declarations.s2.u2.u1s1.e.1\",exp=\"1\",numchild=\"0\",type=\"char\"\},child=\{name=\"struct_declarations.s2.u2.u1s1.e.2\",exp=\"2\",numchild=\"0\",type=\"char\"\},child={name=\"struct_declarations.s2.u2.u1s1.e.3\",exp=\"3\",numchild=\"0\",type=\"char\"\},child=\{name=\"struct_declarations.s2.u2.u1s1.e.4\",exp=\"4\",numchild=\"0\",type=\"char\"\},child=\{name=\"struct_declarations.s2.u2.u1s1.e.5\",exp=\"5\",numchild=\"0\",type=\"char\"\},child=\{name=\"struct_declarations.s2.u2.u1s1.e.6\",exp=\"6\",numchild=\"0\",type=\"char\"\},child=\{name=\"struct_declarations.s2.u2.u1s1.e.7\",exp=\"7\",numchild=\"0\",type=\"char\"\},child=\{name=\"struct_declarations.s2.u2.u1s1.e.8\",exp=\"8\",numchild=\"0\",type=\"char\"\},child=\{name=\"struct_declarations.s2.u2.u1s1.e.9\",exp=\"9\",numchild=\"0\",type=\"char\"\}\}" \
496 
        "get children of struct_declarations.s2.u2.u1s1.e"
497 
 
498 
# Test: c_variable-4.70
499 
# Desc: number of children of struct_declarations.s2.u2.u1s1.e
500 
mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s1.e" \
501 
        "\\^done,numchild=\"10\"" \
502 
        "get number of children of struct_declarations.s2.u2.u1s1.e"
503 
 
504 
 
505 
# Test: c_variable-4.71
506 
# Desc: children of struct_declarations.s2.u2.u1s1.func
507 
mi_gdb_test "-var-list-children struct_declarations.s2.u2.u1s1.func" \
508 
        "\\^done,numchild=\"0\"" \
509 
        "get children of struct_declarations.s2.u2.u1s1.func"
510 
 
511 
# Test: c_variable-4.72
512 
# Desc: number of children of struct_declarations.s2.u2.u1s1.func
513 
mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s1.func" \
514 
        "\\^done,numchild=\"0\"" \
515 
        "get number of children of struct_declarations.s2.u2.u1s1.func"
516 
 
517 
 
518 
# Test: c_variable-4.73
519 
# Desc: children of struct_declarations.s2.u2.u1s1.foo
520 
mi_gdb_test "-var-list-children struct_declarations.s2.u2.u1s1.foo" \
521 
        "\\^done,numchild=\"0\"" \
522 
        "get children of struct_declarations.s2.u2.u1s1.foo"
523 
 
524 
# Test: c_variable-4.74
525 
# Desc: number of children of struct_declarations.s2.u2.u1s1.foo
526 
mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s1.foo" \
527 
        "\\^done,numchild=\"0\"" \
528 
        "get number of children of struct_declarations.s2.u2.u1s1.foo"
529 
 
530 
 
531 
# Test: c_variable-4.75
532 
# Desc: children of struct_declarations.s2.u2.u1s2.array_ptr
533 
mi_gdb_test "-var-list-children struct_declarations.s2.u2.u1s2.array_ptr" \
534 
        "\\^done,numchild=\"2\",children=\{child=\{name=\"struct_declarations.s2.u2.u1s2.array_ptr.0\",exp=\"0\",numchild=\"0\",type=\"char\"\},child={name=\"struct_declarations.s2.u2.u1s2.array_ptr.1\",exp=\"1\",numchild=\"0\",type=\"char\"\}\}" \
535 
        "get children of struct_declarations.s2.u2.u1s2.array_ptr"
536 
 
537 
# Test: c_variable-4.76
538 
# Desc: number of children of struct_declarations.s2.u2.u1s2.array_ptr
539 
mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s2.array_ptr" \
540 
        "\\^done,numchild=\"2\"" \
541 
        "get number of children of struct_declarations.s2.u2.u1s2.array_ptr"
542 
 
543 
# Test: c_variable-4.77
544 
# Desc: children of struct_declarations.s2.u2.u1s2.func
545 
mi_gdb_test "-var-list-children struct_declarations.s2.u2.u1s2.func" \
546 
        "\\^done,numchild=\"0\"" \
547 
        "get children of struct_declarations.s2.u2.u1s2.func"
548 
 
549 
# Test: c_variable-4.78
550 
# Desc: number of children of struct_declarations.s2.u2.u1s2.func
551 
mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s2.func" \
552 
        "\\^done,numchild=\"0\"" \
553 
        "get number of children of struct_declarations.s2.u2.u1s2.func"
554 
 
555 
# Test: c_variable-4.79
556 
# Desc: children of struct_declarations.int_ptr_ptr.*int_ptr_ptr
557 
mi_gdb_test "-var-list-children struct_declarations.int_ptr_ptr.*int_ptr_ptr" \
558 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"struct_declarations.int_ptr_ptr.\\*int_ptr_ptr.\\*\\*int_ptr_ptr\",exp=\"\\*\\*int_ptr_ptr\",numchild=\"0\",type=\"int\"\}\}" \
559 
        "get children of struct_declarations.int_ptr_ptr.*int_ptr_ptr"
560 
#} {**int_ptr_ptr}
561 
 
562 
# Test: c_variable-4.80
563 
# Desc: Number of children of struct_declarations.int_ptr_ptr.*int_ptr_ptr
564 
mi_gdb_test "-var-info-num-children struct_declarations.int_ptr_ptr.*int_ptr_ptr" \
565 
        "\\^done,numchild=\"1\"" \
566 
        "get number of children of struct_declarations.int_ptr_ptr.*int_ptr_ptr"
567 
 
568 
 
569 
# Step to "struct_declarations.integer = 123;"
570 
send_gdb "-exec-step\n"
571 
gdb_expect {
572 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"192\"\}\r\n$mi_gdb_prompt$" {
573 
        pass "step at do_children_tests"
574 
    }
575 
    timeout {
576 
        fail "step at do_children_tests (timeout)"
577 
    }
578 
}
579 
 
580 
 
581 
# Test: c_variable-4.81
582 
# Desc: create local variable "weird"
583 
mi_gdb_test "-var-create weird * weird" \
584 
        "\\^done,name=\"weird\",numchild=\"11\",type=\"weird_struct \\*\"" \
585 
        "create local variable weird"
586 
 
587 
# Test: c_variable-4.82
588 
# Desc: children of weird
589 
mi_gdb_test "-var-list-children weird" \
590 
        "\\^done,numchild=\"11\",children=\{child=\{name=\"weird.integer\",exp=\"integer\",numchild=\"0\",type=\"int\"\},child=\{name=\"weird.character\",exp=\"character\",numchild=\"0\",type=\"char\"\},child=\{name=\"weird.char_ptr\",exp=\"char_ptr\",numchild=\"1\",type=\"char \\*\"\},child=\{name=\"weird.long_int\",exp=\"long_int\",numchild=\"0\",type=\"long int\"\},child=\{name=\"weird.int_ptr_ptr\",exp=\"int_ptr_ptr\",numchild=\"1\",type=\"int \\*\\*\"\},child=\{name=\"weird.long_array\",exp=\"long_array\",numchild=\"10\",type=\"long int \\\[10\\\]\"\},child=\{name=\"weird.func_ptr\",exp=\"func_ptr\",numchild=\"0\",type=\"void \\(\\*\\)\\((void)?\\)\"\},child=\{name=\"weird.func_ptr_struct\",exp=\"func_ptr_struct\",numchild=\"0\",type=\"struct _struct_decl \\(\\*\\)\\((int, char \\*, long int)?\\)\"\},child=\{name=\"weird.func_ptr_ptr\",exp=\"func_ptr_ptr\",numchild=\"0\",type=\"struct _struct_decl \\*\\(\\*\\)\\((int, char \\*, long int)?\\)\"\},child=\{name=\"weird.u1\",exp=\"u1\",numchild=\"4\",type=\"union \{\\.\\.\\.\}\"\},child=\{name=\"weird.s2\",exp=\"s2\",numchild=\"4\",type=\"struct \{\\.\\.\\.\}\"\}\}" \
591 
        "get children of weird"
592 
 
593 
# Test: c_variable-4.83
594 
# Desc: number of children of weird
595 
mi_gdb_test "-var-info-num-children weird" \
596 
        "\\^done,numchild=\"11\"" \
597 
        "get number of children of weird"
598 
 
599 
 
600 
# Test: c_variable-4.84
601 
# Desc: children of weird->long_array
602 
mi_gdb_test "-var-list-children weird.long_array" \
603 
        "\\^done,numchild=\"10\",children=\{child=\{name=\"weird.long_array.0\",exp=\"0\",numchild=\"0\",type=\"long int\"\},child=\{name=\"weird.long_array.1\",exp=\"1\",numchild=\"0\",type=\"long int\"\},child=\{name=\"weird.long_array.2\",exp=\"2\",numchild=\"0\",type=\"long int\"\},child=\{name=\"weird.long_array.3\",exp=\"3\",numchild=\"0\",type=\"long int\"\},child=\{name=\"weird.long_array.4\",exp=\"4\",numchild=\"0\",type=\"long int\"\},child=\{name=\"weird.long_array.5\",exp=\"5\",numchild=\"0\",type=\"long int\"\},child=\{name=\"weird.long_array.6\",exp=\"6\",numchild=\"0\",type=\"long int\"\},child=\{name=\"weird.long_array.7\",exp=\"7\",numchild=\"0\",type=\"long int\"\},child=\{name=\"weird.long_array.8\",exp=\"8\",numchild=\"0\",type=\"long int\"\},child=\{name=\"weird.long_array.9\",exp=\"9\",numchild=\"0\",type=\"long int\"\}\}" \
604 
        "get children of weird.long_array"
605 
#gdbtk_test c_variable-4.84 {children of weird->long_array} {
606 
#  get_children weird.long_array
607 
#} {0 1 2 3 4 5 6 7 8 9}
608 
 
609 
# Test: c_variable-4.85
610 
# Desc: number of children of weird.long_array
611 
mi_gdb_test "-var-info-num-children weird.long_array" \
612 
        "\\^done,numchild=\"10\"" \
613 
        "get number of children of weird.long_array"
614 
 
615 
# Test: c_variable-4.86
616 
# Desc: children of weird.int_ptr_ptr
617 
mi_gdb_test "-var-list-children weird.int_ptr_ptr" \
618 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"weird.int_ptr_ptr.\\*int_ptr_ptr\",exp=\"\\*int_ptr_ptr\",numchild=\"1\",type=\"int \\*\"\}\}" \
619 
        "get children of weird.int_ptr_ptr"
620 
#gdbtk_test c_variable-4.86 {children of weird->int_ptr_ptr} {
621 
#  get_children weird.int_ptr_ptr
622 
#} {*int_ptr_ptr}
623 
 
624 
# Test: c_variable-4.87
625 
# Desc: number of children of weird.int_ptr_ptr
626 
mi_gdb_test "-var-info-num-children weird.int_ptr_ptr" \
627 
        "\\^done,numchild=\"1\"" \
628 
        "get number of children of weird.int_ptr_ptr"
629 
 
630 
# Test: c_variable-4.88
631 
# Desc: children of *weird->int_ptr_ptr
632 
mi_gdb_test "-var-list-children weird.int_ptr_ptr.*int_ptr_ptr" \
633 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"weird.int_ptr_ptr.\\*int_ptr_ptr.\\*\\*int_ptr_ptr\",exp=\"\\*\\*int_ptr_ptr\",numchild=\"0\",type=\"int\"\}\}" \
634 
        "get children of weird.int_ptr_ptr.*int_ptr_ptr"
635 
#gdbtk_test c_variable-4.88 {children of *weird->int_ptr_ptr} {
636 
#  get_children weird.int_ptr_ptr.*int_ptr_ptr
637 
#} {**int_ptr_ptr}
638 
 
639 
# Test: c_variable-4.89
640 
# Desc: number of children *weird->int_ptr_ptr
641 
mi_gdb_test "-var-info-num-children weird.int_ptr_ptr.*int_ptr_ptr" \
642 
        "\\^done,numchild=\"1\"" \
643 
        "get number of children of weird.int_ptr_ptr.*int_ptr_ptr"
644 
 
645 
# Test: c_variable-4.90
646 
# Desc: create weird->int_ptr_ptr
647 
mi_gdb_test "-var-create weird->int_ptr_ptr * weird->int_ptr_ptr" \
648 
        "\\^done,name=\"weird->int_ptr_ptr\",numchild=\"1\",type=\"int \\*\\*\"" \
649 
        "create local variable weird->int_ptr_ptr"
650 
 
651 
# Test: c_variable-4.91
652 
# Desc: children of weird->int_ptr_ptr
653 
mi_gdb_test "-var-list-children weird->int_ptr_ptr" \
654 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"weird->int_ptr_ptr.\\*weird->int_ptr_ptr\",exp=\"\\*weird->int_ptr_ptr\",numchild=\"1\",type=\"int \\*\"\}\}" \
655 
        "get children of weird->int_ptr_ptr"
656 
 
657 
 
658 
# Test: c_variable-4.92
659 
# Desc: number of children of (weird->int_ptr_ptr)
660 
mi_gdb_test "-var-info-num-children weird->int_ptr_ptr" \
661 
        "\\^done,numchild=\"1\"" \
662 
        "get number of children of weird->int_ptr_ptr"
663 
 
664 
# Test: c_variable-4.93
665 
# Desc: children of *(weird->int_ptr_ptr)
666 
mi_gdb_test "-var-list-children weird->int_ptr_ptr.*weird->int_ptr_ptr" \
667 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"weird->int_ptr_ptr.\\*weird->int_ptr_ptr.\\*\\*weird->int_ptr_ptr\",exp=\"\\*\\*weird->int_ptr_ptr\",numchild=\"0\",type=\"int\"\}\}" \
668 
        "get children of weird->int_ptr_ptr.*weird->int_ptr_ptr"
669 
 
670 
# Test: c_variable-4.94
671 
# Desc: number of children of *(weird->int_ptr_ptr)
672 
mi_gdb_test "-var-info-num-children weird->int_ptr_ptr.*weird->int_ptr_ptr" \
673 
        "\\^done,numchild=\"1\"" \
674 
        "get number of children of weird->int_ptr_ptr.*weird->int_ptr_ptr"
675 
 
676 
# Test: c_variable-4.95
677 
# Desc: children of *(*(weird->int_ptr_ptr))
678 
mi_gdb_test "-var-list-children weird->int_ptr_ptr.*weird->int_ptr_ptr.**weird->int_ptr_ptr" \
679 
        "\\^done,numchild=\"0\"" \
680 
        "get children of weird->int_ptr_ptr.*weird->int_ptr_ptr.**weird->int_ptr_ptr"
681 
 
682 
# Test: c_variable-4.96
683 
# Desc: number of children of *(*(weird->int_ptr_ptr))
684 
mi_gdb_test "-var-info-num-children weird->int_ptr_ptr.*weird->int_ptr_ptr.**weird->int_ptr_ptr" \
685 
        "\\^done,numchild=\"0\"" \
686 
        "get number of children of weird->int_ptr_ptr.*weird->int_ptr_ptr.**weird->int_ptr_ptr"
687 
 
688 
# Test: c_variable-4.97
689 
# Desc: is weird editable
690 
mi_gdb_test "-var-show-attributes weird" \
691 
        "\\^done,attr=\"editable\"" \
692 
        "is weird editable"
693 
 
694 
# Test: c_variable-4.98
695 
# Desc: is weird->int_ptr_ptr editable
696 
mi_gdb_test "-var-show-attributes weird->int_ptr_ptr" \
697 
        "\\^done,attr=\"editable\"" \
698 
        "is weird->int_ptr_ptr editable"
699 
 
700 
# Test: c_variable-4.99
701 
# Desc: is *(weird->int_ptr_ptr) editable
702 
mi_gdb_test "-var-show-attributes weird.int_ptr_ptr.*int_ptr_ptr" \
703 
        "\\^done,attr=\"editable\"" \
704 
        "is weird.int_ptr_ptr.*int_ptr_ptr editable"
705 
 
706 
# Test: c_variable-4.100
707 
# Desc: is *(*(weird->int_ptr_ptr)) editable
708 
mi_gdb_test "-var-show-attributes weird.int_ptr_ptr.*int_ptr_ptr.**int_ptr_ptr" \
709 
        "\\^done,attr=\"editable\"" \
710 
        "is weird.int_ptr_ptr.*int_ptr_ptr.**int_ptr_ptr editable"
711 
 
712 
# Test: c_variable-4.101
713 
# Desc: is weird->u1 editable
714 
mi_gdb_test "-var-show-attributes weird.u1" \
715 
        "\\^done,attr=\"noneditable\"" \
716 
        "is weird.u1 editable"
717 
 
718 
# Test: c_variable-4.102
719 
# Desc: is weird->s2 editable
720 
mi_gdb_test "-var-show-attributes weird.s2" \
721 
        "\\^done,attr=\"noneditable\"" \
722 
        "is weird.s2 editable"
723 
 
724 
# Test: c_variable-4.103
725 
# Desc: is struct_declarations.u1.a editable
726 
mi_gdb_test "-var-show-attributes struct_declarations.u1.a" \
727 
        "\\^done,attr=\"editable\"" \
728 
        "is struct_declarations.u1.a editable"
729 
 
730 
# Test: c_variable-4.104
731 
# Desc: is struct_declarations.u1.b editable
732 
mi_gdb_test "-var-show-attributes struct_declarations.u1.b" \
733 
        "\\^done,attr=\"editable\"" \
734 
        "is struct_declarations.u1.b editable"
735 
 
736 
# Test: c_variable-4.105
737 
# Desc: is struct_declarations.u1.c editable
738 
mi_gdb_test "-var-show-attributes struct_declarations.u1.c" \
739 
        "\\^done,attr=\"editable\"" \
740 
        "is struct_declarations.u1.c editable"
741 
 
742 
# Test: c_variable-4.106
743 
# Desc: is struct_declarations.long_array editable
744 
mi_gdb_test "-var-show-attributes struct_declarations.long_array" \
745 
        "\\^done,attr=\"noneditable\"" \
746 
        "is struct_declarations.long_array editable"
747 
 
748 
# Test: c_variable-4.107
749 
# Desc: is struct_declarations.long_array[0] editable
750 
mi_gdb_test "-var-show-attributes struct_declarations.long_array.0" \
751 
        "\\^done,attr=\"editable\"" \
752 
        "is struct_declarations.long_array.0 editable"
753 
 
754 
# Test: c_variable-4.108
755 
# Desc: is struct_declarations editable
756 
mi_gdb_test "-var-show-attributes struct_declarations" \
757 
        "\\^done,attr=\"noneditable\"" \
758 
        "is struct_declarations editable"
759 
 
760 
mi_gdb_test "-var-delete weird" \
761 
        "\\^done,ndeleted=\"24\"" \
762 
        "delete var weird"
763 
 
764 
#####                         #####
765 
#                                 #
766 
# children and update tests #
767 
#                                 #
768 
#####                         #####
769 
 
770 
# Test: c_variable-5.1
771 
# Desc: check that nothing changed
772 
mi_gdb_test "-var-update *" \
773 
        "\\^done,changelist=\{\}" \
774 
        "update all vars. None changed"
775 
 
776 
# Step over "struct_declarations.integer = 123;"
777 
send_gdb "-exec-step\n"
778 
gdb_expect {
779 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"193\"\}\r\n$mi_gdb_prompt$" {
780 
        pass "step at do_children_tests"
781 
    }
782 
    timeout {
783 
        fail "step at do_children_tests (timeout)"
784 
    }
785 
}
786 
 
787 
# Test: c_variable-5.2
788 
# Desc: check that integer changed
789 
mi_gdb_test "-var-update *" \
790 
        "\\^done,changelist=\{name=\"struct_declarations.integer\",in_scope=\"true\",type_changed=\"false\"\}" \
791 
        "update all vars struct_declarations.integer"
792 
 
793 
# Step over:
794 
#    weird->char_ptr = "hello";
795 
#    bar = 2121;
796 
#    foo = &bar;
797 
 
798 
send_gdb "-exec-step 3\n"
799 
gdb_expect {
800 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"196\"\}\r\n$mi_gdb_prompt$" {
801 
        pass "step at do_children_tests"
802 
    }
803 
    timeout {
804 
        fail "step at do_children_tests (timeout)"
805 
    }
806 
}
807 
 
808 
# Test: c_variable-5.3
809 
# Desc: check that char_ptr changed
810 
mi_gdb_test "-var-update *" \
811 
        "\\^done,changelist=\{name=\"struct_declarations.char_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"struct_declarations.char_ptr.\\*char_ptr\",in_scope=\"true\",type_changed=\"false\"\}" \
812 
        "update all vars struct_declarations.char_ptr"
813 
 
814 
# Step over "struct_declarations.int_ptr_ptr = &foo;"
815 
send_gdb "-exec-step\n"
816 
gdb_expect {
817 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"197\"\}\r\n$mi_gdb_prompt$" {
818 
        pass "step at do_children_tests"
819 
    }
820 
    timeout {
821 
        fail "step at do_children_tests (timeout)"
822 
    }
823 
}
824 
 
825 
# Test: c_variable-5.4
826 
# Desc: check that int_ptr_ptr and children changed
827 
mi_gdb_test "-var-update *" \
828 
        "\\^done,changelist=\{name=\"weird->int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"weird->int_ptr_ptr.\\*weird->int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"weird->int_ptr_ptr.\\*weird->int_ptr_ptr.\\*\\*weird->int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"struct_declarations.int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"struct_declarations.int_ptr_ptr.\\*int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"struct_declarations.int_ptr_ptr.\\*int_ptr_ptr.\\*\\*int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\"\}" \
829 
        "update all vars int_ptr_ptr and children changed"
830 
 
831 
# Step over "weird->long_array[0] = 1234;"
832 
send_gdb "-exec-step\n"
833 
gdb_expect {
834 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"198\"\}\r\n$mi_gdb_prompt$" {
835 
        pass "step at do_children_tests"
836 
    }
837 
    timeout {
838 
        fail "step at do_children_tests (timeout)"
839 
    }
840 
}
841 
 
842 
# Test: c_variable-5.5
843 
# Desc: check that long_array[0] changed
844 
mi_gdb_test "-var-update *" \
845 
        "\\^done,changelist=\{name=\"struct_declarations.long_array.0\",in_scope=\"true\",type_changed=\"false\"\}" \
846 
        "update all vars struct_declarations.long_array.0 changed"
847 
 
848 
# Step over "struct_declarations.long_array[1] = 2345;"
849 
send_gdb "-exec-step\n"
850 
gdb_expect {
851 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"199\"\}\r\n$mi_gdb_prompt$" {
852 
        pass "step at do_children_tests"
853 
    }
854 
    timeout {
855 
        fail "step at do_children_tests (timeout)"
856 
    }
857 
}
858 
 
859 
# Test: c_variable-5.6
860 
# Desc: check that long_array[1] changed
861 
mi_gdb_test "-var-update *" \
862 
        "\\^done,changelist=\{name=\"struct_declarations.long_array.1\",in_scope=\"true\",type_changed=\"false\"\}" \
863 
        "update all vars struct_declarations.long_array.1 changed"
864 
 
865 
# Step over "weird->long_array[2] = 3456;"
866 
send_gdb "-exec-step\n"
867 
gdb_expect {
868 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"200\"\}\r\n$mi_gdb_prompt$" {
869 
        pass "step at do_children_tests"
870 
    }
871 
    timeout {
872 
        fail "step at do_children_tests (timeout)"
873 
    }
874 
}
875 
 
876 
# Test: c_variable-5.7
877 
# Desc: check that long_array[2] changed
878 
mi_gdb_test "-var-update *" \
879 
        "\\^done,changelist=\{name=\"struct_declarations.long_array.2\",in_scope=\"true\",type_changed=\"false\"\}" \
880 
        "update all vars struct_declarations.long_array.2 changed"
881 
 
882 
# Step over:
883 
#    struct_declarations.long_array[3] = 4567;
884 
#    weird->long_array[4] = 5678;
885 
#    struct_declarations.long_array[5] = 6789;
886 
#    weird->long_array[6] = 7890;
887 
#    struct_declarations.long_array[7] = 8901;
888 
#    weird->long_array[8] = 9012;
889 
#    struct_declarations.long_array[9] = 1234;
890 
send_gdb "-exec-step 7\n"
891 
gdb_expect {
892 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"208\"\}\r\n$mi_gdb_prompt$" {
893 
        pass "step at do_children_tests"
894 
    }
895 
    timeout {
896 
        fail "step at do_children_tests (timeout)"
897 
    }
898 
}
899 
 
900 
# Test: c_variable-5.8
901 
# Desc: check that long_array[3-9] changed
902 
mi_gdb_test "-var-update *" \
903 
        "\\^done,changelist=\{name=\"struct_declarations.long_array.3\",in_scope=\"true\",type_changed=\"false\",name=\"struct_declarations.long_array.4\",in_scope=\"true\",type_changed=\"false\",name=\"struct_declarations.long_array.5\",in_scope=\"true\",type_changed=\"false\",name=\"struct_declarations.long_array.6\",in_scope=\"true\",type_changed=\"false\",name=\"struct_declarations.long_array.7\",in_scope=\"true\",type_changed=\"false\",name=\"struct_declarations.long_array.8\",in_scope=\"true\",type_changed=\"false\",name=\"struct_declarations.long_array.9\",in_scope=\"true\",type_changed=\"false\"\}" \
904 
        "update all vars struct_declarations.long_array.3-9 changed"
905 
 
906 
 
907 
# Step over "weird->func_ptr = nothing;"
908 
send_gdb "-exec-step\n"
909 
gdb_expect {
910 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"211\"\}\r\n$mi_gdb_prompt$" {
911 
        pass "step at do_children_tests"
912 
    }
913 
    timeout {
914 
        fail "step at do_children_tests (timeout)"
915 
    }
916 
}
917 
 
918 
# Test: c_variable-5.9
919 
# Desc: check that func_ptr changed
920 
mi_gdb_test "-var-update *" \
921 
        "\\^done,changelist=\{name=\"struct_declarations.func_ptr\",in_scope=\"true\",type_changed=\"false\"\}" \
922 
        "update all vars struct_declarations.func_ptr changed"
923 
 
924 
# Delete all variables
925 
mi_gdb_test "-var-delete struct_declarations" \
926 
        "\\^done,ndeleted=\"65\"" \
927 
        "delete var struct_declarations"
928 
 
929 
mi_gdb_test "-var-delete weird->int_ptr_ptr" \
930 
        "\\^done,ndeleted=\"3\"" \
931 
        "delete var weird->int_ptr_ptr"
932 
 
933 
# Step over all lines:
934 
# ...
935 
#   psnp = &snp0;
936 
send_gdb "-exec-step 43\n"
937 
gdb_expect {
938 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"254\"\}\r\n$mi_gdb_prompt$" {
939 
        pass "step at do_children_tests"
940 
    }
941 
    timeout {
942 
        fail "step at do_children_tests (timeout)"
943 
    }
944 
}
945 
 
946 
# Test: c_variable-5.10
947 
# Desc: create psnp->char_ptr
948 
mi_gdb_test "-var-create  psnp->char_ptr *  psnp->char_ptr" \
949 
        "\\^done,name=\"psnp->char_ptr\",numchild=\"1\",type=\"char \\*\\*\\*\\*\"" \
950 
        "create local variable  psnp->char_ptr"
951 
 
952 
# Test: c_variable-5.11
953 
# Desc: children of psnp->char_ptr
954 
mi_gdb_test "-var-list-children psnp->char_ptr" \
955 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->char_ptr.\\*psnp->char_ptr\",exp=\"\\*psnp->char_ptr\",numchild=\"1\",type=\"char \\*\\*\\*\"\}\}" \
956 
        "get children of psnp->char_ptr"
957 
 
958 
# Test: c_variable-5.12
959 
# Desc: number of children of psnp->char_ptr
960 
mi_gdb_test "-var-info-num-children psnp->char_ptr" \
961 
        "\\^done,numchild=\"1\"" \
962 
        "get number of children of psnp->char_ptr"
963 
 
964 
# Test: c_variable-5.13
965 
# Desc: children of *(psnp->char_ptr)
966 
mi_gdb_test "-var-list-children psnp->char_ptr.*psnp->char_ptr" \
967 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr\",exp=\"\\*\\*psnp->char_ptr\",numchild=\"1\",type=\"char \\*\\*\"\}\}" \
968 
        "get children of psnp->char_ptr.*psnp->char_ptr"
969 
 
970 
# Test: c_variable-5.14
971 
# Desc: number of children of *(psnp->char_ptr)
972 
mi_gdb_test "-var-info-num-children psnp->char_ptr.*psnp->char_ptr" \
973 
        "\\^done,numchild=\"1\"" \
974 
        "get number of children of psnp->char_ptr.*psnp->char_ptr"
975 
 
976 
# Test: c_variable-5.15
977 
# Desc: children of *(*(psnp->char_ptr))
978 
mi_gdb_test "-var-list-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr" \
979 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr.\\*\\*\\*psnp->char_ptr\",exp=\"\\*\\*\\*psnp->char_ptr\",numchild=\"1\",type=\"char \\*\"\}\}" \
980 
        "get children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr"
981 
 
982 
# Test: c_variable-5.15B
983 
# Desc: children of *(*(*(psnp->char_ptr)))
984 
mi_gdb_test "-var-list-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr" \
985 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr.\\*\\*\\*psnp->char_ptr.\\*\\*\\*\\*psnp->char_ptr\",exp=\"\\*\\*\\*\\*psnp->char_ptr\",numchild=\"0\",type=\"char\"\}\}" \
986 
        "get children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr"
987 
 
988 
# Test: c_variable-5.16
989 
# Desc: number of children of *(*(psnp->char_ptr))
990 
mi_gdb_test "-var-info-num-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr" \
991 
        "\\^done,numchild=\"1\"" \
992 
        "get number of children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr"
993 
 
994 
# Test: c_variable-5.17
995 
# Desc: children of *(*(*(psnp->char_ptr)))
996 
mi_gdb_test "-var-list-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr" \
997 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr.\\*\\*\\*psnp->char_ptr.\\*\\*\\*\\*psnp->char_ptr\",exp=\"\\*\\*\\*\\*psnp->char_ptr\",numchild=\"0\",type=\"char\"\}\}" \
998 
        "get children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr"
999 
 
1000 
# Test: c_variable-5.18
1001 
# Desc: number of children of *(*(*(psnp->char_ptr)))
1002 
mi_gdb_test "-var-info-num-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr" \
1003 
        "\\^done,numchild=\"1\"" \
1004 
        "get number of children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr"
1005 
 
1006 
# Test: c_variable-5.17B
1007 
# Desc: children of *(*(*(*(psnp->char_ptr))))
1008 
mi_gdb_test "-var-list-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr" \
1009 
        "\\^done,numchild=\"0\"" \
1010 
        "get children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr"
1011 
 
1012 
# Test: c_variable-5.18B
1013 
# Desc: number of children of *(*(*(*(psnp->char_ptr))))
1014 
mi_gdb_test "-var-info-num-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr" \
1015 
        "\\^done,numchild=\"0\"" \
1016 
        "get number of children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr"
1017 
 
1018 
 
1019 
# Test: c_variable-5.19
1020 
# Desc: create psnp->long_ptr
1021 
mi_gdb_test "-var-create  psnp->long_ptr *  psnp->long_ptr" \
1022 
        "\\^done,name=\"psnp->long_ptr\",numchild=\"1\",type=\"long int \\*\\*\\*\\*\"" \
1023 
        "create local variable  psnp->long_ptr"
1024 
 
1025 
# Test: c_variable-5.20
1026 
# Desc: children of psnp->long_ptr
1027 
mi_gdb_test "-var-list-children psnp->long_ptr" \
1028 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->long_ptr.\\*psnp->long_ptr\",exp=\"\\*psnp->long_ptr\",numchild=\"1\",type=\"long int \\*\\*\\*\"\}\}" \
1029 
        "get children of psnp->long_ptr"
1030 
 
1031 
# Test: c_variable-5.21
1032 
# Desc: number of children of psnp->long_ptr
1033 
mi_gdb_test "-var-info-num-children psnp->long_ptr" \
1034 
        "\\^done,numchild=\"1\"" \
1035 
        "get number of children of psnp->long_ptr"
1036 
 
1037 
# Test: c_variable-5.22
1038 
# Desc: children of *(psnp->long_ptr)
1039 
mi_gdb_test "-var-list-children psnp->long_ptr.*psnp->long_ptr" \
1040 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr\",exp=\"\\*\\*psnp->long_ptr\",numchild=\"1\",type=\"long int \\*\\*\"\}\}" \
1041 
        "get children of psnp->long_ptr.*psnp->long_ptr"
1042 
 
1043 
 
1044 
# Test: c_variable-5.23
1045 
# Desc: number of children of *(psnp->long_ptr)
1046 
mi_gdb_test "-var-info-num-children psnp->long_ptr.*psnp->long_ptr" \
1047 
        "\\^done,numchild=\"1\"" \
1048 
        "get number of children of psnp->long_ptr.*psnp->long_ptr"
1049 
 
1050 
# Test: c_variable-5.24
1051 
# Desc: children of *(*(psnp->long_ptr))
1052 
mi_gdb_test "-var-list-children psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr" \
1053 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr.\\*\\*\\*psnp->long_ptr\",exp=\"\\*\\*\\*psnp->long_ptr\",numchild=\"1\",type=\"long int \\*\"\}\}" \
1054 
        "get children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr"
1055 
 
1056 
# Test: c_variable-5.25
1057 
# Desc: number of children of *(*(psnp->long_ptr))
1058 
mi_gdb_test "-var-info-num-children psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr" \
1059 
        "\\^done,numchild=\"1\"" \
1060 
        "get number of children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr"
1061 
 
1062 
# Test: c_variable-5.26
1063 
# Desc: children of *(*(*(psnp->long_ptr)))
1064 
mi_gdb_test "-var-list-children psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr" \
1065 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr.\\*\\*\\*psnp->long_ptr.\\*\\*\\*\\*psnp->long_ptr\",exp=\"\\*\\*\\*\\*psnp->long_ptr\",numchild=\"0\",type=\"long int\"\}\}" \
1066 
        "get children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr"
1067 
 
1068 
# Test: c_variable-5.27
1069 
# Desc: number of children of *(*(*(psnp->long_ptr)))
1070 
mi_gdb_test "-var-info-num-children psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr" \
1071 
        "\\^done,numchild=\"1\"" \
1072 
        "get number of children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr"
1073 
 
1074 
# Test: c_variable-5.28
1075 
# Desc: children of *(*(*(*(psnp->long_ptr))))
1076 
mi_gdb_test "-var-list-children psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr" \
1077 
        "\\^done,numchild=\"0\"" \
1078 
        "get children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr"
1079 
 
1080 
# Test: c_variable-5.29
1081 
# Desc: number of children of *(*(*(*(psnp->long_ptr))))
1082 
mi_gdb_test "-var-info-num-children psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr" \
1083 
        "\\^done,numchild=\"0\"" \
1084 
        "get number of children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr"
1085 
 
1086 
# Test: c_variable-5.30
1087 
# Desc: create psnp->ptrs
1088 
mi_gdb_test "-var-create  psnp->ptrs *  psnp->ptrs" \
1089 
        "\\^done,name=\"psnp->ptrs\",numchild=\"3\",type=\"struct _struct_n_pointer \\*\\\[3\\\]\"" \
1090 
        "create local variable  psnp->ptrs"
1091 
 
1092 
# Test: c_variable-5.31
1093 
# Desc: children of psnp->ptrs
1094 
mi_gdb_test "-var-list-children psnp->ptrs" \
1095 
        "\\^done,numchild=\"3\",children=\{child=\{name=\"psnp->ptrs.0\",exp=\"0\",numchild=\"4\",type=\"struct _struct_n_pointer \\*\"\},child=\{name=\"psnp->ptrs.1\",exp=\"1\",numchild=\"4\",type=\"struct _struct_n_pointer \\*\"\},child=\{name=\"psnp->ptrs.2\",exp=\"2\",numchild=\"4\",type=\"struct _struct_n_pointer \\*\"\}\}" \
1096 
        "get children of psnp->ptrs"
1097 
 
1098 
# Test: c_variable-5.32
1099 
# Desc: number of children of psnp->ptrs
1100 
mi_gdb_test "-var-info-num-children psnp->ptrs" \
1101 
        "\\^done,numchild=\"3\"" \
1102 
        "get number of children of psnp->ptrs"
1103 
 
1104 
# Test: c_variable-5.33
1105 
# Desc: children of psnp->ptrs[0]
1106 
mi_gdb_test "-var-list-children psnp->ptrs.0" \
1107 
        "\\^done,numchild=\"4\",children=\{child=\{name=\"psnp->ptrs.0.char_ptr\",exp=\"char_ptr\",numchild=\"1\",type=\"char \\*\\*\\*\\*\"\},child=\{name=\"psnp->ptrs.0.long_ptr\",exp=\"long_ptr\",numchild=\"1\",type=\"long int \\*\\*\\*\\*\"\},child=\{name=\"psnp->ptrs.0.ptrs\",exp=\"ptrs\",numchild=\"3\",type=\"struct _struct_n_pointer \\*\\\[3\\\]\"\},child=\{name=\"psnp->ptrs.0.next\",exp=\"next\",numchild=\"4\",type=\"struct _struct_n_pointer \\*\"\}\}" \
1108 
        "get children of psnp->ptrs.0"
1109 
 
1110 
# Test: c_variable-5.34
1111 
# Desc: number of children of psnp->ptrs[0]
1112 
mi_gdb_test "-var-info-num-children psnp->ptrs.0" \
1113 
        "\\^done,numchild=\"4\"" \
1114 
        "get number of children of psnp->ptrs.0"
1115 
 
1116 
# Test: c_variable-5.35
1117 
# Desc: children of psnp->ptrs[0]->next
1118 
mi_gdb_test "-var-list-children psnp->ptrs.0.next" \
1119 
        "\\^done,numchild=\"4\",children=\{child=\{name=\"psnp->ptrs.0.next.char_ptr\",exp=\"char_ptr\",numchild=\"1\",type=\"char \\*\\*\\*\\*\"\},child=\{name=\"psnp->ptrs.0.next.long_ptr\",exp=\"long_ptr\",numchild=\"1\",type=\"long int \\*\\*\\*\\*\"\},child=\{name=\"psnp->ptrs.0.next.ptrs\",exp=\"ptrs\",numchild=\"3\",type=\"struct _struct_n_pointer \\*\\\[3\\\]\"\},child=\{name=\"psnp->ptrs.0.next.next\",exp=\"next\",numchild=\"4\",type=\"struct _struct_n_pointer \\*\"\}\}" \
1120 
        "get children of psnp->ptrs.0.next"
1121 
 
1122 
#} {char_ptr long_ptr ptrs next}
1123 
 
1124 
# Test: c_variable-5.36
1125 
# Desc: number of children of psnp->ptrs[0]->next
1126 
mi_gdb_test "-var-info-num-children psnp->ptrs.0.next" \
1127 
        "\\^done,numchild=\"4\"" \
1128 
        "get number of children of psnp->ptrs.0.next"
1129 
 
1130 
 
1131 
# Test: c_variable-5.37
1132 
# Desc: children of psnp->ptrs[0]->next->char_ptr
1133 
mi_gdb_test "-var-list-children psnp->ptrs.0.next.char_ptr" \
1134 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr\",exp=\"\\*char_ptr\",numchild=\"1\",type=\"char \\*\\*\\*\"\}\}" \
1135 
        "get children of psnp->ptrs.0.next.char_ptr"
1136 
 
1137 
#gdbtk_test c_variable-5.37 {children of psnp->ptrs[0]->next->char_ptr} {
1138 
#  get_children psnp->ptrs.0.next.char_ptr
1139 
#} {*char_ptr}
1140 
 
1141 
# Test: c_variable-5.38
1142 
# Desc: number of children of psnp->ptrs[0]->next->char_ptr
1143 
mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr" \
1144 
        "\\^done,numchild=\"1\"" \
1145 
        "get number of children of psnp->ptrs.0.next.char_ptr"
1146 
 
1147 
# Test: c_variable-5.39
1148 
# Desc: children of *psnp->ptrs[0]->next->char_ptr
1149 
mi_gdb_test "-var-list-children psnp->ptrs.0.next.char_ptr.*char_ptr" \
1150 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr\",exp=\"\\*\\*char_ptr\",numchild=\"1\",type=\"char \\*\\*\"\}\}" \
1151 
        "get children of psnp->ptrs.0.next.char_ptr.*char_ptr"
1152 
 
1153 
# Test: c_variable-5.40
1154 
# Desc: number of children of *psnp->ptrs[0]->next->char_ptr
1155 
mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr.*char_ptr" \
1156 
        "\\^done,numchild=\"1\"" \
1157 
        "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr"
1158 
 
1159 
# Test: c_variable-5.41
1160 
# Desc: children of **psnp->ptrs[0]->next->char_ptr
1161 
mi_gdb_test "-var-list-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr" \
1162 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr.\\*\\*\\*char_ptr\",exp=\"\\*\\*\\*char_ptr\",numchild=\"1\",type=\"char \\*\"\}\}" \
1163 
        "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr"
1164 
 
1165 
# Test: c_variable-5.41B
1166 
# Desc: children of ***psnp->ptrs[0]->next->char_ptr
1167 
mi_gdb_test "-var-list-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr" \
1168 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr.\\*\\*\\*char_ptr.\\*\\*\\*\\*char_ptr\",exp=\"\\*\\*\\*\\*char_ptr\",numchild=\"0\",type=\"char\"\}\}" \
1169 
        "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr"
1170 
 
1171 
# Test: c_variable-5.42
1172 
# Desc: number of children of **psnp->ptrs[0]->next->char_ptr
1173 
mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr" \
1174 
        "\\^done,numchild=\"1\"" \
1175 
        "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr"
1176 
 
1177 
# Test: c_variable-5.43
1178 
# Desc: children of ***psnp->ptrs[0]->next->char_ptr
1179 
mi_gdb_test "-var-list-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr" \
1180 
        "\\^done,numchild=\"1\",children=\{child=\{name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr.\\*\\*\\*char_ptr.\\*\\*\\*\\*char_ptr\",exp=\"\\*\\*\\*\\*char_ptr\",numchild=\"0\",type=\"char\"\}\}" \
1181 
        "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1182 
 
1183 
# Test: c_variable-5.44
1184 
# Desc: number of children of ***psnp->ptrs[0]->next->char_ptr
1185 
mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr" \
1186 
        "\\^done,numchild=\"1\"" \
1187 
        "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1188 
 
1189 
# Test: c_variable-5.43B
1190 
# Desc: children of ****psnp->ptrs[0]->next->char_ptr
1191 
mi_gdb_test "-var-list-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr.****char_ptr" \
1192 
        "\\^done,numchild=\"0\"" \
1193 
        "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1194 
 
1195 
# Test: c_variable-5.44B
1196 
# Desc: number of children of ****psnp->ptrs[0]->next->char_ptr
1197 
mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr.****char_ptr" \
1198 
        "\\^done,numchild=\"0\"" \
1199 
        "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1200 
 
1201 
# Test: c_variable-5.45
1202 
# Desc: children of psnp->ptrs[0]->next->next
1203 
mi_gdb_test "-var-list-children psnp->ptrs.0.next.next" \
1204 
        "\\^done,numchild=\"4\",children=\{child=\{name=\"psnp->ptrs.0.next.next.char_ptr\",exp=\"char_ptr\",numchild=\"1\",type=\"char \\*\\*\\*\\*\"\},child=\{name=\"psnp->ptrs.0.next.next.long_ptr\",exp=\"long_ptr\",numchild=\"1\",type=\"long int \\*\\*\\*\\*\"\},child=\{name=\"psnp->ptrs.0.next.next.ptrs\",exp=\"ptrs\",numchild=\"3\",type=\"struct _struct_n_pointer \\*\\\[3\\\]\"\},child=\{name=\"psnp->ptrs.0.next.next.next\",exp=\"next\",numchild=\"4\",type=\"struct _struct_n_pointer \\*\"\}\}" \
1205 
        "get children of psnp->ptrs.0.next.next"
1206 
 
1207 
# Test: c_variable-5.46
1208 
# Desc: children of psnp->ptrs[0]->next->next->ptrs
1209 
mi_gdb_test "-var-list-children psnp->ptrs.0.next.next.ptrs" \
1210 
        "\\^done,numchild=\"3\",children=\{child=\{name=\"psnp->ptrs.0.next.next.ptrs.0\",exp=\"0\",numchild=\"4\",type=\"struct _struct_n_pointer \\*\"\},child=\{name=\"psnp->ptrs.0.next.next.ptrs.1\",exp=\"1\",numchild=\"4\",type=\"struct _struct_n_pointer \\*\"\},child=\{name=\"psnp->ptrs.0.next.next.ptrs.2\",exp=\"2\",numchild=\"4\",type=\"struct _struct_n_pointer \\*\"\}\}" \
1211 
        "get children of psnp->ptrs.0.next.next.ptrs"
1212 
 
1213 
#  Step over "snp0.char_ptr = &b3;"
1214 
send_gdb "-exec-step\n"
1215 
gdb_expect {
1216 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"255\"\}\r\n$mi_gdb_prompt$" {
1217 
        pass "step at do_children_tests"
1218 
    }
1219 
    timeout {
1220 
        fail "step at do_children_tests (timeout)"
1221 
    }
1222 
}
1223 
 
1224 
# Test: c_variable-5.47
1225 
# Desc: check that psnp->char_ptr (and [0].char_ptr) changed
1226 
mi_gdb_test "-var-update *" \
1227 
        "\\^done,changelist=\{name=\"psnp->ptrs.0.char_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->char_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->char_ptr.\\*psnp->char_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr.\\*\\*\\*psnp->char_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr.\\*\\*\\*psnp->char_ptr.\\*\\*\\*\\*psnp->char_ptr\",in_scope=\"true\",type_changed=\"false\"\}" \
1228 
        "update all vars psnp->char_ptr (and 0.char_ptr) changed"
1229 
 
1230 
#  Step over "snp1.char_ptr = &c3;"
1231 
send_gdb "-exec-step\n"
1232 
gdb_expect {
1233 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"256\"\}\r\n$mi_gdb_prompt$" {
1234 
        pass "step at do_children_tests"
1235 
    }
1236 
    timeout {
1237 
        fail "step at do_children_tests (timeout)"
1238 
    }
1239 
}
1240 
 
1241 
 
1242 
# Test: c_variable-5.48
1243 
# Desc: check that psnp->next->char_ptr (and [1].char_ptr) changed
1244 
mi_gdb_test "-var-update *" \
1245 
        "\\^done,changelist=\{name=\"psnp->ptrs.0.next.char_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr.\\*\\*\\*char_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr.\\*\\*\\*char_ptr.\\*\\*\\*\\*char_ptr\",in_scope=\"true\",type_changed=\"false\"\}" \
1246 
        "update all vars psnp->next->char_ptr (and 1.char_ptr) changed"
1247 
 
1248 
 
1249 
#  Step over "snp2.char_ptr = &a3;"
1250 
send_gdb "-exec-step\n"
1251 
gdb_expect {
1252 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"257\"\}\r\n$mi_gdb_prompt$" {
1253 
        pass "step at do_children_tests"
1254 
    }
1255 
    timeout {
1256 
        fail "step at do_children_tests (timeout)"
1257 
    }
1258 
}
1259 
 
1260 
 
1261 
# Test: c_variable-5.49
1262 
# Desc: check that psnp->next->next->char_ptr (and [2].char_ptr) changed
1263 
mi_gdb_test "-var-update *" \
1264 
        "\\^done,changelist=\{name=\"psnp->ptrs.0.next.next.char_ptr\",in_scope=\"true\",type_changed=\"false\"\}" \
1265 
        "update all vars psnp->next->next->char_ptr (and 2.char_ptr) changed"
1266 
 
1267 
 
1268 
#  Step over "snp0.long_ptr = &y3;"
1269 
send_gdb "-exec-step\n"
1270 
gdb_expect {
1271 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"258\"\}\r\n$mi_gdb_prompt$" {
1272 
        pass "step at do_children_tests"
1273 
    }
1274 
    timeout {
1275 
        fail "step at do_children_tests (timeout)"
1276 
    }
1277 
}
1278 
 
1279 
# Test: c_variable-5.50
1280 
# Desc: check that psnp->long_ptr (and [0].long_ptr) changed
1281 
mi_gdb_test "-var-update *" \
1282 
        "\\^done,changelist=\{name=\"psnp->ptrs.0.long_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->long_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->long_ptr.\\*psnp->long_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr.\\*\\*\\*psnp->long_ptr\",in_scope=\"true\",type_changed=\"false\",name=\"psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr.\\*\\*\\*psnp->long_ptr.\\*\\*\\*\\*psnp->long_ptr\",in_scope=\"true\",type_changed=\"false\"\}" \
1283 
        "update all vars psnp->long_ptr (and 0.long_ptr) changed"
1284 
 
1285 
 
1286 
#  Step over "snp1.long_ptr = &x3;"
1287 
send_gdb "-exec-step\n"
1288 
gdb_expect {
1289 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"259\"\}\r\n$mi_gdb_prompt$" {
1290 
        pass "step at do_children_tests"
1291 
    }
1292 
    timeout {
1293 
        fail "step at do_children_tests (timeout)"
1294 
    }
1295 
}
1296 
 
1297 
 
1298 
# Test: c_variable-5.51
1299 
# Desc: check that psnp->next->long_ptr (and [1].long_ptr) changed
1300 
# Why does this have a FIXME?
1301 
setup_xfail *-*-*
1302 
mi_gdb_test "-var-update *" \
1303 
        "FIXME\\^done,changelist=\{name=\"psnp->ptrs.0.next.long_ptr\",in_scope=\"true\",type_changed=\"false\"\}" \
1304 
        "update all vars psnp->next->long_ptr (and 1.long_ptr) changed"
1305 
clear_xfail *-*-*
1306 
 
1307 
# This command produces this error message:
1308 
# &"warning: varobj_list: assertion failed - mycount <> 0\n"
1309 
#
1310 
 
1311 
#  Step over "snp2.long_ptr = &z3;"
1312 
send_gdb "-exec-step\n"
1313 
gdb_expect {
1314 
    -re "\\^running\r\n${mi_gdb_prompt}\\*stopped,reason=\"end-stepping-range\",thread-id=\"\[01\]\",frame=\{addr=\"$hex\",func=\"do_children_tests\",args=\{\},file=\".*var-cmd.c\",line=\"260\"\}\r\n$mi_gdb_prompt$" {
1315 
        pass "step at do_children_tests"
1316 
    }
1317 
    timeout {
1318 
        fail "step at do_children_tests (timeout)"
1319 
    }
1320 
}
1321 
 
1322 
 
1323 
# Test: c_variable-5.52
1324 
# Desc: check that psnp->next->next->long_ptr (and [2].long_ptr) changed
1325 
mi_gdb_test "-var-update *" \
1326 
        "\\^done,changelist=\{name=\"psnp->ptrs.0.next.next.long_ptr\",in_scope=\"true\",type_changed=\"false\"\}" \
1327 
        "update all vars psnp->next->next->long_ptr (and 2.long_ptr) changed"
1328 
 
1329 
 
1330 
 
1331 
 
1332 
mi_gdb_exit
1333 
return 0

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.