gdb/testsuite/gdb.mi/mi-var-child.exp

   1 # Copyright 1999-2019 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16 # Test essential Machine interface (MI) operations
  17 #
  18 # Verify that, using the MI, we can create, update, delete variables.
  19 #
  20
  21
  22 load_lib mi-support.exp
  23 set MIFLAGS "-i=mi"
  24
  25 gdb_exit
  26 if [mi_gdb_start] {
  27     continue
  28 }
  29
  30 standard_testfile
  31
  32 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
  33     untested "failed to compile"
  34     return -1
  35 }
  36
  37 mi_delete_breakpoints
  38 mi_gdb_reinitialize_dir $srcdir/$subdir
  39 mi_gdb_load ${binfile}
  40
  41 mi_runto do_children_tests
  42
  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"
  45
  46
  47 #####        #####
  48 #                #
  49 # children tests #
  50 #                #
  51 #####        #####
  52
  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"
  57
  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
  61 # Dwarf 2 does.
  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"
  77
  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}
  81
  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"
  87
  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"
  92
  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"
  98
  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"
 103
 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"
 109
 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"
 115
 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"
 121
 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"
 126
 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"
 132
 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"
 138
 139 #gdbtk_test c_variable-4.13 {children of int_ptr_ptr} {
 140 #  get_children struct_declarations.int_ptr_ptr
 141 #} {*int_ptr_ptr}
 142
 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"
 148
 149
 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 \
 153     "long" \
 154     "get children of struct_declarations.long_array"
 155
 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"
 161
 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"
 166
 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"
 172
 173
 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"
 178
 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"
 184
 185
 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"
 190
 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"
 196
 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"
 205
 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"
 211
 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"
 220
 221 #gdbtk_test c_variable-4.25 {children of struct_declarations.s2} {
 222 #  get_children struct_declarations.s2
 223 #} {u2 g h i}
 224
 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"
 230
 231
 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"
 235
 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"
 239 }
 240
 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"
 245
 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"
 251
 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"
 257
 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"
 263
 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"
 268
 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"
 274
 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"
 279
 280
 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"
 286
 287
 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"
 295
 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"
 301
 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"
 306
 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"
 312
 313
 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"
 318
 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"
 324
 325
 326 # Test: c_variable-4.59
 327 # Desc: children of struct_declarations.s2.i
 328 set t {}
 329 for {set i 0} {$i < 10} {incr i} {
 330     lappend t [list struct_declarations.s2.i.$i $i 0 "long"]
 331 }
 332 mi_list_varobj_children struct_declarations.s2.i $t \
 333         "get children of struct_declarations.s2.i"
 334
 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"
 340
 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"
 349
 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"
 355
 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"
 360
 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"
 366
 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"
 373
 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"
 379
 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"
 384
 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"
 390
 391 # Test: c_variable-4.69
 392 # Desc: children of struct_declarations.s2.u2.u1s1.e
 393 set t {}
 394 for {set i 0} {$i < 10} {incr i} {
 395     lappend t [list struct_declarations.s2.u2.u1s1.e.$i $i 0 char]
 396 }
 397 mi_list_varobj_children struct_declarations.s2.u2.u1s1.e $t \
 398         "get children of struct_declarations.s2.u2.u1s1.e"
 399
 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"
 405
 406
 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"
 411
 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"
 417
 418
 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"
 423
 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"
 429
 430
 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"
 437
 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"
 443
 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"
 448
 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"
 454
 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"
 461
 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"
 467
 468
 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"
 473
 474 # Test: c_variable-4.81
 475 # Desc: create local variable "weird"
 476 mi_create_varobj weird weird "create local variable weird"
 477
 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"
 495
 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"
 501
 502
 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}
 510
 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"
 516
 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
 524 #} {*int_ptr_ptr}
 525
 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"
 531
 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
 539 #} {**int_ptr_ptr}
 540
 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"
 546
 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"
 551
 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"
 557
 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"
 563
 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"
 570
 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"
 576
 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"
 581
 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"
 586
 587 # Test: c_variable-4.97
 588 # Desc: is weird editable
 589 mi_gdb_test "-var-show-attributes weird" \
 590         "\\^done,attr=\"editable\"" \
 591         "is weird editable"
 592
 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"
 598
 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"
 604
 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"
 610
 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"
 616
 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"
 622
 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"
 628
 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"
 634
 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"
 640
 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"
 646
 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"
 652
 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"
 658
 659 mi_gdb_test "-var-delete weird" \
 660         "\\^done,ndeleted=\"26\"" \
 661         "delete var weird"
 662
 663 #####                         #####
 664 #                                 #
 665 # children and update tests #
 666 #                                 #
 667 #####                         #####
 668
 669 # Test: c_variable-5.1
 670 # Desc: check that nothing changed
 671 mi_varobj_update * {} "update all vars. None changed"
 672
 673 # Step over "struct_declarations.integer = 123;"
 674 mi_step_to do_children_tests {} ".*${srcfile}" \
 675     [expr $line_dct_123 + 1] "step \$line_dct_123 + 1"
 676
 677 # Test: c_variable-5.2
 678 # Desc: check that integer changed
 679 mi_varobj_update * {struct_declarations.integer} \
 680         "update all vars struct_declarations.integer"
 681
 682 # Step over:
 683 #    weird->char_ptr = "hello";
 684 #    bar = 2121;
 685 #    foo = &bar;
 686 mi_execute_to "exec-step 3" "end-stepping-range" do_children_tests {} ".*${srcfile}" \
 687     [expr $line_dct_123 + 4] {} "step \$line_dct_123 + 4"
 688
 689 # Test: c_variable-5.3
 690 # Desc: check that char_ptr changed
 691 mi_varobj_update * {struct_declarations.char_ptr struct_declarations.char_ptr.\\*char_ptr} \
 692         "update all vars struct_declarations.char_ptr"
 693
 694 # Step over "struct_declarations.int_ptr_ptr = &foo;"
 695 mi_step_to do_children_tests {} ".*${srcfile}" \
 696     [expr $line_dct_123 + 5] "step \$line_dct_123 + 5"
 697
 698 # Test: c_variable-5.4
 699 # Desc: check that int_ptr_ptr and children changed
 700 mi_varobj_update * {weird->int_ptr_ptr
 701     weird->int_ptr_ptr.\\*weird->int_ptr_ptr
 702     weird->int_ptr_ptr.\\*weird->int_ptr_ptr.\\*\\*weird->int_ptr_ptr
 703     struct_declarations.int_ptr_ptr
 704     struct_declarations.int_ptr_ptr.\\*int_ptr_ptr
 705     struct_declarations.int_ptr_ptr.\\*int_ptr_ptr.\\*\\*int_ptr_ptr} \
 706         "update all vars int_ptr_ptr and children changed"
 707
 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"
 711
 712 # Test: c_variable-5.5
 713 # Desc: check that long_array[0] changed
 714 mi_varobj_update * {struct_declarations.long_array.0} \
 715         "update all vars struct_declarations.long_array.0 changed"
 716
 717 # Step over "struct_declarations.long_array[1] = 2345;"
 718 mi_step_to do_children_tests {} ".*${srcfile}" \
 719     [expr $line_dct_123 + 7] "step \$line_dct_123 + 7"
 720
 721 # Test: c_variable-5.6
 722 # Desc: check that long_array[1] changed
 723 mi_varobj_update * {struct_declarations.long_array.1} \
 724         "update all vars struct_declarations.long_array.1 changed"
 725
 726 # Step over "weird->long_array[2] = 3456;"
 727 mi_step_to do_children_tests {} ".*${srcfile}" \
 728     [expr $line_dct_123 + 8] "step \$line_dct_123 + 8"
 729
 730 # Test: c_variable-5.7
 731 # Desc: check that long_array[2] changed
 732 mi_varobj_update * {struct_declarations.long_array.2} \
 733         "update all vars struct_declarations.long_array.2 changed"
 734
 735 # Step over:
 736 #    struct_declarations.long_array[3] = 4567;
 737 #    weird->long_array[4] = 5678;
 738 #    struct_declarations.long_array[5] = 6789;
 739 #    weird->long_array[6] = 7890;
 740 #    struct_declarations.long_array[7] = 8901;
 741 #    weird->long_array[8] = 9012;
 742 #    struct_declarations.long_array[9] = 1234;
 743
 744 set line_dct_nothing [gdb_get_line_number "weird->func_ptr = nothing;"]
 745 mi_execute_to "exec-step 7" "end-stepping-range" do_children_tests {} ".*${srcfile}" \
 746     $line_dct_nothing {} "step \$line_dct_nothing"
 747
 748 # Test: c_variable-5.8
 749 # Desc: check that long_array[3-9] changed
 750 mi_varobj_update * {struct_declarations.long_array.3
 751     struct_declarations.long_array.4
 752     struct_declarations.long_array.5
 753     struct_declarations.long_array.6
 754     struct_declarations.long_array.7
 755     struct_declarations.long_array.8
 756     struct_declarations.long_array.9} \
 757     "update all vars struct_declarations.long_array.3-9 changed"
 758
 759
 760 # Step over "weird->func_ptr = nothing";
 761 mi_step_to do_children_tests {} ".*${srcfile}" \
 762     [expr $line_dct_nothing + 1] "step \$line_dct_nothing + 1"
 763
 764 # Test: c_variable-5.9
 765 # Desc: check that func_ptr changed
 766 mi_varobj_update * {struct_declarations.func_ptr} \
 767     "update all vars struct_declarations.func_ptr changed"
 768
 769 # Step over "weird->func_ptr_struct = nothing1"
 770 mi_step_to do_children_tests {} ".*${srcfile}" \
 771     [expr $line_dct_nothing + 2] "step \$line_dct_nothing + 2"
 772 mi_varobj_update * {struct_declarations.func_ptr_struct} \
 773     "update all vars struct_declarations.func_ptr_struct changed"
 774
 775 # Step over "weird->func_ptr_ptr = nothing2"
 776 mi_step_to do_children_tests {} ".*${srcfile}" \
 777     [expr $line_dct_nothing + 3] "step \$line_dct_nothing + 3"
 778 mi_varobj_update * {struct_declarations.func_ptr_ptr} \
 779     "update all vars struct_declarations.func_ptr_ptr changed"
 780
 781 # Step over "struct_declarations.long_array[10] = 3456";
 782 mi_step_to do_children_tests {} ".*${srcfile}" \
 783     [expr $line_dct_nothing + 4] "step \$line_dct_nothing + 4"
 784
 785 mi_gdb_test "-var-update --no-values *" \
 786         "\\^done,changelist=\\\[\{name=\"struct_declarations.long_array.10\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
 787  "update all vars struct_declarations.long_array.10 changed, don't print values."
 788
 789 # Step over "struct_declarations.long_array[11] = 5678";
 790 set line_dct_a0_0 [gdb_get_line_number "a0\[0\] = '0';"]
 791 mi_step_to  do_children_tests {} ".*${srcfile}" \
 792     $line_dct_a0_0 "step \$line_dct_a0_0"
 793
 794 mi_gdb_test "-var-update --all-values *" \
 795         "\\^done,changelist=\\\[\{name=\"struct_declarations.long_array.11\",value=\"5678\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
 796  "update all vars struct_declarations.long_array.11 changed, print values."
 797
 798 mi_list_varobj_children {struct_declarations.long_array --all-values} {
 799     {struct_declarations.long_array.0 0 0 "long" 1234}
 800     {struct_declarations.long_array.1 1 0 "long" 2345}
 801     {struct_declarations.long_array.2 2 0 "long" 3456}
 802     {struct_declarations.long_array.3 3 0 "long" 4567}
 803     {struct_declarations.long_array.4 4 0 "long" 5678}
 804     {struct_declarations.long_array.5 5 0 "long" 6789}
 805     {struct_declarations.long_array.6 6 0 "long" 7890}
 806     {struct_declarations.long_array.7 7 0 "long" 8901}
 807     {struct_declarations.long_array.8 8 0 "long" 9012}
 808     {struct_declarations.long_array.9 9 0 "long" 1234}
 809     {struct_declarations.long_array.10 10 0 "long" 3456}
 810     {struct_declarations.long_array.11 11 0 "long" 5678}
 811 } "listing of names and values of children"
 812
 813 mi_list_varobj_children {struct_declarations --simple-values} \
 814     [list \
 815          {struct_declarations.integer integer 0 int 123} \
 816          {struct_declarations.character character 0 char {0 '\\\\000'}} \
 817          [list struct_declarations.char_ptr char_ptr 1 "char \\*" "$hex \\\\\"hello\\\\\""] \
 818          {struct_declarations.long_int long_int 0 "long" 0} \
 819          [list struct_declarations.int_ptr_ptr int_ptr_ptr 1 "int \\*\\*" "$hex"] \
 820          {struct_declarations.long_array long_array 12 "long \\[12\\]"} \
 821          [list struct_declarations.func_ptr func_ptr 0 "void \\(\\*\\)\\((void)?\\)" "(@$hex: |)$hex <nothing>"] \
 822          [list struct_declarations.func_ptr_struct func_ptr_struct 0 \
 823               "struct _struct_decl \\(\\*\\)(\\(int, char \\*, long\\))?" "$hex <nothing1>"] \
 824          [list struct_declarations.func_ptr_ptr func_ptr_ptr 0 \
 825               "struct _struct_decl \\*\\(\\*\\)\\((int, char \\*, long)?\\)" "$hex <nothing2>"] \
 826          {struct_declarations.u1 u1 4 "union \\{\\.\\.\\.\\}"} \
 827          {struct_declarations.s2 s2 4 "struct \\{\\.\\.\\.\\}"} \
 828 ] "listing of children, simple types: names, type and values, complex types: names and types"
 829
 830 # Delete all variables
 831 mi_gdb_test "-var-delete struct_declarations" \
 832         "\\^done,ndeleted=\"67\"" \
 833         "delete var struct_declarations"
 834
 835 mi_gdb_test "-var-delete weird->int_ptr_ptr" \
 836         "\\^done,ndeleted=\"3\"" \
 837         "delete var weird->int_ptr_ptr"
 838
 839 # Step over all lines:
 840 # ...
 841 #   psnp = &snp0;
 842
 843 set line_dct_snp0 [gdb_get_line_number "psnp = &snp0;"]
 844 mi_execute_to "exec-step 43" "end-stepping-range" do_children_tests {} ".*${srcfile}" \
 845     [expr $line_dct_snp0 + 1] {} "step \$line_dct_snp0 + 1"
 846
 847 # Test: c_variable-5.10
 848 # Desc: create psnp->char_ptr
 849 mi_create_varobj "psnp->char_ptr" "psnp->char_ptr" \
 850         "create local variable  psnp->char_ptr"
 851
 852 # Test: c_variable-5.11
 853 # Desc: children of psnp->char_ptr
 854 mi_list_varobj_children "psnp->char_ptr" {
 855     {{psnp->char_ptr.\*psnp->char_ptr} {\*psnp->char_ptr} 1  {char \*\*\*}}
 856 } "get children of psnp->char_ptr"
 857
 858 # Test: c_variable-5.12
 859 # Desc: number of children of psnp->char_ptr
 860 mi_gdb_test "-var-info-num-children psnp->char_ptr" \
 861         "\\^done,numchild=\"1\"" \
 862         "get number of children of psnp->char_ptr"
 863
 864 # Test: c_variable-5.13
 865 # Desc: children of *(psnp->char_ptr)
 866 mi_list_varobj_children "psnp->char_ptr.*psnp->char_ptr" {
 867     {{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"
 870
 871 # Test: c_variable-5.14
 872 # Desc: number of children of *(psnp->char_ptr)
 873 mi_gdb_test "-var-info-num-children psnp->char_ptr.*psnp->char_ptr" \
 874         "\\^done,numchild=\"1\"" \
 875         "get number of children of psnp->char_ptr.*psnp->char_ptr"
 876
 877 # Test: c_variable-5.15
 878 # Desc: children of *(*(psnp->char_ptr))
 879 mi_list_varobj_children "psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr" {
 880     {{psnp->char_ptr.\*psnp->char_ptr.\*\*psnp->char_ptr.\*\*\*psnp->char_ptr} \
 881          {\*\*\*psnp->char_ptr} 1 {char \*}}
 882 } "get children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr"
 883
 884 # Test: c_variable-5.15B
 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"
 890
 891 # Test: c_variable-5.16
 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" \
 894         "\\^done,numchild=\"1\"" \
 895         "get number of children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr"
 896
 897 # Test: c_variable-5.17
 898 # Desc: children of *(*(*(psnp->char_ptr)))
 899 mi_list_varobj_children "psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr" {
 900     {{psnp->char_ptr.\*psnp->char_ptr.\*\*psnp->char_ptr.\*\*\*psnp->char_ptr.\*\*\*\*psnp->char_ptr} \
 901          {\*\*\*\*psnp->char_ptr} 0 char}
 902 } "get children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr"
 903
 904 # Test: c_variable-5.18
 905 # Desc: number of children of *(*(*(psnp->char_ptr)))
 906 mi_gdb_test "-var-info-num-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr" \
 907         "\\^done,numchild=\"1\"" \
 908         "get number of children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr"
 909
 910 # Test: c_variable-5.17B
 911 # Desc: children of *(*(*(*(psnp->char_ptr))))
 912 mi_list_varobj_children "psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr" {} \
 913         "get children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr"
 914
 915 # Test: c_variable-5.18B
 916 # Desc: number of children of *(*(*(*(psnp->char_ptr))))
 917 mi_gdb_test "-var-info-num-children psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr" \
 918         "\\^done,numchild=\"0\"" \
 919         "get number of children of psnp->char_ptr.*psnp->char_ptr.**psnp->char_ptr.***psnp->char_ptr.****psnp->char_ptr"
 920
 921 # Test: c_variable-5.19
 922 # Desc: create psnp->long_ptr
 923 mi_create_varobj "psnp->long_ptr" "psnp->long_ptr" \
 924         "create local variable  psnp->long_ptr"
 925
 926 # Test: c_variable-5.20
 927 # Desc: children of psnp->long_ptr
 928 mi_list_varobj_children "psnp->long_ptr" {
 929     {{psnp->long_ptr.\*psnp->long_ptr} {\*psnp->long_ptr} 1 {long \*\*\*}}
 930 } "get children of psnp->long_ptr"
 931
 932 # Test: c_variable-5.21
 933 # Desc: number of children of psnp->long_ptr
 934 mi_gdb_test "-var-info-num-children psnp->long_ptr" \
 935         "\\^done,numchild=\"1\"" \
 936         "get number of children of psnp->long_ptr"
 937
 938 # Test: c_variable-5.22
 939 # Desc: children of *(psnp->long_ptr)
 940 mi_list_varobj_children "psnp->long_ptr.*psnp->long_ptr" {
 941     {{psnp->long_ptr.\*psnp->long_ptr.\*\*psnp->long_ptr} {\*\*psnp->long_ptr} 1 {long \*\*}}
 942 } "get children of psnp->long_ptr.*psnp->long_ptr"
 943
 944
 945 # Test: c_variable-5.23
 946 # Desc: number of children of *(psnp->long_ptr)
 947 mi_gdb_test "-var-info-num-children psnp->long_ptr.*psnp->long_ptr" \
 948         "\\^done,numchild=\"1\"" \
 949         "get number of children of psnp->long_ptr.*psnp->long_ptr"
 950
 951 # Test: c_variable-5.24
 952 # Desc: children of *(*(psnp->long_ptr))
 953 mi_list_varobj_children "psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr" {
 954     {{psnp->long_ptr.\*psnp->long_ptr.\*\*psnp->long_ptr.\*\*\*psnp->long_ptr} \
 955          {\*\*\*psnp->long_ptr} 1 {long \*}}
 956 } "get children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr"
 957
 958 # Test: c_variable-5.25
 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" \
 961         "\\^done,numchild=\"1\"" \
 962         "get number of children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr"
 963
 964 # Test: c_variable-5.26
 965 # Desc: children of *(*(*(psnp->long_ptr)))
 966 mi_list_varobj_children "psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr" {
 967     {{psnp->long_ptr.\*psnp->long_ptr.\*\*psnp->long_ptr.\*\*\*psnp->long_ptr.\*\*\*\*psnp->long_ptr}
 968         {\*\*\*\*psnp->long_ptr} 0 {long}}
 969 } "get children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr"
 970
 971 # Test: c_variable-5.27
 972 # Desc: number of children of *(*(*(psnp->long_ptr)))
 973 mi_gdb_test "-var-info-num-children psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr" \
 974         "\\^done,numchild=\"1\"" \
 975         "get number of children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr"
 976
 977 # Test: c_variable-5.28
 978 # Desc: children of *(*(*(*(psnp->long_ptr))))
 979 mi_list_varobj_children "psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr" {} \
 980         "get children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr"
 981
 982 # Test: c_variable-5.29
 983 # Desc: number of children of *(*(*(*(psnp->long_ptr))))
 984 mi_gdb_test "-var-info-num-children psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr" \
 985         "\\^done,numchild=\"0\"" \
 986         "get number of children of psnp->long_ptr.*psnp->long_ptr.**psnp->long_ptr.***psnp->long_ptr.****psnp->long_ptr"
 987
 988 # Test: c_variable-5.30
 989 # Desc: create psnp->ptrs
 990 mi_create_varobj "psnp->ptrs" "psnp->ptrs" \
 991         "create local variable  psnp->ptrs"
 992
 993 # Test: c_variable-5.31
 994 # Desc: children of psnp->ptrs
 995 mi_list_varobj_children "psnp->ptrs" {
 996     {psnp->ptrs.0 0 4 {struct _struct_n_pointer \*}}
 997     {psnp->ptrs.1 1 4 {struct _struct_n_pointer \*}}
 998     {psnp->ptrs.2 2 4 {struct _struct_n_pointer \*}}
 999 } "get children of psnp->ptrs"
1000
1001 # Test: c_variable-5.32
1002 # Desc: number of children of psnp->ptrs
1003 mi_gdb_test "-var-info-num-children psnp->ptrs" \
1004         "\\^done,numchild=\"3\"" \
1005         "get number of children of psnp->ptrs"
1006
1007 # Test: c_variable-5.33
1008 # Desc: children of psnp->ptrs[0]
1009 mi_list_varobj_children "psnp->ptrs.0" {
1010     {psnp->ptrs.0.char_ptr char_ptr 1 {char \*\*\*\*}}
1011     {psnp->ptrs.0.long_ptr long_ptr 1 {long \*\*\*\*}}
1012     {psnp->ptrs.0.ptrs ptrs 3 {struct _struct_n_pointer \*\[3\]}}
1013     {psnp->ptrs.0.next next 4 {struct _struct_n_pointer \*}}
1014 } "get children of psnp->ptrs.0"
1015
1016 # Test: c_variable-5.34
1017 # Desc: number of children of psnp->ptrs[0]
1018 mi_gdb_test "-var-info-num-children psnp->ptrs.0" \
1019         "\\^done,numchild=\"4\"" \
1020         "get number of children of psnp->ptrs.0"
1021
1022 # Test: c_variable-5.35
1023 # Desc: children of psnp->ptrs[0]->next
1024 mi_list_varobj_children "psnp->ptrs.0.next" {
1025     {psnp->ptrs.0.next.char_ptr char_ptr 1 {char \*\*\*\*}}
1026     {psnp->ptrs.0.next.long_ptr long_ptr 1 {long \*\*\*\*}}
1027     {psnp->ptrs.0.next.ptrs ptrs 3 {struct _struct_n_pointer \*\[3\]}}
1028     {psnp->ptrs.0.next.next next 4 {struct _struct_n_pointer \*}}
1029 } "get children of psnp->ptrs.0.next"
1030
1031 #} {char_ptr long_ptr ptrs next}
1032
1033 # Test: c_variable-5.36
1034 # Desc: number of children of psnp->ptrs[0]->next
1035 mi_gdb_test "-var-info-num-children psnp->ptrs.0.next" \
1036         "\\^done,numchild=\"4\"" \
1037         "get number of children of psnp->ptrs.0.next"
1038
1039
1040 # Test: c_variable-5.37
1041 # Desc: children of psnp->ptrs[0]->next->char_ptr
1042 mi_list_varobj_children "psnp->ptrs.0.next.char_ptr" {
1043     {{psnp->ptrs.0.next.char_ptr.\*char_ptr} {\*char_ptr} 1 {char \*\*\*}}
1044 } "get children of psnp->ptrs.0.next.char_ptr"
1045
1046 #gdbtk_test c_variable-5.37 {children of psnp->ptrs[0]->next->char_ptr} {
1047 #  get_children psnp->ptrs.0.next.char_ptr
1048 #} {*char_ptr}
1049
1050 # Test: c_variable-5.38
1051 # Desc: number of children of psnp->ptrs[0]->next->char_ptr
1052 mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr" \
1053         "\\^done,numchild=\"1\"" \
1054         "get number of children of psnp->ptrs.0.next.char_ptr"
1055
1056 # Test: c_variable-5.39
1057 # Desc: children of *psnp->ptrs[0]->next->char_ptr
1058 mi_list_varobj_children "psnp->ptrs.0.next.char_ptr.*char_ptr" {
1059     {{psnp->ptrs.0.next.char_ptr.\*char_ptr.\*\*char_ptr} {\*\*char_ptr} 1 {char \*\*}}
1060 } "get children of psnp->ptrs.0.next.char_ptr.*char_ptr"
1061
1062 # Test: c_variable-5.40
1063 # Desc: number of children of *psnp->ptrs[0]->next->char_ptr
1064 mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr.*char_ptr" \
1065         "\\^done,numchild=\"1\"" \
1066         "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr"
1067
1068 # Test: c_variable-5.41
1069 # Desc: children of **psnp->ptrs[0]->next->char_ptr
1070 mi_list_varobj_children "psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr" {
1071     {{psnp->ptrs.0.next.char_ptr.\*char_ptr.\*\*char_ptr.\*\*\*char_ptr} \
1072          {\*\*\*char_ptr} 1 {char \*}}
1073 } "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr"
1074
1075 # Test: c_variable-5.41B
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"
1081
1082 # Test: c_variable-5.42
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" \
1085         "\\^done,numchild=\"1\"" \
1086         "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr"
1087
1088 # Test: c_variable-5.43
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" {
1091     {{psnp->ptrs.0.next.char_ptr.\*char_ptr.\*\*char_ptr.\*\*\*char_ptr.\*\*\*\*char_ptr} \
1092          {\*\*\*\*char_ptr} 0 char}
1093 } "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1094
1095 # Test: c_variable-5.44
1096 # Desc: number of children of ***psnp->ptrs[0]->next->char_ptr
1097 mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr" \
1098         "\\^done,numchild=\"1\"" \
1099         "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1100
1101 # Test: c_variable-5.43B
1102 # Desc: children of ****psnp->ptrs[0]->next->char_ptr
1103 mi_list_varobj_children "psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr.****char_ptr" {} \
1104         "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1105
1106 # Test: c_variable-5.44B
1107 # Desc: number of children of ****psnp->ptrs[0]->next->char_ptr
1108 mi_gdb_test "-var-info-num-children psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr.****char_ptr" \
1109         "\\^done,numchild=\"0\"" \
1110         "get number of children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr"
1111
1112 # Test: c_variable-5.45
1113 # Desc: children of psnp->ptrs[0]->next->next
1114 mi_list_varobj_children "psnp->ptrs.0.next.next" {
1115     {psnp->ptrs.0.next.next.char_ptr char_ptr 1 {char \*\*\*\*}}
1116     {psnp->ptrs.0.next.next.long_ptr long_ptr 1 {long \*\*\*\*}}
1117     {psnp->ptrs.0.next.next.ptrs ptrs 3 {struct _struct_n_pointer \*\[3\]}}
1118     {psnp->ptrs.0.next.next.next next 4 {struct _struct_n_pointer \*}}
1119 } "get children of psnp->ptrs.0.next.next"
1120
1121 # Test: c_variable-5.46
1122 # Desc: children of psnp->ptrs[0]->next->next->ptrs
1123 mi_list_varobj_children "psnp->ptrs.0.next.next.ptrs" {
1124     {psnp->ptrs.0.next.next.ptrs.0 0 4 {struct _struct_n_pointer \*}}
1125     {psnp->ptrs.0.next.next.ptrs.1 1 4 {struct _struct_n_pointer \*}}
1126     {psnp->ptrs.0.next.next.ptrs.2 2 4 {struct _struct_n_pointer \*}}
1127 } "get children of psnp->ptrs.0.next.next.ptrs"
1128
1129 #  Step over "snp0.char_ptr = &b3;"
1130 mi_step_to do_children_tests {} ".*${srcfile}" \
1131     [expr $line_dct_snp0 + 2] "step \$line_dct_snp0 + 2"
1132
1133 # Test: c_variable-5.47
1134 # Desc: check that psnp->char_ptr (and [0].char_ptr) changed
1135 mi_varobj_update * {psnp->ptrs.0.char_ptr
1136     psnp->char_ptr
1137     psnp->char_ptr.\\*psnp->char_ptr psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr
1138     psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr.\\*\\*\\*psnp->char_ptr
1139     psnp->char_ptr.\\*psnp->char_ptr.\\*\\*psnp->char_ptr.\\*\\*\\*psnp->char_ptr.\\*\\*\\*\\*psnp->char_ptr } \
1140         "update all vars psnp->char_ptr (and 0.char_ptr) changed"
1141
1142 #  Step over "snp1.char_ptr = &c3;"
1143 mi_step_to do_children_tests {} ".*${srcfile}" \
1144     [expr $line_dct_snp0 + 3] "step \$line_dct_snp0 + 3"
1145
1146 # Test: c_variable-5.48
1147 # Desc: check that psnp->next->char_ptr (and [1].char_ptr) changed
1148 mi_varobj_update * {psnp->ptrs.0.next.char_ptr
1149     psnp->ptrs.0.next.char_ptr.\\*char_ptr
1150     psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr
1151     psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr.\\*\\*\\*char_ptr
1152     psnp->ptrs.0.next.char_ptr.\\*char_ptr.\\*\\*char_ptr.\\*\\*\\*char_ptr.\\*\\*\\*\\*char_ptr} \
1153         "update all vars psnp->next->char_ptr (and 1.char_ptr) changed"
1154
1155
1156 #  Step over "snp2.char_ptr = &a3;"
1157 mi_step_to do_children_tests {} ".*${srcfile}" \
1158     [expr $line_dct_snp0 + 4] "step \$line_dct_snp0 + 4"
1159
1160 # Test: c_variable-5.49
1161 # Desc: check that psnp->next->next->char_ptr (and [2].char_ptr) changed
1162 mi_varobj_update * {psnp->ptrs.0.next.next.char_ptr} \
1163         "update all vars psnp->next->next->char_ptr (and 2.char_ptr) changed"
1164
1165
1166 #  Step over "snp0.long_ptr = &y3;"
1167 mi_step_to do_children_tests {} ".*${srcfile}" \
1168     [expr $line_dct_snp0 + 5] "step \$line_dct_snp0 + 5"
1169
1170 # Test: c_variable-5.50
1171 # Desc: check that psnp->long_ptr (and [0].long_ptr) changed
1172 mi_varobj_update * {psnp->ptrs.0.long_ptr psnp->long_ptr
1173     psnp->long_ptr.\\*psnp->long_ptr
1174     psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr
1175     psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr.\\*\\*\\*psnp->long_ptr
1176     psnp->long_ptr.\\*psnp->long_ptr.\\*\\*psnp->long_ptr.\\*\\*\\*psnp->long_ptr.\\*\\*\\*\\*psnp->long_ptr} \
1177         "update all vars psnp->long_ptr (and 0.long_ptr) changed"
1178
1179
1180 #  Step over "snp1.long_ptr = &x3;"
1181 mi_step_to do_children_tests {} ".*${srcfile}" \
1182     [expr $line_dct_snp0 + 6] "step \$line_dct_snp0 + 6"
1183
1184 # Test: c_variable-5.51
1185 # Desc: check that psnp->next->long_ptr (and [1].long_ptr) changed
1186 # Why does this have a FIXME?
1187 setup_xfail *-*-*
1188 mi_gdb_test "-var-update *" \
1189         "FIXME\\^done,changelist=\\\[\{name=\"psnp->ptrs.0.next.long_ptr\",in_scope_changed=\"false\"\}\\\]" \
1190         "update all vars psnp->next->long_ptr (and 1.long_ptr) changed"
1191 clear_xfail *-*-*
1192
1193 # This command produces this error message:
1194 # &"warning: varobj_list: assertion failed - mycount <> 0\n"
1195 #
1196
1197 #  Step over "snp2.long_ptr = &z3;"
1198 mi_step_to do_children_tests {} ".*${srcfile}" \
1199     [expr $line_dct_snp0 + 7] "step \$line_dct_snp0 + 7"
1200
1201 # Test: c_variable-5.52
1202 # Desc: check that psnp->next->next->long_ptr (and [2].long_ptr) changed
1203 mi_varobj_update * {psnp->ptrs.0.next.next.long_ptr} \
1204         "update all vars psnp->next->next->long_ptr (and 2.long_ptr) changed"
1205
1206 mi_prepare_inline_tests $srcfile
1207
1208 mi_run_inline_test child_deletion
1209
1210
1211 mi_gdb_exit
1212 return 0