From 25d5ea921bee4a06522b807e33912e2345bb1086 Mon Sep 17 00:00:00 2001 From: Vladimir Prus Date: Sat, 14 Apr 2007 09:51:30 +0000 Subject: * varobj.h (varobj_set_frozen): New (varobj_get_frozen): New. (varobj_update): New parameter explicit. * varobj.c (struct varobj): New fields frozen and not_fetched. (varobj_set_frozen, varobj_get_frozen): New. (install_new_value): Don't fetch values for frozen variable object, or children thereof. Allow a frozen variable object to have non-fetched value. (varobj_update): Allow updating child variables. Don't traverse frozen children. (new_variable): Initialize the frozen field. (c_value_of_variable): Return NULL for frozen variable without any value yet. * mi/mi-cmd-var.c (varobj_update_one): New parameter 'explicit'. (mi_cmd_var_create): Output the 'frozen' field, as soon as testsuite is adjusted to expect that field. (mi_cmd_var_set_frozen): New. (mi_cmd_var_update): Pass the 'explicit' parameter to varobj_update_one. * mi/mi-cmds.c (mi_cmds): Register '-var-set-frozen'. * mi/mi-cmds.h (mi_cmd_var_set_frozen): Declare. --- gdb/testsuite/lib/mi-support.exp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gdb/testsuite/lib') diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index d423636..87e35c0 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -1024,8 +1024,9 @@ proc mi_varobj_update { name expected testname } { set first 1 foreach item $expected { set v "{name=\"$item\",in_scope=\"true\",type_changed=\"false\"}" - if {$first} { + if {$first == 1} { set er "$er$v" + set first 0 } else { set er "$er,$v" } @@ -1312,7 +1313,7 @@ proc mi_run_inline_test { testcase } { set line_now [mi_wait_for_stop "$testcase: step to $line"] set first 0 } elseif {$line_now!=$line} { - set line_now [mi_continue_to_line "$mi_autotest_source:$line"] + set line_now [mi_continue_to_line "$mi_autotest_source:$line" "continue to $line"] } if {$line_now!=$line} { -- cgit v1.1