From f44eeb117f66f09bf1ffed1cfb423f36a89ddfe6 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Mon, 7 Oct 2013 19:10:45 +0000 Subject: [PATCH] * lib/mi-support.exp (varobj_tree::walk_tree): Set _root_idx to 0. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/lib/mi-support.exp | 3 +++ 2 files changed, 8 insertions(+) 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 + + * lib/mi-support.exp (varobj_tree::walk_tree): Set _root_idx + to 0. + 2013-10-06 Sergio Durigan Junior * 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"]