* lib/mi-support.exp (varobj_tree::walk_tree): Set _root_idx

	to 0.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 3a5a4e0ce2fb1482caf59e7f6ef1bc23bbc9672e..98d4bbc337bd2622647a53bd85fdb1710d1401bd 100644 (file)
--- 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 86a0fd6030b1b0bf4bc49c78bc64b105db7cf534..3d55609bd14592805c4bc3d16ab9561f62de725d 100644 (file)
--- 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"]