1 # Copyright 1999-2014 Free Software Foundation, Inc.
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.
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.
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/>.
16 # Test essential Machine interface (MI) operations
18 # Verify that, using the MI, we can create, update, delete variables.
22 load_lib mi-support.exp
32 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
33 untested mi-var-child.exp
38 mi_gdb_reinitialize_dir $srcdir/$subdir
39 mi_gdb_load ${binfile}
41 mi_runto do_children_tests
43 set line_dlt_first_real [gdb_get_line_number "weird = &struct_declarations;"]
44 mi_continue_to_line $line_dlt_first_real "step to real start of do_children_test"
53 # Test: c_variable-4.2
54 # Desc: create variable "struct_declarations"
55 mi_create_varobj "struct_declarations" "struct_declarations" \
56 "create local variable struct_declarations"
58 # Test: c_variable-4.3
59 # Desc: children of struct_declarations
60 # STABS doesn't give us argument types for the func ptr structs, but
62 mi_list_varobj_children "struct_declarations" {
63 {struct_declarations.integer integer 0 int}
64 {struct_declarations.character character 0 char}
65 {struct_declarations.char_ptr char_ptr 1 "char \\*"}
66 {struct_declarations.long_int long_int 0 "long"}
67 {struct_declarations.int_ptr_ptr int_ptr_ptr 1 "int \\*\\*"}
68 {struct_declarations.long_array long_array 12 "long \\[12\\]"}
69 {struct_declarations.func_ptr func_ptr 0 "void \\(\\*\\)\\((void)?\\)"}
70 {struct_declarations.func_ptr_struct func_ptr_struct 0 \
71 "struct _struct_decl \\(\\*\\)(\\(int, char \\*, long\\))?"}
72 {struct_declarations.func_ptr_ptr func_ptr_ptr 0 \
73 "struct _struct_decl \\*\\(\\*\\)\\((int, char \\*, long)?\\)"}
74 {struct_declarations.u1 u1 4 "union \\{\\.\\.\\.\\}"}
75 {struct_declarations.s2 s2 4 "struct \\{\\.\\.\\.\\}"}
76 } "get children of struct_declarations"
78 #gdbtk_test c_variable-4.3 {children of struct_declarations} {
79 # get_children struct_declarations
80 #} {integer character char_ptr long_int int_ptr_ptr long_array func_ptr func_ptr_struct func_ptr_ptr u1 s2}
82 # Test: c_variable-4.4
83 # Desc: number of children of struct_declarations
84 mi_gdb_test "-var-info-num-children struct_declarations" \
85 "\\^done,numchild=\"11\"" \
86 "get number of children of struct_declarations"
88 # Test: c_variable-4.5
89 # Desc: children of struct_declarations.integer
90 mi_list_varobj_children "struct_declarations.integer" {} \
91 "get children of struct_declarations.integer"
93 # Test: c_variable-4.6
94 # Desc: number of children of struct_declarations.integer
95 mi_gdb_test "-var-info-num-children struct_declarations.integer" \
96 "\\^done,numchild=\"0\"" \
97 "get number of children of struct_declarations.integer"
99 # Test: c_variable-4.7
100 # Desc: children of struct_declarations.character
101 mi_list_varobj_children "struct_declarations.character" {} \
102 "get children of struct_declarations.character"
104 # Test: c_variable-4.8
105 # Desc: number of children of struct_declarations.character
106 mi_gdb_test "-var-info-num-children struct_declarations.character" \
107 "\\^done,numchild=\"0\"" \
108 "get number of children of struct_declarations.character"
110 # Test: c_variable-4.9
111 # Desc: children of struct_declarations.char_ptr
112 mi_list_varobj_children "struct_declarations.char_ptr" {
113 {{struct_declarations.char_ptr.\*char_ptr} {\*char_ptr} 0 char}
114 } "get children of struct_declarations.char_ptr"
116 # Test: c_variable-4.10
117 # Desc: number of children of struct_declarations.char_ptr
118 mi_gdb_test "-var-info-num-children struct_declarations.char_ptr" \
119 "\\^done,numchild=\"1\"" \
120 "get number of children of struct_declarations.char_ptr"
122 # Test: c_variable-4.11
123 # Desc: children of struct_declarations.long_int
124 mi_list_varobj_children "struct_declarations.long_int" {} \
125 "get children of struct_declarations.long_int"
127 # Test: c_variable-4.12
128 # Desc: number of children of struct_declarations.long_int
129 mi_gdb_test "-var-info-num-children struct_declarations.long_int" \
130 "\\^done,numchild=\"0\"" \
131 "get number of children of struct_declarations.long_int"
133 # Test: c_variable-4.13
134 # Desc: children of int_ptr_ptr
135 mi_list_varobj_children "struct_declarations.int_ptr_ptr" {
136 {{struct_declarations.int_ptr_ptr.\*int_ptr_ptr} {\*int_ptr_ptr} 1 {int \*}}
137 } "get children of struct_declarations.int_ptr_ptr"
139 #gdbtk_test c_variable-4.13 {children of int_ptr_ptr} {
140 # get_children struct_declarations.int_ptr_ptr
143 # Test: c_variable-4.14
144 # Desc: number of children of int_ptr_ptr
145 mi_gdb_test "-var-info-num-children struct_declarations.int_ptr_ptr" \
146 "\\^done,numchild=\"1\"" \
147 "get number of children of struct_declarations.int_ptr_ptr"
150 # Test: c_variable-4.15
151 # Desc: children of struct_declarations.long_array
152 mi_list_array_varobj_children "struct_declarations.long_array" 12 \
154 "get children of struct_declarations.long_array"
156 # Test: c_variable-4.16
157 # Desc: number of children of struct_declarations.long_array
158 mi_gdb_test "-var-info-num-children struct_declarations.long_array" \
159 "\\^done,numchild=\"12\"" \
160 "get number of children of struct_declarations.long_array"
162 # Test: c_variable-4.17
163 # Desc: children of struct_declarations.func_ptr
164 mi_list_varobj_children "struct_declarations.func_ptr" {} \
165 "get children of struct_declarations.func_ptr"
167 # Test: c_variable-4.18
168 # Desc: number of children of struct_declarations.func_ptr
169 mi_gdb_test "-var-info-num-children struct_declarations.func_ptr" \
170 "\\^done,numchild=\"0\"" \
171 "get number of children of struct_declarations.func_ptr"
174 # Test: c_variable-4.19
175 # Desc: children of struct_declarations.func_ptr_struct
176 mi_list_varobj_children "struct_declarations.func_ptr_struct" {} \
177 "get children of struct_declarations.func_ptr_struct"
179 # Test: c_variable-4.20
180 # Desc: number of children of struct_declarations.func_ptr_struct
181 mi_gdb_test "-var-info-num-children struct_declarations.func_ptr_struct" \
182 "\\^done,numchild=\"0\"" \
183 "get number of children of struct_declarations.func_ptr_struct"
186 # Test: c_variable-4.21
187 # Desc: children of struct_declarations.func_ptr_ptr
188 mi_list_varobj_children "struct_declarations.func_ptr_ptr" {} \
189 "get children of struct_declarations.func_ptr_ptr"
191 # Test: c_variable-4.22
192 # Desc: number of children of struct_declarations.func_ptr_ptr
193 mi_gdb_test "-var-info-num-children struct_declarations.func_ptr_ptr" \
194 "\\^done,numchild=\"0\"" \
195 "get number of children of struct_declarations.func_ptr_ptr"
197 # Test: c_variable-4.23
198 # Desc: children of struct_declarations.u1
199 mi_list_varobj_children "struct_declarations.u1" {
200 {struct_declarations.u1.a a 0 int}
201 {struct_declarations.u1.b b 1 {char \*}}
202 {struct_declarations.u1.c c 0 {long}}
203 {struct_declarations.u1.d d 0 {enum foo}}
204 } "get children of struct_declarations.u1"
206 # Test: c_variable-4.24
207 # Desc: number of children of struct_declarations.u1
208 mi_gdb_test "-var-info-num-children struct_declarations.u1" \
209 "\\^done,numchild=\"4\"" \
210 "get number of children of struct_declarations.u1"
212 # Test: c_variable-4.25
213 # Desc: children of struct_declarations.s2
214 mi_list_varobj_children "struct_declarations.s2" {
215 {struct_declarations.s2.u2 u2 3 {union \{\.\.\.\}}}
216 {struct_declarations.s2.g g 0 int}
217 {struct_declarations.s2.h h 0 char}
218 {struct_declarations.s2.i i 10 {long \[10\]}}
219 } "get children of struct_declarations.s2"
221 #gdbtk_test c_variable-4.25 {children of struct_declarations.s2} {
222 # get_children struct_declarations.s2
225 # Test: c_variable-4.26
226 # Desc: number of children of struct_declarations.s2
227 mi_gdb_test "-var-info-num-children struct_declarations.s2" \
228 "\\^done,numchild=\"4\"" \
229 "get number of children of struct_declarations.s2"
232 for {set i 1} {$i <= 9} {incr i} {
233 mi_list_varobj_children "struct_declarations.long_array.$i" {} \
234 "get children of struct_declarations.long_array.$i"
236 mi_gdb_test "-var-info-num-children struct_declarations.long_array.$i" \
237 "\\^done,numchild=\"0\"" \
238 "get number of children of struct_declarations.long_array.$i"
241 # Test: c_variable-4.45
242 # Desc: children of struct_declarations.u1.a
243 mi_list_varobj_children "struct_declarations.u1.a" {} \
244 "get children of struct_declarations.u1.a"
246 # Test: c_variable-4.46
247 # Desc: number of children of struct_declarations.u1.a
248 mi_gdb_test "-var-info-num-children struct_declarations.u1.a" \
249 "\\^done,numchild=\"0\"" \
250 "get number of children of struct_declarations.u1.a"
252 # Test: c_variable-4.47
253 # Desc: children of struct_declarations.u1.b
254 mi_list_varobj_children "struct_declarations.u1.b" {
255 {{struct_declarations.u1.b.\*b} {\*b} 0 char}
256 } "get children of struct_declarations.u1.b"
258 # Test: c_variable-4.48
259 # Desc: number of children of struct_declarations.u1.b
260 mi_gdb_test "-var-info-num-children struct_declarations.u1.b" \
261 "\\^done,numchild=\"1\"" \
262 "get number of children of struct_declarations.u1.b"
264 # Test: c_variable-4.49
265 # Desc: children of struct_declarations.u1.c
266 mi_list_varobj_children "struct_declarations.u1.c" {} \
267 "get children of struct_declarations.u1.c"
269 # Test: c_variable-4.50
270 # Desc: number of children of struct_declarations.u1.c
271 mi_gdb_test "-var-info-num-children struct_declarations.u1.c" \
272 "\\^done,numchild=\"0\"" \
273 "get number of children of struct_declarations.u1.c"
275 # Test: c_variable-4.51
276 # Desc: children of struct_declarations.u1.d
277 mi_list_varobj_children "struct_declarations.u1.d" {} \
278 "get children of struct_declarations.u1.d"
281 # Test: c_variable-4.52
282 # Desc: number of children of struct_declarations.u1.d
283 mi_gdb_test "-var-info-num-children struct_declarations.u1.d" \
284 "\\^done,numchild=\"0\"" \
285 "get number of children of struct_declarations.u1.d"
288 # Test: c_variable-4.53
289 # Desc: children of struct_declarations.s2.u2
290 mi_list_varobj_children "struct_declarations.s2.u2" {
291 {"struct_declarations.s2.u2.u1s1" "u1s1" 4 {struct \{\.\.\.\}}}
292 {struct_declarations.s2.u2.f f 0 "long"}
293 {struct_declarations.s2.u2.u1s2 u1s2 2 {struct \{\.\.\.\}}}
294 } "get children of struct_declarations.s2.u2"
296 # Test: c_variable-4.54
297 # Desc: number of children of struct_declarations.s2.u2
298 mi_gdb_test "-var-info-num-children struct_declarations.s2.u2" \
299 "\\^done,numchild=\"3\"" \
300 "get number of children of struct_declarations.s2.u2"
302 # Test: c_variable-4.55
303 # Desc: children of struct_declarations.s2.g
304 mi_list_varobj_children struct_declarations.s2.g {} \
305 "get children of struct_declarations.s2.g"
307 # Test: c_variable-4.56
308 # Desc: number of children of struct_declarations.s2.g
309 mi_gdb_test "-var-info-num-children struct_declarations.s2.g" \
310 "\\^done,numchild=\"0\"" \
311 "get number of children of struct_declarations.s2.g"
314 # Test: c_variable-4.57
315 # Desc: children of struct_declarations.s2.h
316 mi_list_varobj_children struct_declarations.s2.h {} \
317 "get children of struct_declarations.s2.h"
319 # Test: c_variable-4.58
320 # Desc: number of children of struct_declarations.s2.h
321 mi_gdb_test "-var-info-num-children struct_declarations.s2.h" \
322 "\\^done,numchild=\"0\"" \
323 "get number of children of struct_declarations.s2.h"
326 # Test: c_variable-4.59
327 # Desc: children of struct_declarations.s2.i
329 for {set i 0} {$i < 10} {incr i} {
330 lappend t [list struct_declarations.s2.i.$i $i 0 "long"]
332 mi_list_varobj_children struct_declarations.s2.i $t \
333 "get children of struct_declarations.s2.i"
335 # Test: c_variable-4.60
336 # Desc: number of children of struct_declarations.s2.i
337 mi_gdb_test "-var-info-num-children struct_declarations.s2.i" \
338 "\\^done,numchild=\"10\"" \
339 "get number of children of struct_declarations.s2.i"
341 # Test: c_variable-4.61
342 # Desc: children of struct_declarations.s2.u2.u1s1
343 mi_list_varobj_children struct_declarations.s2.u2.u1s1 {
344 {struct_declarations.s2.u2.u1s1.d d 0 int}
345 {struct_declarations.s2.u2.u1s1.e e 10 {char \[10\]}}
346 {struct_declarations.s2.u2.u1s1.func func 0 {int \*\(\*\)\((void)?\)}}
347 {struct_declarations.s2.u2.u1s1.foo foo 0 efoo}
348 } "get children of struct_declarations.s2.u2.u1s1"
350 # Test: c_variable-4.62
351 # Desc: number of children of struct_declarations.s2.u2.u1s1
352 mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s1" \
353 "\\^done,numchild=\"4\"" \
354 "get number of children of struct_declarations.s2.u2.u1s1"
356 # Test: c_variable-4.63
357 # Desc: children of struct_declarations.s2.u2.f
358 mi_list_varobj_children struct_declarations.s2.u2.f {} \
359 "get children of struct_declarations.s2.u2.f"
361 # Test: c_variable-4.64
362 # Desc: number of children of struct_declarations.s2.u2.f
363 mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.f" \
364 "\\^done,numchild=\"0\"" \
365 "get number of children of struct_declarations.s2.u2.f"
367 # Test: c_variable-4.65
368 # Desc: children of struct_declarations.s2.u2.u1s2
369 mi_list_varobj_children struct_declarations.s2.u2.u1s2 {
370 {struct_declarations.s2.u2.u1s2.array_ptr array_ptr 2 {char \[2\]}}
371 {struct_declarations.s2.u2.u1s2.func func 0 {int \(\*\)\((int, char \*)?\)}}
372 } "get children of struct_declarations.s2.u2.u1s2"
374 # Test: c_variable-4.66
375 # Desc: number of children of struct_declarations.s2.u2.u1s2
376 mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s2" \
377 "\\^done,numchild=\"2\"" \
378 "get number of children of struct_declarations.s2.u2.u1s2"
380 # Test: c_variable-4.67
381 # Desc: children of struct_declarations.s2.u2.u1s1.d
382 mi_list_varobj_children struct_declarations.s2.u2.u1s1.d {} \
383 "get children of struct_declarations.s2.u2.u1s1.d"
385 # Test: c_variable-4.68
386 # Desc: number of children of struct_declarations.s2.u2.u1s1.d
387 mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s1.d" \
388 "\\^done,numchild=\"0\"" \
389 "get number of children of struct_declarations.s2.u2.u1s1.d"
391 # Test: c_variable-4.69
392 # Desc: children of struct_declarations.s2.u2.u1s1.e
394 for {set i 0} {$i < 10} {incr i} {
395 lappend t [list struct_declarations.s2.u2.u1s1.e.$i $i 0 char]
397 mi_list_varobj_children struct_declarations.s2.u2.u1s1.e $t \
398 "get children of struct_declarations.s2.u2.u1s1.e"
400 # Test: c_variable-4.70
401 # Desc: number of children of struct_declarations.s2.u2.u1s1.e
402 mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s1.e" \
403 "\\^done,numchild=\"10\"" \
404 "get number of children of struct_declarations.s2.u2.u1s1.e"
407 # Test: c_variable-4.71
408 # Desc: children of struct_declarations.s2.u2.u1s1.func
409 mi_list_varobj_children struct_declarations.s2.u2.u1s1.func {} \
410 "get children of struct_declarations.s2.u2.u1s1.func"
412 # Test: c_variable-4.72
413 # Desc: number of children of struct_declarations.s2.u2.u1s1.func
414 mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s1.func" \
415 "\\^done,numchild=\"0\"" \
416 "get number of children of struct_declarations.s2.u2.u1s1.func"
419 # Test: c_variable-4.73
420 # Desc: children of struct_declarations.s2.u2.u1s1.foo
421 mi_list_varobj_children struct_declarations.s2.u2.u1s1.foo {} \
422 "get children of struct_declarations.s2.u2.u1s1.foo"
424 # Test: c_variable-4.74
425 # Desc: number of children of struct_declarations.s2.u2.u1s1.foo
426 mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s1.foo" \
427 "\\^done,numchild=\"0\"" \
428 "get number of children of struct_declarations.s2.u2.u1s1.foo"
431 # Test: c_variable-4.75
432 # Desc: children of struct_declarations.s2.u2.u1s2.array_ptr
433 mi_list_varobj_children struct_declarations.s2.u2.u1s2.array_ptr {
434 {struct_declarations.s2.u2.u1s2.array_ptr.0 0 0 char}
435 {struct_declarations.s2.u2.u1s2.array_ptr.1 1 0 char}
436 } "get children of struct_declarations.s2.u2.u1s2.array_ptr"
438 # Test: c_variable-4.76
439 # Desc: number of children of struct_declarations.s2.u2.u1s2.array_ptr
440 mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s2.array_ptr" \
441 "\\^done,numchild=\"2\"" \
442 "get number of children of struct_declarations.s2.u2.u1s2.array_ptr"
444 # Test: c_variable-4.77
445 # Desc: children of struct_declarations.s2.u2.u1s2.func
446 mi_list_varobj_children struct_declarations.s2.u2.u1s2.func {} \
447 "get children of struct_declarations.s2.u2.u1s2.func"
449 # Test: c_variable-4.78
450 # Desc: number of children of struct_declarations.s2.u2.u1s2.func
451 mi_gdb_test "-var-info-num-children struct_declarations.s2.u2.u1s2.func" \
452 "\\^done,numchild=\"0\"" \
453 "get number of children of struct_declarations.s2.u2.u1s2.func"
455 # Test: c_variable-4.79
456 # Desc: children of struct_declarations.int_ptr_ptr.*int_ptr_ptr
457 mi_list_varobj_children "struct_declarations.int_ptr_ptr.*int_ptr_ptr" {
458 {{struct_declarations.int_ptr_ptr.\*int_ptr_ptr.\*\*int_ptr_ptr} \
459 {\*\*int_ptr_ptr} 0 int}
460 } "get children of struct_declarations.int_ptr_ptr.*int_ptr_ptr"
462 # Test: c_variable-4.80
463 # Desc: Number of children of struct_declarations.int_ptr_ptr.*int_ptr_ptr
464 mi_gdb_test "-var-info-num-children struct_declarations.int_ptr_ptr.*int_ptr_ptr" \
465 "\\^done,numchild=\"1\"" \
466 "get number of children of struct_declarations.int_ptr_ptr.*int_ptr_ptr"
469 # Step to "struct_declarations.integer = 123;"
470 set line_dct_123 [gdb_get_line_number "struct_declarations.integer = 123;"]
471 mi_step_to do_children_tests {} ".*${srcfile}" \
472 $line_dct_123 "step to line \$line_dct_123"
474 # Test: c_variable-4.81
475 # Desc: create local variable "weird"
476 mi_create_varobj weird weird "create local variable weird"
478 # Test: c_variable-4.82
479 # Desc: children of weird
480 mi_list_varobj_children "weird" {
481 {weird.integer integer 0 int}
482 {weird.character character 0 char}
483 {weird.char_ptr char_ptr 1 "char \\*"}
484 {weird.long_int long_int 0 "long"}
485 {weird.int_ptr_ptr int_ptr_ptr 1 "int \\*\\*"}
486 {weird.long_array long_array 12 "long \\[12\\]"}
487 {weird.func_ptr func_ptr 0 "void \\(\\*\\)\\((void)?\\)"}
488 {weird.func_ptr_struct func_ptr_struct 0 \
489 "struct _struct_decl \\(\\*\\)(\\(int, char \\*, long\\))?"}
490 {weird.func_ptr_ptr func_ptr_ptr 0 \
491 "struct _struct_decl \\*\\(\\*\\)\\((int, char \\*, long)?\\)"}
492 {weird.u1 u1 4 "union \\{\\.\\.\\.\\}"}
493 {weird.s2 s2 4 "struct \\{\\.\\.\\.\\}"}
494 } "get children of weird"
496 # Test: c_variable-4.83
497 # Desc: number of children of weird
498 mi_gdb_test "-var-info-num-children weird" \
499 "\\^done,numchild=\"11\"" \
500 "get number of children of weird"
503 # Test: c_variable-4.84
504 # Desc: children of weird->long_array
505 mi_list_array_varobj_children weird.long_array 12 "long" \
506 "get children of weird.long_array"
507 #gdbtk_test c_variable-4.84 {children of weird->long_array} {
508 # get_children weird.long_array
509 #} {0 1 2 3 4 5 6 7 8 9 10 11}
511 # Test: c_variable-4.85
512 # Desc: number of children of weird.long_array
513 mi_gdb_test "-var-info-num-children weird.long_array" \
514 "\\^done,numchild=\"12\"" \
515 "get number of children of weird.long_array"
517 # Test: c_variable-4.86
518 # Desc: children of weird.int_ptr_ptr
519 mi_list_varobj_children weird.int_ptr_ptr {
520 {{weird.int_ptr_ptr.\*int_ptr_ptr} {\*int_ptr_ptr} 1 {int \*}}
521 } "get children of weird.int_ptr_ptr"
522 #gdbtk_test c_variable-4.86 {children of weird->int_ptr_ptr} {
523 # get_children weird.int_ptr_ptr
526 # Test: c_variable-4.87
527 # Desc: number of children of weird.int_ptr_ptr
528 mi_gdb_test "-var-info-num-children weird.int_ptr_ptr" \
529 "\\^done,numchild=\"1\"" \
530 "get number of children of weird.int_ptr_ptr"
532 # Test: c_variable-4.88
533 # Desc: children of *weird->int_ptr_ptr
534 mi_list_varobj_children "weird.int_ptr_ptr.*int_ptr_ptr" {
535 {{weird.int_ptr_ptr.\*int_ptr_ptr.\*\*int_ptr_ptr} {\*\*int_ptr_ptr} 0 "int"}
536 } "get children of weird.int_ptr_ptr.*int_ptr_ptr"
537 #gdbtk_test c_variable-4.88 {children of *weird->int_ptr_ptr} {
538 # get_children weird.int_ptr_ptr.*int_ptr_ptr
541 # Test: c_variable-4.89
542 # Desc: number of children *weird->int_ptr_ptr
543 mi_gdb_test "-var-info-num-children weird.int_ptr_ptr.*int_ptr_ptr" \
544 "\\^done,numchild=\"1\"" \
545 "get number of children of weird.int_ptr_ptr.*int_ptr_ptr"
547 # Test: c_variable-4.90
548 # Desc: create weird->int_ptr_ptr
549 mi_create_varobj "weird->int_ptr_ptr" "weird->int_ptr_ptr" \
550 "create local variable weird->int_ptr_ptr"
552 # Test: c_variable-4.91
553 # Desc: children of weird->int_ptr_ptr
554 mi_list_varobj_children "weird->int_ptr_ptr" {
555 {{weird->int_ptr_ptr.\*weird->int_ptr_ptr} {\*weird->int_ptr_ptr} 1 {int \*}}
556 } "get children of weird->int_ptr_ptr"
558 # Test: c_variable-4.92
559 # Desc: number of children of (weird->int_ptr_ptr)
560 mi_gdb_test "-var-info-num-children weird->int_ptr_ptr" \
561 "\\^done,numchild=\"1\"" \
562 "get number of children of weird->int_ptr_ptr"
564 # Test: c_variable-4.93
565 # Desc: children of *(weird->int_ptr_ptr)
566 mi_list_varobj_children "weird->int_ptr_ptr.*weird->int_ptr_ptr" {
567 {{weird->int_ptr_ptr.\*weird->int_ptr_ptr.\*\*weird->int_ptr_ptr} \
568 {\*\*weird->int_ptr_ptr} 0 int}
569 } "get children of weird->int_ptr_ptr.*weird->int_ptr_ptr"
571 # Test: c_variable-4.94
572 # Desc: number of children of *(weird->int_ptr_ptr)
573 mi_gdb_test "-var-info-num-children weird->int_ptr_ptr.*weird->int_ptr_ptr" \
574 "\\^done,numchild=\"1\"" \
575 "get number of children of weird->int_ptr_ptr.*weird->int_ptr_ptr"
577 # Test: c_variable-4.95
578 # Desc: children of *(*(weird->int_ptr_ptr))
579 mi_list_varobj_children "weird->int_ptr_ptr.*weird->int_ptr_ptr.**weird->int_ptr_ptr" {} \
580 "get children of weird->int_ptr_ptr.*weird->int_ptr_ptr.**weird->int_ptr_ptr"
582 # Test: c_variable-4.96
583 # Desc: number of children of *(*(weird->int_ptr_ptr))
584 mi_list_varobj_children "weird->int_ptr_ptr.*weird->int_ptr_ptr.**weird->int_ptr_ptr" {} \
585 "get number of children of weird->int_ptr_ptr.*weird->int_ptr_ptr.**weird->int_ptr_ptr"
587 # Test: c_variable-4.97
588 # Desc: is weird editable
589 mi_gdb_test "-var-show-attributes weird" \
590 "\\^done,attr=\"editable\"" \
593 # Test: c_variable-4.98
594 # Desc: is weird->int_ptr_ptr editable
595 mi_gdb_test "-var-show-attributes weird->int_ptr_ptr" \
596 "\\^done,attr=\"editable\"" \
597 "is weird->int_ptr_ptr editable"
599 # Test: c_variable-4.99
600 # Desc: is *(weird->int_ptr_ptr) editable
601 mi_gdb_test "-var-show-attributes weird.int_ptr_ptr.*int_ptr_ptr" \
602 "\\^done,attr=\"editable\"" \
603 "is weird.int_ptr_ptr.*int_ptr_ptr editable"
605 # Test: c_variable-4.100
606 # Desc: is *(*(weird->int_ptr_ptr)) editable
607 mi_gdb_test "-var-show-attributes weird.int_ptr_ptr.*int_ptr_ptr.**int_ptr_ptr" \
608 "\\^done,attr=\"editable\"" \
609 "is weird.int_ptr_ptr.*int_ptr_ptr.**int_ptr_ptr editable"
611 # Test: c_variable-4.101
612 # Desc: is weird->u1 editable
613 mi_gdb_test "-var-show-attributes weird.u1" \
614 "\\^done,attr=\"noneditable\"" \
615 "is weird.u1 editable"
617 # Test: c_variable-4.102
618 # Desc: is weird->s2 editable
619 mi_gdb_test "-var-show-attributes weird.s2" \
620 "\\^done,attr=\"noneditable\"" \
621 "is weird.s2 editable"
623 # Test: c_variable-4.103
624 # Desc: is struct_declarations.u1.a editable
625 mi_gdb_test "-var-show-attributes struct_declarations.u1.a" \
626 "\\^done,attr=\"editable\"" \
627 "is struct_declarations.u1.a editable"
629 # Test: c_variable-4.104
630 # Desc: is struct_declarations.u1.b editable
631 mi_gdb_test "-var-show-attributes struct_declarations.u1.b" \
632 "\\^done,attr=\"editable\"" \
633 "is struct_declarations.u1.b editable"
635 # Test: c_variable-4.105
636 # Desc: is struct_declarations.u1.c editable
637 mi_gdb_test "-var-show-attributes struct_declarations.u1.c" \
638 "\\^done,attr=\"editable\"" \
639 "is struct_declarations.u1.c editable"
641 # Test: c_variable-4.106
642 # Desc: is struct_declarations.long_array editable
643 mi_gdb_test "-var-show-attributes struct_declarations.long_array" \
644 "\\^done,attr=\"noneditable\"" \
645 "is struct_declarations.long_array editable"
647 # Test: c_variable-4.107
648 # Desc: is struct_declarations.long_array[0] editable
649 mi_gdb_test "-var-show-attributes struct_declarations.long_array.0" \
650 "\\^done,attr=\"editable\"" \
651 "is struct_declarations.long_array.0 editable"
653 # Test: c_variable-4.108
654 # Desc: is struct_declarations editable
655 mi_gdb_test "-var-show-attributes struct_declarations" \
656 "\\^done,attr=\"noneditable\"" \
657 "is struct_declarations editable"
659 mi_gdb_test "-var-delete weird" \
660 "\\^done,ndeleted=\"26\"" \
665 # children and update tests #
669 # Test: c_variable-5.1
670 # Desc: check that nothing changed
671 mi_gdb_test "-var-update *" \
672 "\\^done,changelist=\\\[\\\]" \
673 "update all vars. None changed"
675 # Step over "struct_declarations.integer = 123;"
676 mi_step_to do_children_tests {} ".*${srcfile}" \
677 [expr $line_dct_123 + 1] "step \$line_dct_123 + 1"
679 # Test: c_variable-5.2
680 # Desc: check that integer changed
681 mi_gdb_test "-var-update *" \
682 "\\^done,changelist=\\\[\{name=\"struct_declarations.integer\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
683 "update all vars struct_declarations.integer"
686 # weird->char_ptr = "hello";
689 mi_execute_to "exec-step 3" "end-stepping-range" do_children_tests {} ".*${srcfile}" \
690 [expr $line_dct_123 + 4] {} "step \$line_dct_123 + 4"
692 # Test: c_variable-5.3
693 # Desc: check that char_ptr changed
694 mi_gdb_test "-var-update *" \
695 "\\^done,changelist=\\\[\{name=\"struct_declarations.char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"struct_declarations.char_ptr.\\*char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
696 "update all vars struct_declarations.char_ptr"
698 # Step over "struct_declarations.int_ptr_ptr = &foo;"
699 mi_step_to do_children_tests {} ".*${srcfile}" \
700 [expr $line_dct_123 + 5] "step \$line_dct_123 + 5"
702 # Test: c_variable-5.4
703 # Desc: check that int_ptr_ptr and children changed
704 mi_gdb_test "-var-update *" \
705 "\\^done,changelist=\\\[\{name=\"weird->int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"weird->int_ptr_ptr.\\*weird->int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"weird->int_ptr_ptr.\\*weird->int_ptr_ptr.\\*\\*weird->int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"struct_declarations.int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"struct_declarations.int_ptr_ptr.\\*int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"struct_declarations.int_ptr_ptr.\\*int_ptr_ptr.\\*\\*int_ptr_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
706 "update all vars int_ptr_ptr and children changed"
708 # Step over "weird->long_array[0] = 1234;"
709 mi_step_to do_children_tests {} ".*${srcfile}" \
710 [expr $line_dct_123 + 6] "step \$line_dct_123 + 6"
712 # Test: c_variable-5.5
713 # Desc: check that long_array[0] changed
714 mi_gdb_test "-var-update *" \
715 "\\^done,changelist=\\\[\{name=\"struct_declarations.long_array.0\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
716 "update all vars struct_declarations.long_array.0 changed"
718 # Step over "struct_declarations.long_array[1] = 2345;"
719 mi_step_to do_children_tests {} ".*${srcfile}" \
720 [expr $line_dct_123 + 7] "step \$line_dct_123 + 7"
722 # Test: c_variable-5.6
723 # Desc: check that long_array[1] changed
724 mi_gdb_test "-var-update *" \
725 "\\^done,changelist=\\\[\{name=\"struct_declarations.long_array.1\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
726 "update all vars struct_declarations.long_array.1 changed"
728 # Step over "weird->long_array[2] = 3456;"
729 mi_step_to do_children_tests {} ".*${srcfile}" \
730 [expr $line_dct_123 + 8] "step \$line_dct_123 + 8"
732 # Test: c_variable-5.7
733 # Desc: check that long_array[2] changed
734 mi_gdb_test "-var-update *" \
735 "\\^done,changelist=\\\[\{name=\"struct_declarations.long_array.2\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
736 "update all vars struct_declarations.long_array.2 changed"
739 # struct_declarations.long_array[3] = 4567;
740 # weird->long_array[4] = 5678;
741 # struct_declarations.long_array[5] = 6789;
742 # weird->long_array[6] = 7890;
743 # struct_declarations.long_array[7] = 8901;
744 # weird->long_array[8] = 9012;
745 # struct_declarations.long_array[9] = 1234;
747 set line_dct_nothing [gdb_get_line_number "weird->func_ptr = nothing;"]
748 mi_execute_to "exec-step 7" "end-stepping-range" do_children_tests {} ".*${srcfile}" \
749 $line_dct_nothing {} "step \$line_dct_nothing"
751 # Test: c_variable-5.8
752 # Desc: check that long_array[3-9] changed
753 mi_gdb_test "-var-update *" \
754 "\\^done,changelist=\\\[\{name=\"struct_declarations.long_array.3\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"struct_declarations.long_array.4\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"struct_declarations.long_array.5\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"struct_declarations.long_array.6\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"struct_declarations.long_array.7\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"struct_declarations.long_array.8\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"struct_declarations.long_array.9\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
755 "update all vars struct_declarations.long_array.3-9 changed"
758 # Step over "weird->func_ptr = nothing";
759 mi_step_to do_children_tests {} ".*${srcfile}" \
760 [expr $line_dct_nothing + 1] "step \$line_dct_nothing + 1"
762 # Test: c_variable-5.9
763 # Desc: check that func_ptr changed
764 mi_gdb_test "-var-update *" \
765 "\\^done,changelist=\\\[\{name=\"struct_declarations.func_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
766 "update all vars struct_declarations.func_ptr changed"
768 # Step over "struct_declarations.long_array[10] = 3456";
769 mi_step_to do_children_tests {} ".*${srcfile}" \
770 [expr $line_dct_nothing + 2] "step \$line_dct_nothing + 2"
772 mi_gdb_test "-var-update --no-values *" \
773 "\\^done,changelist=\\\[\{name=\"struct_declarations.long_array.10\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
774 "update all vars struct_declarations.long_array.10 changed, don't print values."
776 # Step over "struct_declarations.long_array[11] = 5678";
777 set line_dct_a0_0 [gdb_get_line_number "a0\[0\] = '0';"]
778 mi_step_to do_children_tests {} ".*${srcfile}" \
779 $line_dct_a0_0 "step \$line_dct_a0_0"
781 mi_gdb_test "-var-update --all-values *" \
782 "\\^done,changelist=\\\[\{name=\"struct_declarations.long_array.11\",value=\"5678\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
783 "update all vars struct_declarations.long_array.11 changed, print values."
785 mi_list_varobj_children {struct_declarations.long_array --all-values} {
786 {struct_declarations.long_array.0 0 0 "long" 1234}
787 {struct_declarations.long_array.1 1 0 "long" 2345}
788 {struct_declarations.long_array.2 2 0 "long" 3456}
789 {struct_declarations.long_array.3 3 0 "long" 4567}
790 {struct_declarations.long_array.4 4 0 "long" 5678}
791 {struct_declarations.long_array.5 5 0 "long" 6789}
792 {struct_declarations.long_array.6 6 0 "long" 7890}
793 {struct_declarations.long_array.7 7 0 "long" 8901}
794 {struct_declarations.long_array.8 8 0 "long" 9012}
795 {struct_declarations.long_array.9 9 0 "long" 1234}
796 {struct_declarations.long_array.10 10 0 "long" 3456}
797 {struct_declarations.long_array.11 11 0 "long" 5678}
798 } "listing of names and values of children"
800 mi_list_varobj_children {struct_declarations --simple-values} \
802 {struct_declarations.integer integer 0 int 123} \
803 {struct_declarations.character character 0 char {0 '\\\\000'}} \
804 [list struct_declarations.char_ptr char_ptr 1 "char \\*" "$hex \\\\\"hello\\\\\""] \
805 {struct_declarations.long_int long_int 0 "long" 0} \
806 [list struct_declarations.int_ptr_ptr int_ptr_ptr 1 "int \\*\\*" "$hex"] \
807 {struct_declarations.long_array long_array 12 "long \\[12\\]"} \
808 [list struct_declarations.func_ptr func_ptr 0 "void \\(\\*\\)\\((void)?\\)" "(@$hex: |)$hex <nothing>"] \
809 {struct_declarations.func_ptr_struct func_ptr_struct 0 \
810 "struct _struct_decl \\(\\*\\)(\\(int, char \\*, long\\))?" 0x0} \
811 {struct_declarations.func_ptr_ptr func_ptr_ptr 0 \
812 "struct _struct_decl \\*\\(\\*\\)\\((int, char \\*, long)?\\)" 0x0} \
813 {struct_declarations.u1 u1 4 "union \\{\\.\\.\\.\\}"} \
814 {struct_declarations.s2 s2 4 "struct \\{\\.\\.\\.\\}"} \
815 ] "listing of children, simple types: names, type and values, complex types: names and types"
817 # Delete all variables
818 mi_gdb_test "-var-delete struct_declarations" \
819 "\\^done,ndeleted=\"67\"" \
820 "delete var struct_declarations"
822 mi_gdb_test "-var-delete weird->int_ptr_ptr" \
823 "\\^done,ndeleted=\"3\"" \
824 "delete var weird->int_ptr_ptr"
826 # Step over all lines:
830 set line_dct_snp0 [gdb_get_line_number "psnp = &snp0;"]
831 mi_execute_to "exec-step 43" "end-stepping-range" do_children_tests {} ".*${srcfile}" \
832 [expr $line_dct_snp0 + 1] {} "step \$line_dct_snp0 + 1"
834 # Test: c_variable-5.10
835 # Desc: create psnp->char_ptr
836 mi_create_varobj "psnp->char_ptr" "psnp->char_ptr" \
837 "create local variable psnp->char_ptr"
839 # Test: c_variable-5.11
840 # Desc: children of psnp->char_ptr
841 mi_list_varobj_children "psnp->char_ptr" {
842 {{psnp->char_ptr.\*psnp->char_ptr} {\*psnp->char_ptr} 1 {char \*\*\*}}
843 } "get children of psnp->char_ptr"
845 # Test: c_variable-5.12
846 # Desc: number of children of psnp->char_ptr
847 mi_gdb_test "-var-info-num-children psnp->char_ptr" \
848 "\\^done,numchild=\"1\"" \
849 "get number of children of psnp->char_ptr"
851 # Test: c_variable-5.13
852 # Desc: children of *(psnp->char_ptr)
853 mi_list_varobj_children "psnp->char_ptr.*psnp->char_ptr" {
854 {{psnp->char_ptr.\*psnp->char_ptr.\*\*psnp->char_ptr} \
855 {\*\*psnp->char_ptr} 1 {char \*\*}}
856 } "get children of psnp->char_ptr.*psnp->char_ptr"
858 # Test: c_variable-5.14
859 # Desc: number of children of *(psnp->char_ptr)
860 mi_gdb_test "-var-info-num-children psnp->char_ptr.*psnp->char_ptr" \
861 "\\^done,numchild=\"1\"" \
862 "get number of children of psnp->char_ptr.*psnp->char_ptr"
864 # Test: c_variable-5.15
865 # Desc: children of *(*(psnp->char_ptr))
866 mi_list_varobj_children "psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr" {
867 {{psnp->char_ptr.\*psnp->char_ptr.\*\*psnp->char_ptr.\*\*\*psnp->char_ptr} \
868 {\*\*\*psnp->char_ptr} 1 {char \*}}
869 } "get children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr"
871 # Test: c_variable-5.15B
872 # Desc: children of *(*(*(psnp->char_ptr)))
873 mi_list_varobj_children "psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr" {
874 {{psnp->char_ptr.\*psnp->char_ptr.\*\*psnp->char_ptr.\*\*\*psnp->char_ptr.\*\*\*\*psnp->char_ptr} \
875 {\*\*\*\*psnp->char_ptr} 0 char}
876 } "get children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr"
878 # Test: c_variable-5.16
879 # Desc: number of children of *(*(psnp->char_ptr))
880 mi_gdb_test "-var-info-num-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr" \
881 "\\^done,numchild=\"1\"" \
882 "get number of children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr"
884 # Test: c_variable-5.17
885 # Desc: children of *(*(*(psnp->char_ptr)))
886 mi_list_varobj_children "psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr" {
887 {{psnp->char_ptr.\*psnp->char_ptr.\*\*psnp->char_ptr.\*\*\*psnp->char_ptr.\*\*\*\*psnp->char_ptr} \
888 {\*\*\*\*psnp->char_ptr} 0 char}
889 } "get children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr"
891 # Test: c_variable-5.18
892 # Desc: number of children of *(*(*(psnp->char_ptr)))
893 mi_gdb_test "-var-info-num-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr" \
894 "\\^done,numchild=\"1\"" \
895 "get number of children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr"
897 # Test: c_variable-5.17B
898 # Desc: children of *(*(*(*(psnp->char_ptr))))
899 mi_list_varobj_children "psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr" {} \
900 "get children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr"
902 # Test: c_variable-5.18B
903 # Desc: number of children of *(*(*(*(psnp->char_ptr))))
904 mi_gdb_test "-var-info-num-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr" \
905 "\\^done,numchild=\"0\"" \
906 "get number of children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr"
908 # Test: c_variable-5.19
909 # Desc: create psnp->long_ptr
910 mi_create_varobj "psnp->long_ptr" "psnp->long_ptr" \
911 "create local variable psnp->long_ptr"
913 # Test: c_variable-5.20
914 # Desc: children of psnp->long_ptr
915 mi_list_varobj_children "psnp->long_ptr" {
916 {{psnp->long_ptr.\*psnp->long_ptr} {\*psnp->long_ptr} 1 {long \*\*\*}}
917 } "get children of psnp->long_ptr"
919 # Test: c_variable-5.21
920 # Desc: number of children of psnp->long_ptr
921 mi_gdb_test "-var-info-num-children psnp->long_ptr" \
922 "\\^done,numchild=\"1\"" \
923 "get number of children of psnp->long_ptr"
925 # Test: c_variable-5.22
926 # Desc: children of *(psnp->long_ptr)
927 mi_list_varobj_children "psnp->long_ptr.*psnp->long_ptr" {
928 {{psnp->long_ptr.\*psnp->long_ptr.\*\*psnp->long_ptr} {\*\*psnp->long_ptr} 1 {long \*\*}}
929 } "get children of psnp->long_ptr.*psnp->long_ptr"
932 # Test: c_variable-5.23
933 # Desc: number of children of *(psnp->long_ptr)
934 mi_gdb_test "-var-info-num-children psnp->long_ptr.*psnp->long_ptr" \
935 "\\^done,numchild=\"1\"" \
936 "get number of children of psnp->long_ptr.*psnp->long_ptr"
938 # Test: c_variable-5.24
939 # Desc: children of *(*(psnp->long_ptr))
940 mi_list_varobj_children "psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr" {
941 {{psnp->long_ptr.\*psnp->long_ptr.\*\*psnp->long_ptr.\*\*\*psnp->long_ptr} \
942 {\*\*\*psnp->long_ptr} 1 {long \*}}
943 } "get children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr"
945 # Test: c_variable-5.25
946 # Desc: number of children of *(*(psnp->long_ptr))
947 mi_gdb_test "-var-info-num-children psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr" \
948 "\\^done,numchild=\"1\"" \
949 "get number of children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr"
951 # Test: c_variable-5.26
952 # Desc: children of *(*(*(psnp->long_ptr)))
953 mi_list_varobj_children "psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr" {
954 {{psnp->long_ptr.\*psnp->long_ptr.\*\*psnp->long_ptr.\*\*\*psnp->long_ptr.\*\*\*\*psnp->long_ptr}
955 {\*\*\*\*psnp->long_ptr} 0 {long}}
956 } "get children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr"
958 # Test: c_variable-5.27
959 # Desc: number of children of *(*(*(psnp->long_ptr)))
960 mi_gdb_test "-var-info-num-children psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr" \
961 "\\^done,numchild=\"1\"" \
962 "get number of children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr"
964 # Test: c_variable-5.28
965 # Desc: children of *(*(*(*(psnp->long_ptr))))
966 mi_list_varobj_children "psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr" {} \
967 "get children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr"
969 # Test: c_variable-5.29
970 # Desc: number of children of *(*(*(*(psnp->long_ptr))))
971 mi_gdb_test "-var-info-num-children psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr" \
972 "\\^done,numchild=\"0\"" \
973 "get number of children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr"
975 # Test: c_variable-5.30
976 # Desc: create psnp->ptrs
977 mi_create_varobj "psnp->ptrs" "psnp->ptrs" \
978 "create local variable psnp->ptrs"
980 # Test: c_variable-5.31
981 # Desc: children of psnp->ptrs
982 mi_list_varobj_children "psnp->ptrs" {
983 {psnp->ptrs.0 0 4 {struct _struct_n_pointer \*}}
984 {psnp->ptrs.1 1 4 {struct _struct_n_pointer \*}}
985 {psnp->ptrs.2 2 4 {struct _struct_n_pointer \*}}
986 } "get children of psnp->ptrs"
988 # Test: c_variable-5.32
989 # Desc: number of children of psnp->ptrs
990 mi_gdb_test "-var-info-num-children psnp->ptrs" \
991 "\\^done,numchild=\"3\"" \
992 "get number of children of psnp->ptrs"
994 # Test: c_variable-5.33
995 # Desc: children of psnp->ptrs[0]
996 mi_list_varobj_children "psnp->ptrs.0" {
997 {psnp->ptrs.0.char_ptr char_ptr 1 {char \*\*\*\*}}
998 {psnp->ptrs.0.long_ptr long_ptr 1 {long \*\*\*\*}}
999 {psnp->ptrs.0.ptrs ptrs 3 {struct _struct_n_pointer \*\[3\]}}
1000 {psnp->ptrs.0.next next 4 {struct _struct_n_pointer \*}}
1001 } "get children of psnp->ptrs.0"
1003 # Test: c_variable-5.34
1004 # Desc: number of children of psnp->ptrs[0]
1005 mi_gdb_test "-var-info-num-children psnp->ptrs.0" \
1006 "\\^done,numchild=\"4\"" \
1007 "get number of children of psnp->ptrs.0"
1009 # Test: c_variable-5.35
1010 # Desc: children of psnp->ptrs[0]->next
1011 mi_list_varobj_children "psnp->ptrs.0.next" {
1012 {psnp->ptrs.0.next.char_ptr char_ptr 1 {char \*\*\*\*}}
1013 {psnp->ptrs.0.next.long_ptr long_ptr 1 {long \*\*\*\*}}
1014 {psnp->ptrs.0.next.ptrs ptrs 3 {struct _struct_n_pointer \*\[3\]}}
1015 {psnp->ptrs.0.next.next next 4 {struct _struct_n_pointer \*}}
1016 } "get children of psnp->ptrs.0.next"
1018 #} {char_ptr long_ptr ptrs next}
1020 # Test: c_variable-5.36
1021 # Desc: number of children of psnp->ptrs[0]->next
1022 mi_gdb_test "-var-info-num-children psnp->ptrs.0.next" \
1023 "\\^done,numchild=\"4\"" \
1024 "get number of children of psnp->ptrs.0.next"
1027 # Test: c_variable-5.37
1028 # Desc: children of psnp->ptrs[0]->next->char_ptr
1029 mi_list_varobj_children "psnp->ptrs.0.next.char_ptr" {
1030 {{psnp->ptrs.0.next.char_ptr.\*char_ptr} {\*char_ptr} 1 {char \*\*\*}}
1031 } "get children of psnp->ptrs.0.next.char_ptr"
1033 #gdbtk_test c_variable-5.37 {children of psnp->ptrs[0]->next->char_ptr} {
1034 # get_children psnp->ptrs.0.next.char_ptr
1037 # Test: c_variable-5.38
1038 # Desc: number of children of psnp->ptrs[0]->next->char_ptr
1039 mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr" \
1040 "\\^done,numchild=\"1\"" \
1041 "get number of children of psnp->ptrs.0.next.char_ptr"
1043 # Test: c_variable-5.39
1044 # Desc: children of *psnp->ptrs[0]->next->char_ptr
1045 mi_list_varobj_children "psnp->ptrs.0.next.char_ptr.*char_ptr" {
1046 {{psnp->ptrs.0.next.char_ptr.\*char_ptr.\*\*char_ptr} {\*\*char_ptr} 1 {char \*\*}}
1047 } "get children of psnp->ptrs.0.next.char_ptr.*char_ptr"
1049 # Test: c_variable-5.40
1050 # Desc: number of children of *psnp->ptrs[0]->next->char_ptr
1051 mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr.*char_ptr" \
1052 "\\^done,numchild=\"1\"" \
1053 "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr"
1055 # Test: c_variable-5.41
1056 # Desc: children of **psnp->ptrs[0]->next->char_ptr
1057 mi_list_varobj_children "psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr" {
1058 {{psnp->ptrs.0.next.char_ptr.\*char_ptr.\*\*char_ptr.\*\*\*char_ptr} \
1059 {\*\*\*char_ptr} 1 {char \*}}
1060 } "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr"
1062 # Test: c_variable-5.41B
1063 # Desc: children of ***psnp->ptrs[0]->next->char_ptr
1064 mi_list_varobj_children "psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr" {
1065 {{psnp->ptrs.0.next.char_ptr.\*char_ptr.\*\*char_ptr.\*\*\*char_ptr.\*\*\*\*char_ptr} \
1066 {\*\*\*\*char_ptr} 0 char}
1067 } "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr"
1069 # Test: c_variable-5.42
1070 # Desc: number of children of **psnp->ptrs[0]->next->char_ptr
1071 mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr" \
1072 "\\^done,numchild=\"1\"" \
1073 "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr"
1075 # Test: c_variable-5.43
1076 # Desc: children of ***psnp->ptrs[0]->next->char_ptr
1077 mi_list_varobj_children "psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr" {
1078 {{psnp->ptrs.0.next.char_ptr.\*char_ptr.\*\*char_ptr.\*\*\*char_ptr.\*\*\*\*char_ptr} \
1079 {\*\*\*\*char_ptr} 0 char}
1080 } "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1082 # Test: c_variable-5.44
1083 # Desc: number of children of ***psnp->ptrs[0]->next->char_ptr
1084 mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr" \
1085 "\\^done,numchild=\"1\"" \
1086 "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1088 # Test: c_variable-5.43B
1089 # Desc: children of ****psnp->ptrs[0]->next->char_ptr
1090 mi_list_varobj_children "psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr.****char_ptr" {} \
1091 "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1093 # Test: c_variable-5.44B
1094 # Desc: number of children of ****psnp->ptrs[0]->next->char_ptr
1095 mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr.****char_ptr" \
1096 "\\^done,numchild=\"0\"" \
1097 "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1099 # Test: c_variable-5.45
1100 # Desc: children of psnp->ptrs[0]->next->next
1101 mi_list_varobj_children "psnp->ptrs.0.next.next" {
1102 {psnp->ptrs.0.next.next.char_ptr char_ptr 1 {char \*\*\*\*}}
1103 {psnp->ptrs.0.next.next.long_ptr long_ptr 1 {long \*\*\*\*}}
1104 {psnp->ptrs.0.next.next.ptrs ptrs 3 {struct _struct_n_pointer \*\[3\]}}
1105 {psnp->ptrs.0.next.next.next next 4 {struct _struct_n_pointer \*}}
1106 } "get children of psnp->ptrs.0.next.next"
1108 # Test: c_variable-5.46
1109 # Desc: children of psnp->ptrs[0]->next->next->ptrs
1110 mi_list_varobj_children "psnp->ptrs.0.next.next.ptrs" {
1111 {psnp->ptrs.0.next.next.ptrs.0 0 4 {struct _struct_n_pointer \*}}
1112 {psnp->ptrs.0.next.next.ptrs.1 1 4 {struct _struct_n_pointer \*}}
1113 {psnp->ptrs.0.next.next.ptrs.2 2 4 {struct _struct_n_pointer \*}}
1114 } "get children of psnp->ptrs.0.next.next.ptrs"
1116 # Step over "snp0.char_ptr = &b3;"
1117 mi_step_to do_children_tests {} ".*${srcfile}" \
1118 [expr $line_dct_snp0 + 2] "step \$line_dct_snp0 + 2"
1120 # Test: c_variable-5.47
1121 # Desc: check that psnp->char_ptr (and [0].char_ptr) changed
1122 mi_gdb_test "-var-update *" \
1123 "\\^done,changelist=\\\[\{name=\"psnp->ptrs.0.char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->char_ptr.\\*psnp->char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr.\\*\\*\\*psnp->char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr.\\*\\*\\*psnp->char_ptr.\\*\\*\\*\\*psnp->char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
1124 "update all vars psnp->char_ptr (and 0.char_ptr) changed"
1126 # Step over "snp1.char_ptr = &c3;"
1127 mi_step_to do_children_tests {} ".*${srcfile}" \
1128 [expr $line_dct_snp0 + 3] "step \$line_dct_snp0 + 3"
1130 # Test: c_variable-5.48
1131 # Desc: check that psnp->next->char_ptr (and [1].char_ptr) changed
1132 mi_gdb_test "-var-update *" \
1133 "\\^done,changelist=\\\[\{name=\"psnp->ptrs.0.next.char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr.\\*\\*\\*char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr.\\*\\*\\*char_ptr.\\*\\*\\*\\*char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
1134 "update all vars psnp->next->char_ptr (and 1.char_ptr) changed"
1137 # Step over "snp2.char_ptr = &a3;"
1138 mi_step_to do_children_tests {} ".*${srcfile}" \
1139 [expr $line_dct_snp0 + 4] "step \$line_dct_snp0 + 4"
1141 # Test: c_variable-5.49
1142 # Desc: check that psnp->next->next->char_ptr (and [2].char_ptr) changed
1143 mi_gdb_test "-var-update *" \
1144 "\\^done,changelist=\\\[\{name=\"psnp->ptrs.0.next.next.char_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
1145 "update all vars psnp->next->next->char_ptr (and 2.char_ptr) changed"
1148 # Step over "snp0.long_ptr = &y3;"
1149 mi_step_to do_children_tests {} ".*${srcfile}" \
1150 [expr $line_dct_snp0 + 5] "step \$line_dct_snp0 + 5"
1152 # Test: c_variable-5.50
1153 # Desc: check that psnp->long_ptr (and [0].long_ptr) changed
1154 mi_gdb_test "-var-update *" \
1155 "\\^done,changelist=\\\[\{name=\"psnp->ptrs.0.long_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->long_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->long_ptr.\\*psnp->long_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr.\\*\\*\\*psnp->long_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\},\{name=\"psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr.\\*\\*\\*psnp->long_ptr.\\*\\*\\*\\*psnp->long_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
1156 "update all vars psnp->long_ptr (and 0.long_ptr) changed"
1159 # Step over "snp1.long_ptr = &x3;"
1160 mi_step_to do_children_tests {} ".*${srcfile}" \
1161 [expr $line_dct_snp0 + 6] "step \$line_dct_snp0 + 6"
1163 # Test: c_variable-5.51
1164 # Desc: check that psnp->next->long_ptr (and [1].long_ptr) changed
1165 # Why does this have a FIXME?
1167 mi_gdb_test "-var-update *" \
1168 "FIXME\\^done,changelist=\\\[\{name=\"psnp->ptrs.0.next.long_ptr\",in_scope_changed=\"false\"\}\\\]" \
1169 "update all vars psnp->next->long_ptr (and 1.long_ptr) changed"
1172 # This command produces this error message:
1173 # &"warning: varobj_list: assertion failed - mycount <> 0\n"
1176 # Step over "snp2.long_ptr = &z3;"
1177 mi_step_to do_children_tests {} ".*${srcfile}" \
1178 [expr $line_dct_snp0 + 7] "step \$line_dct_snp0 + 7"
1180 # Test: c_variable-5.52
1181 # Desc: check that psnp->next->next->long_ptr (and [2].long_ptr) changed
1182 mi_gdb_test "-var-update *" \
1183 "\\^done,changelist=\\\[\{name=\"psnp->ptrs.0.next.next.long_ptr\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
1184 "update all vars psnp->next->next->long_ptr (and 2.long_ptr) changed"
1186 mi_prepare_inline_tests $srcfile
1188 mi_run_inline_test child_deletion