* varobj.h (varobj_set_frozen): New

[deliverable/binutils-gdb.git] / gdb / testsuite / lib / mi-support.exp

diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp
index d4236368f17f2ddb6b74a633862b94ff0505123d..87e35c04fa3d554c2e5898a2d9680d050572e663 100644 (file)
--- 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} {