1# Copyright 2002-2020 Free Software Foundation, Inc. 2 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. 7# 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. 12# 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/>. 15 16# 17# test gdb/792 18# 19 20if { [skip_cplus_tests] } { continue } 21 22load_lib mi-support.exp 23set MIFLAGS "-i=mi" 24 25gdb_exit 26if [mi_gdb_start] { 27 continue 28} 29 30standard_testfile .cc 31 32if [get_compiler_info "c++"] { 33 return -1 34} 35 36if {[gdb_compile $srcdir/$subdir/$srcfile $binfile executable {debug c++}] != ""} { 37 untested "failed to compile" 38 return -1 39} 40 41# Test that children of classes are properly reported 42 43# Run to main 44mi_run_to_main 45 46mi_create_varobj "var1" "a" "create var for class A" 47 48mi_list_varobj_children "var1" { 49 {var1.public public 2} 50 {var1.private private 2} 51 {var1.protected protected 2} 52} "list children of class A" 53 54mi_list_varobj_children "var1.public" { 55 {var1.public.x x 0 int} 56 {var1.public.buffer buffer 10 {char \[10\]}} 57} "list children of A.public" 58 59mi_list_varobj_children "var1.private" { 60 {var1.private.u u 0 int} 61 {var1.private.z z 0 float} 62} "list children of A.private" 63 64mi_list_varobj_children "var1.protected" { 65 {var1.protected.y y 0 int} 66 {var1.protected.b b 2 B} 67} "list children of A.protected" 68 69mi_list_varobj_children "var1.protected.b" { 70 {var1.protected.b.public public 2} 71 {var1.protected.b.private private 1} 72} "list children of A.protected.b" 73 74mi_list_varobj_children "var1.protected.b.public" { 75 {var1.protected.b.public.bx bx 0 int} 76 {var1.protected.b.public.by by 0 int} 77} "list children of A.protected.b.public" 78 79mi_list_varobj_children "var1.protected.b.private" { 80 {var1.protected.b.private.k k 0 int} 81} "list children of A.protected.b.private" 82 83mi_create_varobj "var2" "c" "create var for class C which has baseclass A" 84 85mi_list_varobj_children "var2" { 86 {var2.A A 3 A} 87 {var2.public public 1} 88 {var2.private private 1} 89} "list children of class C" 90 91mi_gdb_exit 92return 0 93