diff options
| author | Tom Tromey <tromey@redhat.com> | 2013-10-07 19:10:45 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@redhat.com> | 2013-10-07 19:10:45 +0000 |
| commit | f44eeb117f66f09bf1ffed1cfb423f36a89ddfe6 (patch) | |
| tree | 18bd36ede378a0abf4103a9abc5f7c9e6b624320 /gdb | |
| parent | 58b239d86162de02c7f511bc397f6123a78d5463 (diff) | |
| download | gdb-f44eeb117f66f09bf1ffed1cfb423f36a89ddfe6.zip gdb-f44eeb117f66f09bf1ffed1cfb423f36a89ddfe6.tar.gz gdb-f44eeb117f66f09bf1ffed1cfb423f36a89ddfe6.tar.bz2 | |
* lib/mi-support.exp (varobj_tree::walk_tree): Set _root_idx
to 0.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/lib/mi-support.exp | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 3a5a4e0..98d4bbc 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-10-07 Tom Tromey <tromey@redhat.com> + + * lib/mi-support.exp (varobj_tree::walk_tree): Set _root_idx + to 0. + 2013-10-06 Sergio Durigan Junior <sergiodj@redhat.com> * gdb.base/corefile.exp: Test whether $_exitsignal is set and diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index 86a0fd6..3d55609 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -2259,11 +2259,14 @@ namespace eval ::varobj_tree { # given varobj TREE. See detailed explanation above. proc walk_tree {language tree callback} { global root + variable _root_idx if {[llength $tree] < 3} { error "tree does not contain enough elements" } + set _root_idx 0 + # Create root node and process the tree. array set root [list language $language] array set root [list obj_name "root"] |