From: Tom Tromey <tromey@redhat.com>
Date: Mon, 7 Oct 2013 19:10:45 +0000 (+0000)
Subject: 	* lib/mi-support.exp (varobj_tree::walk_tree): Set _root_idx
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f44eeb117f66f09bf1ffed1cfb423f36a89ddfe6;p=binutils-gdb.git

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

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"]