1 # Copyright 2002, 2007, 2008, 2009 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <http://www.gnu.org/licenses/>.
20 load_lib mi-support.exp
29 set srcfile "$testfile.c"
30 set binfile $objdir/$subdir/$testfile
31 if {[gdb_compile $srcdir/$subdir/$srcfile $binfile executable debug] != ""} {
36 # When varobj reports the types of objects, it often isn't really reporting
37 # the type as GDB knows it. For example, in this testcase, we have a
38 # structure which has been typedefed. A varobj of this type would really have
39 # a type of "TYPE_CODE_TYPEDEF". It's target type is "TYPE_CODE_STRUCT". Varobj
40 # should skip over the TYPEDEF type when figuring out the varobj's children.
41 # If it doesn't, Bad Things Happen(TM).
47 mi_next "step over \"foo = 0\""
49 mi_create_varobj "fooPtr" "foo" "create fooPtr"
51 mi_gdb_test "-var-list-children fooPtr" \
52 "(&\".*\"\r\n)*\\^done,numchild=\"3\",.*" \
53 "list children of fooPtr"
55 foreach i [list x y z] {
56 mi_gdb_test "-var-list-children fooPtr.$i" \
57 "(&\".*\"\r\n)*\\^done,numchild=\"0\",has_more=\"0\"" \
58 "list children of fooPtr.$i"