1# Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2007
2# Free Software Foundation, Inc.
3
4# This program is free software; you can redistribute it and/or modify
5# it under the terms of the GNU General Public License as published by
6# the Free Software Foundation; either version 3 of the License, or
7# (at your option) any later version.
8#
9# This program is distributed in the hope that it will be useful,
10# but WITHOUT ANY WARRANTY; without even the implied warranty of
11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12# GNU General Public License for more details.
13#
14# You should have received a copy of the GNU General Public License
15# along with this program.  If not, see <http://www.gnu.org/licenses/>.
16
17# This file was written by Elena Zannoni (ezannoni@cygnus.com)
18# And rewritten by Michael Chastain <mec.gnu@mindspring.com>
19
20# This file is part of the gdb testsuite
21
22# tests for inheritance, with several derivations types combinations
23# (private, public, protected)
24# classes have simple members and member functions.
25
26set ws "\[\r\n\t \]+"
27set nl "\[\r\n\]+"
28
29if $tracelevel then {
30    strace $tracelevel
31}
32
33# Start program.
34
35set prms_id 0
36set bug_id 0
37
38if { [skip_cplus_tests] } { continue }
39
40load_lib "cp-support.exp"
41
42set testfile "derivation"
43set srcfile ${testfile}.cc
44set binfile ${objdir}/${subdir}/${testfile}
45
46if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
47     untested derivation.exp
48     return -1
49}
50
51gdb_exit
52gdb_start
53gdb_reinitialize_dir $srcdir/$subdir
54gdb_load ${binfile}
55
56# Set it up at a breakpoint so we can play with the variable values.
57
58if ![runto 'marker1'] then {
59    perror "couldn't run to marker1"
60    continue
61}
62
63gdb_test "up" ".*main.*" "up from marker1"
64
65# Print class types and values.
66
67# class A
68
69gdb_test "print a_instance" "\\$\[0-9\]+ = \{a = 1, aa = 2\}" "print value of a_instance"
70
71cp_test_ptype_class \
72    "ptype a_instance" "" "class" "A" \
73    {
74	{ field  public "int a;" }
75	{ field  public "int aa;" }
76	{ method public "A();" }
77	{ method public "int afoo();" }
78	{ method public "int foo();" }
79    }
80
81# class D
82
83gdb_test_multiple "print d_instance" "print value of d_instance" {
84    -re "\\$\[0-9\]+ = \{<(class A|A)> = \{a = 1, aa = 2\}, <(class B|B)> = \{b = 3, bb = 4\}, <(class C|C)> = \{c = 5, cc = 6\}, d = 7, dd = 8\}$nl$gdb_prompt $" {
85	pass "print value of d_instance"
86    }
87}
88
89cp_test_ptype_class \
90    "ptype d_instance" "" "class" "D" \
91    {
92	{ base          "private A" }
93	{ base          "public B" }
94	{ base          "protected C" }
95	{ field  public "int d;" }
96	{ field  public "int dd;" }
97	{ method public "D();" }
98	{ method public "int dfoo();" }
99	{ method public "int foo();" }
100    } \
101    "" \
102    {
103	{ "protected C" "private C" { setup_xfail "*-*-*" "gcc/13539" } }
104    }
105
106# class E
107
108gdb_test_multiple "print e_instance" "print value of e_instance" {
109    -re "\\$\[0-9\]+ = \{<(class A|A)> = \{a = 1, aa = 2\}, <(class B|B)> = \{b = 3, bb = 4\}, <(class C|C)> = \{c = 5, cc = 6\}, e = 9, ee = 10\}$nl$gdb_prompt $" {
110	pass "print value of e_instance"
111    }
112}
113
114cp_test_ptype_class \
115    "ptype e_instance" "" "class" "E" \
116    {
117	{ base          "public A" }
118	{ base          "private B" }
119	{ base          "protected C" }
120	{ field  public "int e;" }
121	{ field  public "int ee;" }
122	{ method public "E();" }
123	{ method public "int efoo();" }
124	{ method public "int foo();" }
125    } \
126    "" \
127    {
128	{ "protected C" "private C" { setup_xfail "*-*-*" "gcc/13539" } }
129    }
130
131# class F
132
133gdb_test_multiple "print f_instance" "print value of f_instance" {
134    -re "\\$\[0-9\]+ = \{<(class A|A)> = \{a = 1, aa = 2\}, <(class B|B)> = \{b = 3, bb = 4\}, <(class C|C)> = \{c = 5, cc = 6\}, f = 11, ff = 12\}$nl$gdb_prompt $" {
135	pass "print value of f_instance"
136    }
137}
138
139cp_test_ptype_class \
140    "ptype f_instance" "" "class" "F" \
141    {
142	{ base          "private A" }
143	{ base          "public B" }
144	{ base          "private C" }
145	{ field  public "int f;" }
146	{ field  public "int ff;" }
147	{ method public "F();" }
148	{ method public "int ffoo();" }
149	{ method public "int foo();" }
150    }
151
152# Print individual fields.
153
154gdb_test "print d_instance.a"  "\\$\[0-9\]+ = 1" "print value of d_instance.a"
155gdb_test "print d_instance.aa" "\\$\[0-9\]+ = 2" "print value of d_instance.aa"
156gdb_test "print d_instance.b"  "\\$\[0-9\]+ = 3" "print value of d_instance.b"
157gdb_test "print d_instance.bb" "\\$\[0-9\]+ = 4" "print value of d_instance.bb"
158gdb_test "print d_instance.c"  "\\$\[0-9\]+ = 5" "print value of d_instance.c"
159gdb_test "print d_instance.cc" "\\$\[0-9\]+ = 6" "print value of d_instance.cc"
160gdb_test "print d_instance.d"  "\\$\[0-9\]+ = 7" "print value of d_instance.d"
161gdb_test "print d_instance.dd" "\\$\[0-9\]+ = 8" "print value of d_instance.dd"
162
163# Print some fields which are defined in the top of class G
164# and in its base classes.  This is not be ambiguous.
165
166gdb_test "print g_instance.a"  "\\$\[0-9\]+ = 15" "print value of g_instance.a"
167gdb_test "print g_instance.b"  "\\$\[0-9\]+ = 16" "print value of g_instance.b"
168gdb_test "print g_instance.c"  "\\$\[0-9\]+ = 17" "print value of g_instance.c"
169
170# Print a function call.
171
172gdb_test "print g_instance.afoo()" "\\$\[0-9\]+ = 1" "print value of g_instance.afoo()"
173
174# If GDB fails to restore the selected frame properly after the
175# inferior function call above (see GDB PR 1155 for an explanation of
176# why this might happen), all the subsequent tests will fail.  We
177# should detect report that failure, but let the marker call finish so
178# that the rest of the tests can run undisturbed.
179
180gdb_test_multiple "frame" "re-selected 'main' frame after inferior call" {
181    -re "#0  marker1.*$gdb_prompt $" {
182        setup_kfail "gdb/1155" s390-*-linux-gnu
183        fail "re-selected 'main' frame after inferior call"
184        gdb_test "finish" ".*main.*at .*derivation.cc:.*// marker1-returns-here.*" \
185            "finish call to marker1"
186    }
187    -re "#1  ($hex in )?main.*$gdb_prompt $" {
188        pass "re-selected 'main' frame after inferior call"
189    }
190}
191
192gdb_test "print g_instance.bfoo()" "\\$\[0-9\]+ = 2" "print value of g_instance.bfoo()"
193gdb_test "print g_instance.cfoo()" "\\$\[0-9\]+ = 3" "print value of g_instance.cfoo()"
194