diff options
author | Tom Tromey <tromey@redhat.com> | 2013-10-07 19:10:44 +0000 |
---|---|---|
committer | Tom Tromey <tromey@redhat.com> | 2013-10-07 19:10:44 +0000 |
commit | 097e93eccdf7d7539ff8ff2d137a791f585c3504 (patch) | |
tree | fce2816c2f1fe299a96625b9a2543a0d06eb3669 /gdb/testsuite | |
parent | 41869ed3d33ed5c50df8d36476f027e56b7df4e5 (diff) | |
download | gdb-097e93eccdf7d7539ff8ff2d137a791f585c3504.tar.gz |
* lib/mi-support.exp (varobj_tree::walk_tree): Set _root_idx
to 0.
Diffstat (limited to 'gdb/testsuite')
-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 3a5a4e0ce2f..98d4bbc337b 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 86a0fd6030b..3d55609bd14 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"] |