1# Copyright 1999-2023 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 22load_lib mi-support.exp 23set MIFLAGS "-i=mi" 24 25gdb_exit 26if [mi_gdb_start] { 27 return 28} 29 30standard_testfile 31 32if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { 33 untested "failed to compile" 34 return -1 35} 36 37mi_delete_breakpoints 38mi_gdb_reinitialize_dir $srcdir/$subdir 39mi_gdb_load ${binfile} 40 41mi_runto do_children_tests 42 43set line_dlt_first_real [gdb_get_line_number "weird = &struct_declarations;"] 44mi_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" 55mi_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. 62mi_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 84mi_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 90mi_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 95mi_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 101mi_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 106mi_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 112mi_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 118mi_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 124mi_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 129mi_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 135mi_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 145mi_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 152mi_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 158mi_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 164mi_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 169mi_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 176mi_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 181mi_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 188mi_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 193mi_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 199mi_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 208mi_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 214mi_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 227mi_gdb_test "-var-info-num-children struct_declarations.s2" \ 228 "\\^done,numchild=\"4\"" \ 229 "get number of children of struct_declarations.s2" 230 231 232for {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 243mi_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 248mi_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 254mi_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 260mi_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 266mi_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 271mi_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 277mi_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 283mi_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 290mi_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 298mi_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 304mi_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 309mi_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 316mi_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 321mi_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 328set t {} 329for {set i 0} {$i < 10} {incr i} { 330 lappend t [list struct_declarations.s2.i.$i $i 0 "long"] 331} 332mi_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 337mi_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 343mi_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 352mi_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 358mi_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 363mi_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 369mi_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 376mi_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 382mi_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 387mi_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 393set t {} 394for {set i 0} {$i < 10} {incr i} { 395 lappend t [list struct_declarations.s2.u2.u1s1.e.$i $i 0 char] 396} 397mi_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 402mi_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 409mi_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 414mi_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 421mi_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 426mi_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 433mi_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 440mi_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 446mi_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 451mi_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 457mi_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 464mi_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;" 470set line_dct_123 [gdb_get_line_number "struct_declarations.integer = 123;"] 471mi_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" 476mi_create_varobj weird weird "create local variable weird" 477 478# Test: c_variable-4.82 479# Desc: children of weird 480mi_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 498mi_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 505mi_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 513mi_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 519mi_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 528mi_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 534mi_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 543mi_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 549mi_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 554mi_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) 560mi_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) 566mi_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) 573mi_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)) 579mi_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)) 584mi_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 589mi_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 595mi_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 601mi_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 607mi_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 613mi_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 619mi_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 625mi_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 631mi_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 637mi_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 643mi_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 649mi_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 655mi_gdb_test "-var-show-attributes struct_declarations" \ 656 "\\^done,attr=\"noneditable\"" \ 657 "is struct_declarations editable" 658 659mi_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 671mi_varobj_update * {} "update all vars. None changed" 672 673# Step over "struct_declarations.integer = 123;" 674mi_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 679mi_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; 686mi_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 691mi_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;" 695mi_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 700mi_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;" 709mi_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 714mi_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;" 718mi_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 723mi_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;" 727mi_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 732mi_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 744set line_dct_nothing [gdb_get_line_number "weird->func_ptr = nothing;"] 745mi_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 750mi_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"; 761mi_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 766mi_varobj_update * {struct_declarations.func_ptr} \ 767 "update all vars struct_declarations.func_ptr changed" 768 769# Step over "weird->func_ptr_struct = nothing1" 770mi_step_to do_children_tests {} ".*${srcfile}" \ 771 [expr $line_dct_nothing + 2] "step \$line_dct_nothing + 2" 772mi_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" 776mi_step_to do_children_tests {} ".*${srcfile}" \ 777 [expr $line_dct_nothing + 3] "step \$line_dct_nothing + 3" 778mi_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"; 782mi_step_to do_children_tests {} ".*${srcfile}" \ 783 [expr $line_dct_nothing + 4] "step \$line_dct_nothing + 4" 784 785mi_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"; 790set line_dct_a0_0 [gdb_get_line_number "a0\[0\] = '0';"] 791mi_step_to do_children_tests {} ".*${srcfile}" \ 792 $line_dct_a0_0 "step \$line_dct_a0_0" 793 794mi_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 798mi_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 813mi_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 831mi_gdb_test "-var-delete struct_declarations" \ 832 "\\^done,ndeleted=\"67\"" \ 833 "delete var struct_declarations" 834 835mi_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 843set line_dct_snp0 [gdb_get_line_number "psnp = &snp0;"] 844mi_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 849mi_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 854mi_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 860mi_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) 866mi_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) 873mi_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)) 879mi_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))) 886mi_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)) 893mi_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))) 899mi_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 after counting children" 903 904# Test: c_variable-5.18 905# Desc: number of children of *(*(*(psnp->char_ptr))) 906mi_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)))) 912mi_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)))) 917mi_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 923mi_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 928mi_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 934mi_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) 940mi_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) 947mi_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)) 953mi_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)) 960mi_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))) 966mi_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))) 973mi_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)))) 979mi_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)))) 984mi_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 990mi_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 995mi_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 1003mi_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] 1009mi_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] 1018mi_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 1024mi_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 1035mi_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 1042mi_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 1052mi_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 1058mi_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 1064mi_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 1070mi_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 1077mi_list_varobj_children "psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr" { 1078 {{psnp->ptrs.0.next.char_ptr.\*char_ptr.\*\*char_ptr.\*\*\*char_ptr.\*\*\*\*char_ptr} \ 1079 {\*\*\*\*char_ptr} 0 char} 1080} "get children of psnp->ptrs.0.next.char_ptr.*char_ptr.**char_ptr.***char_ptr" 1081 1082# Test: c_variable-5.42 1083# Desc: number of children of **psnp->ptrs[0]->next->char_ptr 1084mi_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 1090mi_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 after counting children" 1094 1095# Test: c_variable-5.44 1096# Desc: number of children of ***psnp->ptrs[0]->next->char_ptr 1097mi_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 1103mi_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.****char_ptr" 1105 1106# Test: c_variable-5.44B 1107# Desc: number of children of ****psnp->ptrs[0]->next->char_ptr 1108mi_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.****char_ptr" 1111 1112# Test: c_variable-5.45 1113# Desc: children of psnp->ptrs[0]->next->next 1114mi_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 1123mi_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;" 1130mi_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 1135mi_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;" 1143mi_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 1148mi_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;" 1157mi_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 1162mi_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;" 1167mi_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 1172mi_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;" 1181mi_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? 1187setup_xfail *-*-* 1188mi_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" 1191clear_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;" 1198mi_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 1203mi_varobj_update * {psnp->ptrs.0.next.next.long_ptr} \ 1204 "update all vars psnp->next->next->long_ptr (and 2.long_ptr) changed" 1205 1206mi_prepare_inline_tests $srcfile 1207 1208if { [mi_run_inline_test child_deletion] < 0 } { 1209 return -1 1210} 1211 1212 1213mi_gdb_exit 1214return 0 1215