GDB 7.6.50

gdb/testsuite/gdb.python/py-mi.exp

-# Copyright (C) 2008-2012 Free Software Foundation, Inc.
+# Copyright (C) 2008-2013 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 3 of the License, or
 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
@@ skipping 23 matching lines @@
 mi_gdb_reinitialize_dir $srcdir/$subdir
 mi_gdb_load ${binfile}
 
 if {[lsearch -exact [mi_get_features] python] < 0} {
     unsupported "python support is disabled"
     return -1
 }
 
 mi_runto main
 
-set remote_python_file [remote_download host ${srcdir}/${subdir}/${pyfile}]
+set remote_python_file [gdb_remote_download host ${srcdir}/${subdir}/${pyfile}]
 
-mi_gdb_test "python execfile ('${remote_python_file}')" ""
+mi_gdb_test "python exec (open ('${remote_python_file}').read ())" ""
 
 mi_continue_to_line [gdb_get_line_number {MI breakpoint here} ${srcfile}] \
   "step to breakpoint"
 
-mi_create_dynamic_varobj container c \
+mi_create_floating_varobj container c \
   "create container varobj, no pretty-printing"
 
 mi_list_varobj_children container {
   { container.name name 1 string }
   { container.len len 0 int }
   { container.elements elements 1 "int ." }
 } "examine container children=0, no pretty-printing"
 
 mi_delete_varobj container "delete varobj"
 
-mi_create_dynamic_varobj nscont nstype \
+mi_create_floating_varobj nscont nstype \
   "create nscont varobj, no pretty-printing"
 
 mi_list_varobj_children nscont {
   { nscont.len len 0 int }
   { nscont.elements elements 1 "int ." }
 } "examine nscont children=0, no pretty-printing"
 
 mi_delete_varobj nscont "delete varobj"
 
 mi_gdb_test "-enable-pretty-printing" ""
 
 mi_create_varobj_checked string string_1 \
     "struct string_repr" \
     "create string_1 varobj"
 
 mi_create_varobj_checked lstring estring \
     "struct lazystring" \
     "create estring varobj"
 
 mi_gdb_test "-data-evaluate-expression \"string_1 = string_2\"" ".*" \
     "assign string_1 from string_2"
 
 mi_gdb_test "-var-update string" \
     "\\^done,changelist=\\\[{name=\"string\",in_scope=\"true\",type_changed=\"false\",dynamic=\"1\",has_more=\"0\"}\\\]" \
     "update string varobj after assignment"
 
-mi_create_dynamic_varobj container c \
+# The "elements" field of "c" is still empty, so the attribute
+# "has_more" is expected to be zero.
+mi_create_dynamic_varobj container c 0 \
   "create container varobj"
 
 mi_list_varobj_children container {
 } "examine container children=0"
 
 mi_next "next over update 1"
 
 mi_varobj_update_dynamic container "varobj update 1" {
     type_changed false new_num_children 1 dynamic 1 has_more 0
 } {
@@ skipping 74 matching lines @@
 } "list children after listing selected range"
 
 mi_next "next over update 4"
 
 # This should only show the first child, because the update range has
 # been set.
 mi_varobj_update_dynamic container \
   "update after next with restricted range" {
       type_changed false new_num_children 1 dynamic 1 has_more 1
   } {
-      { name {container.\[0\]} in_scope true type_changed false dynamic 1 has_more 0 }
+      { name {container.\[0\]} in_scope true type_changed false has_more 0 }
   } {
   }
 
 mi_gdb_test "-var-set-update-range container 3 4" \
   "\\^done" \
   "set update range with non-zero start"
 
 # Elements were updated but should not be reported.
 mi_varobj_update_dynamic container \
   "update varobj with change outside selected range" {
       type_changed false new_num_children 3 dynamic 1 has_more 0
   } {
   } {
   }
 
 mi_next "next over update 5"
 
 # Regression test: examine an object that has no children, then update
 # it to ensure that we don't print the children.
-mi_create_dynamic_varobj container2 c2 \
+mi_create_dynamic_varobj container2 c2 0 \
   "create second container varobj"
 
 mi_gdb_test "-var-update container2" \
   "\\^done,changelist=.." \
   "update varobj, no children requested"
 
 mi_next "next over update 6"
 
 # Now container2 has an element -- and an update should mention that
 # it has_more.  But, because we did not request children, we still
 # should not actually see them.
 mi_varobj_update_dynamic container2 \
     "update varobj 2, no children requested" {
         type_changed false dynamic 1 has_more 1
     } {} {}
 
 mi_continue_to_line \
     [gdb_get_line_number {MI outer breakpoint here} ${srcfile}] \
     "step to outer breakpoint"
 
-mi_create_dynamic_varobj outer outer \
+mi_create_dynamic_varobj outer outer 1 \
   "create outer varobj"
 
 mi_list_varobj_children outer {
   { outer.s s 2 "struct substruct" }
   { outer.x x 0 "int" }
 } "list children of outer"
 
 mi_list_varobj_children outer.s {
   { outer.s.a a 0 int }
   { outer.s.b b 0 int }
 } "list children of outer.s"
 
 mi_next "next over outer update"
 
 mi_gdb_test "-var-update outer" \
-  ".done,changelist=.{name=\"outer.s.a\",in_scope=\"true\",type_changed=\"false\",dynamic=\"1\",has_more=\"0\"}." \
+  ".done,changelist=.{name=\"outer.s.a\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"}." \
   "update after updating element of outer"
 
 mi_continue_to_line \
     [gdb_get_line_number {Another MI breakpoint} ${srcfile}] \
     "step to second breakpoint"
 
 mi_varobj_update_with_type_change container int 0 "update after type change"
 
 
 mi_continue_to_line \
     [gdb_get_line_number {break to inspect struct and union} ${srcfile}] \
     "step to outer breakpoint"
 
-mi_create_dynamic_varobj nscont nstype \
+mi_create_dynamic_varobj nscont nstype 1 \
   "create nstype varobj"
 
 mi_list_varobj_children nscont {
     { {nscont.\[0\]} {\[0\]} 0 int }
     { {nscont.\[1\]} {\[1\]} 0 int }
 } "list children after setting update range"
 
 mi_gdb_test "-var-set-visualizer nscont None" \
   "\\^done" \
   "clear visualizer"
 
 mi_gdb_test "-var-update nscont" \
   "\\^done,changelist=\\\[\\\]" \
   "varobj update after clearing"
 
 mi_gdb_test "-var-set-visualizer nscont gdb.default_visualizer" \
   "\\^done" \
   "choose default visualizer"
 
 mi_gdb_test "python exception_flag = True" ""
 
-mi_create_dynamic_varobj nstype2 nstype2 \
+mi_create_dynamic_varobj nstype2 nstype2 1 \
   "create nstype2 varobj"
 
 mi_list_varobj_children nstype2 {
     { {nstype2.<error at 0>} {<error at 0>} 6 {char \[6\]} }
 } "list children after setting exception flag"
 
 mi_create_varobj me me \
   "create me varobj"
 
 mi_gdb_test "-var-evaluate-expression me" \
         "\\^done,value=\"<error reading variable: Cannot access memory.>.*\"" \
         "evaluate me varobj"
 
 # Regression test for python/14836.
-mi_create_dynamic_varobj children_as_list children_as_list \
+mi_create_dynamic_varobj children_as_list children_as_list 1 \
     "printer whose children are returned as a list"
 
+# Regression test for bug 14741.
+mi_continue_to_line \
+    [gdb_get_line_number {breakpoint bug 14741} ${srcfile}] \
+    "step to breakpoint for bug 14741"
+
+mi_create_dynamic_varobj c c 1 \
+  "create varobj for c"
+
+mi_gdb_test "-var-set-visualizer c ArrayPrinter" \
+  "\\^done" \
+  "choose array visualizer for c"
+
+mi_list_varobj_children c {
+    { {c.\[0\]} {\[0\]} 0 int }
+} "list children of c"
+
+mi_next "next over change of array element"
+
+mi_gdb_test "-var-update c" \
+    "\\^done,changelist=\\\[{name=\"c.\\\[0\\\]\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"}\\\]" \
+    "update varobj after element change"
+
 # C++ MI tests
 gdb_exit
 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}-cxx" \
            executable {debug c++ additional_flags=-DMI}] != "" } {
     untested "Couldn't compile ${srcfile} in c++ mode"
     return -1
 }
 
 if [mi_gdb_start] {
     continue
@@ skipping 21 matching lines @@
 } "list children of fake"
 
 mi_list_varobj_children fake.private {
     { fake.private.sname sname 0 int }
 } "list children fake.private"
 
 mi_gdb_test "-var-set-visualizer fake.private gdb.default_visualizer" \
     "\\^done" "Install visualizer on a cplus_fake_child"
 
 remote_file host delete ${remote_python_file}