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

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