Commit | Line | Data |
---|---|---|
c906108c SS |
1 | # Copyright (C) 1992, 1993, 1994, 1997 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 2 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, write to the Free Software | |
15 | # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. | |
16 | ||
17 | # Please email any bugs, comments, and/or additions to this file to: | |
18 | # bug-gdb@prep.ai.mit.edu | |
19 | ||
20 | # This file was written by Fred Fish. (fnf@cygnus.com) | |
21 | ||
22 | set ws "\[\r\n\t \]+" | |
23 | set nl "\[\r\n\]+" | |
24 | ||
25 | if $tracelevel then { | |
26 | strace $tracelevel | |
27 | } | |
28 | ||
29 | # Check to see if we have an executable to test. If not, then either we | |
30 | # haven't tried to compile one, or the compilation failed for some reason. | |
31 | # In either case, just notify the user and skip the tests in this file. | |
32 | # Note - create separate "inherit" executable from misc.cc | |
33 | ||
34 | set testfile "inherit" | |
35 | set srcfile misc.cc | |
36 | set binfile ${objdir}/${subdir}/${testfile} | |
37 | ||
38 | ||
39 | # Create and source the file that provides information about the compiler | |
40 | # used to compile the test case. | |
41 | ||
42 | if [get_compiler_info ${binfile} "c++"] { | |
43 | return -1 | |
44 | } | |
45 | ||
c906108c SS |
46 | if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } { |
47 | gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." | |
48 | } | |
49 | ||
50 | # | |
51 | # Single inheritance, print individual members. | |
52 | # | |
53 | ||
54 | proc test_print_si_members {} { | |
55 | # Print all members of g_A using fully qualified form. | |
56 | ||
57 | gdb_test "print g_A.A::a" ".* = 1" "print g_A.A::a" | |
58 | ||
59 | gdb_test "print g_A.A::x" ".* = 2" "print g_A.A::x" | |
60 | ||
61 | # Print members of g_A using nonambiguous compact form. | |
62 | ||
63 | gdb_test "print g_A.a" ".* = 1" "print g_A.a" | |
64 | ||
65 | gdb_test "print g_A.x" ".* = 2" "print g_A.x" | |
66 | ||
67 | # Print all members of g_B using fully qualified form. | |
68 | ||
69 | gdb_test "print g_B.A::a" ".* = 3" "print g_B.A::a" | |
70 | ||
71 | gdb_test "print g_B.A::x" ".* = 4" "print g_B.A::x" | |
72 | ||
73 | gdb_test "print g_B.B::b" ".* = 5" "print g_B.B::b" | |
74 | ||
75 | gdb_test "print g_B.B::x" ".* = 6" "print g_B.B::x" | |
76 | ||
77 | # Print members of g_B using nonambiguous compact form. | |
78 | ||
79 | setup_xfail_format "DWARF 1" | |
80 | gdb_test "print g_B.a" ".* = 3" "print g_B.a" | |
81 | ||
82 | gdb_test "print g_B.b" ".* = 5" "print g_B.b" | |
83 | ||
84 | gdb_test "print g_B.x" ".* = 6" "print g_B.x" | |
85 | ||
86 | # Print all members of g_C using fully qualified form. | |
87 | ||
88 | gdb_test "print g_C.A::a" ".* = 7" "print g_C.A::a" | |
89 | ||
90 | gdb_test "print g_C.A::x" ".* = 8" "print g_C.A::x" | |
91 | ||
92 | gdb_test "print g_C.C::c" ".* = 9" "print g_C.C::c" | |
93 | ||
94 | gdb_test "print g_C.C::x" ".* = 10" "print g_C.C::x" | |
95 | ||
96 | # Print members of g_C using nonambiguous compact form. | |
97 | ||
98 | setup_xfail_format "DWARF 1" | |
99 | gdb_test "print g_C.a" ".* = 7" "print g_C.a" | |
100 | ||
101 | gdb_test "print g_C.c" ".* = 9" "print g_C.c" | |
102 | ||
103 | gdb_test "print g_C.x" ".* = 10" "print g_C.x" | |
104 | } | |
105 | ||
106 | # | |
107 | # Single inheritance, print type definitions. | |
108 | # | |
109 | ||
110 | proc test_ptype_si {} { | |
111 | global gdb_prompt | |
112 | global ws | |
113 | global nl | |
a0b3c4fd | 114 | global hp_aCC_compiler |
c906108c SS |
115 | |
116 | # Print class A as a type. | |
117 | ||
118 | send_gdb "ptype A\n" | |
119 | gdb_expect { | |
120 | -re "type = class A \{$nl.*\[ \]*int a;$nl\[ \]*int x;$nl.*\[ \]*\}$nl$gdb_prompt $" { | |
121 | pass "ptype A (FIXME)" | |
122 | } | |
123 | -re "type = struct A \{$nl\[ \]*int a;$nl\[ \]*int x;$nl\[ \]*\}$nl$gdb_prompt $" { | |
124 | setup_xfail "*-*-*" | |
125 | fail "ptype A (FIXME)" | |
126 | } | |
127 | -re ".*$gdb_prompt $" { fail "ptype A" } | |
128 | timeout { fail "ptype A (timeout)" ; return } | |
129 | } | |
130 | ||
131 | # Print class A as an explicit class. | |
132 | ||
133 | send_gdb "ptype class A\n" | |
134 | gdb_expect { | |
135 | -re "type = class A \{$nl.*\[ \]*int a;$nl\[ \]*int x;$nl.*\[ \]*\}$nl$gdb_prompt $" { | |
136 | pass "ptype class A (FIXME)" | |
137 | } | |
138 | -re "type = struct A \{$nl\[ \]*int a;$nl\[ \]*int x;$nl\[ \]*\}$nl$gdb_prompt $" { | |
a0b3c4fd | 139 | if {!$hp_aCC_compiler} {setup_xfail "*-*-*"} |
c906108c SS |
140 | fail "ptype class A (FIXME)" |
141 | } | |
142 | -re ".*$gdb_prompt $" { fail "ptype class A" } | |
143 | timeout { fail "ptype class A (timeout)" ; return } | |
144 | } | |
145 | ||
146 | # Print type of an object of type A. | |
147 | ||
148 | send_gdb "ptype g_A\n" | |
149 | gdb_expect { | |
150 | -re "type = class A \{$nl.*\[ \]*int a;$nl\[ \]*int x;$nl.*\[ \]*\}$nl$gdb_prompt $" { | |
151 | pass "ptype g_A (FIXME)" | |
152 | } | |
153 | -re "type = struct A \{$nl\[ \]*int a;$nl\[ \]*int x;$nl\[ \]*\}$nl$gdb_prompt $" { | |
a0b3c4fd | 154 | if {!$hp_aCC_compiler} {setup_xfail "*-*-*"} |
c906108c SS |
155 | fail "ptype g_A (FIXME)" |
156 | } | |
157 | -re ".*$gdb_prompt $" { fail "ptype g_A" } | |
158 | timeout { fail "ptype g_A (timeout)" ; return } | |
159 | } | |
160 | ||
161 | # Print class B as a type. | |
162 | ||
163 | setup_xfail_format "DWARF 1" | |
164 | gdb_test "ptype B" "type = class B : public A \{$nl\[ \]*public:$nl\[ \]*int b;$nl\[ \]*int x;$nl.*\}" "ptype B" | |
165 | ||
166 | # Print class B as an explicit class. | |
167 | ||
168 | setup_xfail_format "DWARF 1" | |
169 | gdb_test "ptype class B" "type = class B : public A \{$nl\[ \]*public:$nl\[ \]*int b;$nl\[ \]*int x;$nl.*\}" "ptype class B" | |
170 | ||
171 | # Print type of an object of type B. | |
172 | ||
173 | setup_xfail_format "DWARF 1" | |
174 | gdb_test "ptype g_B" "type = class B : public A \{$nl\[ \]*public:$nl\[ \]*int b;$nl\[ \]*int x;$nl.*\}" "ptype g_B" | |
175 | ||
176 | # Print class C as a type. | |
177 | ||
178 | setup_xfail_format "DWARF 1" | |
179 | gdb_test "ptype C" "type = class C : public A \{$nl\[ \]*public:$nl\[ \]*int c;$nl\[ \]*int x;$nl.*\}" "ptype C" | |
180 | ||
181 | # Print class C as an explicit class. | |
182 | ||
183 | setup_xfail_format "DWARF 1" | |
184 | gdb_test "ptype class C" "type = class C : public A \{$nl\[ \]*public:$nl\[ \]*int c;$nl\[ \]*int x;$nl.*\}" "ptype class C" | |
185 | ||
186 | # Print type of an object of type g_C. | |
187 | ||
188 | setup_xfail_format "DWARF 1" | |
189 | gdb_test "ptype g_C" "type = class C : public A \{$nl\[ \]*public:$nl\[ \]*int c;$nl\[ \]*int x;$nl.*\}" "ptype g_C" | |
190 | ||
191 | # gcc cygnus-2.3.3 (Q1) has this bug, but it was fixed as of | |
192 | # cygnus-2.3.3-930417. PR 2819. | |
193 | send_gdb "ptype tagless_struct\n" | |
194 | gdb_expect { | |
195 | -re "type = class \{${ws}public:${ws}int one;${ws}int two;${ws}tagless_struct & operator=\\(tagless_struct &\\);${ws}\\\$_1 \\(tagless_struct &\\);${ws}\\\$_1 \\(\\);${ws}\}$nl$gdb_prompt $" { | |
196 | pass "ptype tagless struct" | |
197 | } | |
198 | -re "type = (struct|class).*\{.*int one;.*int two;.*\}$nl$gdb_prompt $" { | |
199 | pass "ptype tagless struct (obsolete gcc or gdb)" | |
200 | } | |
201 | -re ".*$gdb_prompt $" { | |
202 | fail "ptype tagless struct" | |
203 | } | |
204 | timeout { | |
205 | fail "ptype tagless struct (timeout)" | |
206 | } | |
207 | } | |
208 | ||
209 | send_gdb "ptype v_tagless\n" | |
210 | gdb_expect { | |
211 | -re "type = class \{${ws}public:${ws}int one;${ws}int two;${ws}tagless_struct & operator=\\(tagless_struct &\\);${ws}\\\$_1 \\(tagless_struct &\\);${ws}\\\$_1 \\(\\);${ws}\}$nl$gdb_prompt $" { | |
212 | pass "ptype variable of type tagless struct" | |
213 | } | |
214 | -re "type = (struct|class).*\{.*int one;.*int two;.*\}$nl$gdb_prompt $" { | |
215 | pass "ptype variable of type tagless struct (obsolete gcc or gdb)" | |
216 | } | |
217 | -re ".*$gdb_prompt $" { | |
218 | fail "ptype variable of type tagless struct" | |
219 | } | |
220 | timeout { | |
221 | fail "ptype variable of type tagless struct (timeout)" | |
222 | } | |
223 | } | |
224 | } | |
225 | ||
226 | # | |
227 | # Single inheritance, print complete classes. | |
228 | # | |
229 | ||
230 | proc test_print_si_classes {} { | |
231 | # Print all members of g_A. | |
232 | ||
233 | gdb_test "print g_A" ".* = \{a = 1, x = 2\}" "print g_A" | |
234 | ||
235 | # Print all members of g_B. | |
236 | ||
237 | setup_xfail_format "DWARF 1" | |
a0b3c4fd | 238 | gdb_test "print g_B" ".* = \{\<(class |)A\> = \{a = 3, x = 4\}, b = 5, x = 6\}" "print g_B" |
c906108c SS |
239 | |
240 | # Print all members of g_C. | |
241 | ||
242 | setup_xfail_format "DWARF 1" | |
a0b3c4fd | 243 | gdb_test "print g_C" ".* = \{\<(class |)A\> = \{a = 7, x = 8\}, c = 9, x = 10\}" "print g_C" |
c906108c SS |
244 | } |
245 | ||
246 | # | |
247 | # Single inheritance, print anonymous unions. | |
248 | # GDB versions prior to 4.14 entered an infinite loop when printing | |
249 | # the type of a class containing an anonymous union, and they were also | |
250 | # incapable of printing the member of an anonymous union. | |
251 | # We test the printing of the member first, and perform the other tests | |
252 | # only if the test succeeds, to avoid the infinite loop. | |
253 | # | |
254 | ||
255 | proc test_print_anon_union {} { | |
256 | global gdb_prompt | |
257 | global ws | |
258 | global nl | |
259 | ||
260 | setup_xfail_format "DWARF 1" | |
261 | gdb_test "print g_anon_union.a" ".* = 2" "print anonymous union member" | |
262 | setup_xfail_format "DWARF 1" | |
263 | send_gdb "print g_anon_union\n" | |
264 | gdb_expect { | |
a0b3c4fd | 265 | -re ".* = \{one = 1, ( = |)\{a = 2, b = 2\}\}$nl$gdb_prompt $" { |
c906108c SS |
266 | pass "print variable of type anonymous union" |
267 | } | |
a0b3c4fd | 268 | -re ".* = .*\{one = 1, ( = |)\{a = 2, b = .*\}\}$nl$gdb_prompt $" { |
c906108c SS |
269 | pass "print variable of type anonymous union (obsolete gcc or gdb)" |
270 | } | |
271 | -re ".*$nl$gdb_prompt $" { | |
272 | fail "print variable of type anonymous union" | |
273 | } | |
274 | timeout { | |
275 | fail "print variableof type anonymous union (timeout)" | |
276 | } | |
277 | } | |
278 | setup_xfail_format "DWARF 1" | |
279 | send_gdb "ptype g_anon_union\n" | |
280 | gdb_expect { | |
281 | -re "type = class class_with_anon_union \{${ws}public:${ws}int one;${ws}union \{${ws}public:${ws}int a;${ws}long int b;${ws}union \{\.\.\.\} & operator=\\(union \{\.\.\.\} &\\);${ws}\\\$_0 \\(union \{\.\.\.\} &\\);${ws}\\\$_0 \\(\\);${ws}\};${ws}class_with_anon_union & operator=\\(class_with_anon_union const &\\);${ws}class_with_anon_union\\(class_with_anon_union const &\\);${ws}class_with_anon_union\\(void\\);${ws}\}$nl$gdb_prompt $" { | |
282 | pass "print type of anonymous union" | |
283 | } | |
284 | -re "type = (struct|class).*\{.*int one;.*union \{.*int a;.*(long|long int|int) b;.*\};.*\}$nl$gdb_prompt $" { | |
285 | pass "print type of anonymous union (obsolete gcc or gdb)" | |
286 | } | |
287 | -re ".*$nl$gdb_prompt $" { | |
288 | fail "print type of anonymous union" | |
289 | } | |
290 | timeout { | |
291 | fail "print type of anonymous union (timeout)" | |
292 | } | |
293 | } | |
294 | } | |
295 | ||
296 | # | |
297 | # Multiple inheritance, print individual members. | |
298 | # | |
299 | ||
300 | proc test_print_mi_members {} { | |
301 | global gdb_prompt | |
302 | global nl | |
a0b3c4fd | 303 | global hp_aCC_compiler |
c906108c SS |
304 | |
305 | # Print all members of g_A. | |
306 | ||
307 | gdb_test "print g_A.A::a" ".* = 1" "print g_A.A::a" | |
308 | ||
309 | gdb_test "print g_A.A::x" ".* = 2" "print g_A.A::x" | |
310 | ||
311 | # Print all members of g_B. | |
312 | ||
313 | gdb_test "print g_B.A::a" ".* = 3" "print g_B.A::a" | |
314 | ||
315 | gdb_test "print g_B.A::x" ".* = 4" "print g_B.A::x" | |
316 | ||
317 | gdb_test "print g_B.B::b" ".* = 5" "print g_B.B::b" | |
318 | ||
319 | gdb_test "print g_B.B::x" ".* = 6" "print g_B.B::x" | |
320 | ||
321 | # Print all members of g_C. | |
322 | ||
323 | gdb_test "print g_C.A::a" ".* = 7" "print g_C.A::a" | |
324 | ||
325 | gdb_test "print g_C.A::x" ".* = 8" "print g_C.A::x" | |
326 | ||
327 | gdb_test "print g_C.C::c" ".* = 9" "print g_C.C::c" | |
328 | ||
329 | gdb_test "print g_C.C::x" ".* = 10" "print g_C.C::x" | |
330 | ||
331 | # Print all members of g_D. | |
332 | ||
333 | # The following is ambiguous, and gdb should detect this. | |
334 | # For now, accept gdb's behavior as an expected failure if it | |
335 | # simply prints either member correctly. | |
336 | ||
a0b3c4fd | 337 | if {!$hp_aCC_compiler} {setup_xfail "*-*-*"} |
c906108c | 338 | send_gdb "print g_D.A::a\n" |
a0b3c4fd JM |
339 | gdb_expect { |
340 | -re "warning: A ambiguous; using D::C::A. Use a cast to disambiguate.$nl\\$\[0-9\]* = 15$nl$gdb_prompt $" { | |
341 | pass "print g_D.A::a" | |
342 | } | |
343 | -re "warning: A ambiguous; using D::B::A. Use a cast to disambiguate.$nl\\$\[0-9\]* = 11$nl$gdb_prompt $" { | |
344 | pass "print g_D.A::a (using B)" | |
c906108c SS |
345 | } |
346 | -re ".* = 15$nl$gdb_prompt $" { | |
347 | fail "print g_D.A::a (FIXME)" | |
348 | } | |
a0b3c4fd JM |
349 | -re ".* = 11$nl$gdb_prompt $" { |
350 | fail "print g_D.A::a (FIXME)" | |
351 | } | |
c906108c SS |
352 | -re ".*$gdb_prompt $" { fail "print g_D.A::a" } |
353 | timeout { fail "print g_D.A::a (timeout)" ; return } | |
354 | } | |
355 | ||
356 | # The following is ambiguous, and gdb should detect this. | |
357 | # For now, accept gdb's behavior as an expected failure if it | |
358 | # simply prints either member correctly. | |
359 | ||
a0b3c4fd | 360 | if {!$hp_aCC_compiler} {setup_xfail "*-*-*"} |
c906108c SS |
361 | send_gdb "print g_D.A::x\n" |
362 | gdb_expect { | |
a0b3c4fd JM |
363 | -re "warning: A ambiguous; using D::C::A. Use a cast to disambiguate.$nl\\$\[0-9\]* = 16$nl$gdb_prompt $" { |
364 | pass "print g_D.A::x" | |
365 | } | |
366 | -re "warning: A ambiguous; using D::B::A. Use a cast to disambiguate.$nl\\$\[0-9\]* = 12$nl$gdb_prompt $" { | |
367 | pass "print g_D.A::x (using B)" | |
c906108c SS |
368 | } |
369 | -re ".* = 16$nl$gdb_prompt $" { | |
370 | fail "print g_D.A::x (FIXME)" | |
371 | } | |
a0b3c4fd JM |
372 | -re ".* = 12$nl$gdb_prompt $" { |
373 | fail "print g_D.A::x (FIXME)" | |
374 | } | |
c906108c SS |
375 | -re ".*$gdb_prompt $" { fail "print g_D.A::x" } |
376 | timeout { fail "print g_D.A::x (timeout)" ; return } | |
377 | } | |
378 | ||
379 | gdb_test "print g_D.B::b" ".* = 13" "print g_D.B::b" | |
380 | ||
381 | gdb_test "print g_D.B::x" ".* = 14" "print g_D.B::x" | |
382 | ||
383 | setup_xfail_format "DWARF 1" | |
384 | gdb_test "print g_D.C::c" ".* = 17" "print g_D.C::c" | |
385 | ||
386 | setup_xfail_format "DWARF 1" | |
387 | gdb_test "print g_D.C::x" ".* = 18" "print g_D.C::x" | |
388 | ||
389 | gdb_test "print g_D.D::d" ".* = 19" "print g_D.D::d" | |
390 | ||
391 | gdb_test "print g_D.D::x" ".* = 20" "print g_D.D::x" | |
392 | ||
393 | # Print all members of g_E. | |
394 | ||
395 | # The following is ambiguous, and gdb should detect this. | |
396 | # For now, accept gdb's behavior as an expected failure if it | |
397 | # simply prints either member correctly. | |
398 | ||
399 | setup_xfail "*-*-*" | |
400 | send_gdb "print g_E.A::a\n" | |
401 | gdb_expect { | |
402 | -re ".* = 21$nl$gdb_prompt $" { | |
403 | fail "print g_E.A::a (FIXME)" | |
404 | } | |
405 | -re ".* = 25$nl$gdb_prompt $" { | |
406 | fail "print g_E.A::a (FIXME)" | |
407 | } | |
408 | -re ".*$gdb_prompt $" { fail "print g_E.A::a" } | |
409 | timeout { fail "print g_E.A::a (timeout)" ; return } | |
410 | } | |
411 | ||
412 | # The following is ambiguous, and gdb should detect this. | |
413 | # For now, accept gdb's behavior as an expected failure if it | |
414 | # simply prints either member correctly. | |
415 | ||
a0b3c4fd | 416 | if {!$hp_aCC_compiler} {setup_xfail "*-*-*"} |
c906108c SS |
417 | send_gdb "print g_E.A::x\n" |
418 | gdb_expect { | |
a0b3c4fd JM |
419 | -re "warning: A ambiguous; using E::D::C::A. Use a cast to disambiguate.$nl\\$\[0-9\]* = 26$nl$gdb_prompt $" { |
420 | pass "print g_E.A::x" | |
421 | } | |
422 | -re "warning: A ambiguous; using E::D::B::A. Use a cast to disambiguate.$nl\\$\[0-9\]* = 22$nl$gdb_prompt $" { | |
423 | pass "print g_E.A::x (using B)" | |
c906108c SS |
424 | } |
425 | -re ".* = 26$nl$gdb_prompt $" { | |
426 | fail "print g_E.A::x (FIXME)" | |
427 | } | |
a0b3c4fd JM |
428 | -re ".* = 22$nl$gdb_prompt $" { |
429 | fail "print g_E.A::x (FIXME)" | |
430 | } | |
c906108c SS |
431 | -re ".*$gdb_prompt $" { fail "print g_E.A::x" } |
432 | timeout { fail "print g_E.A::x (timeout)" ; return } | |
433 | } | |
434 | ||
435 | gdb_test "print g_E.B::b" ".* = 23" "print g_E.B::b" | |
436 | ||
437 | gdb_test "print g_E.B::x" ".* = 24" "print g_E.B::x" | |
438 | ||
439 | setup_xfail_format "DWARF 1" | |
440 | gdb_test "print g_E.C::c" ".* = 27" "print g_E.C::c" | |
441 | ||
442 | setup_xfail_format "DWARF 1" | |
443 | gdb_test "print g_E.C::x" ".* = 28" "print g_E.C::x" | |
444 | ||
445 | gdb_test "print g_E.D::d" ".* = 29" "print g_E.D::d" | |
446 | ||
447 | gdb_test "print g_E.D::x" ".* = 30" "print g_E.D::x" | |
448 | ||
449 | gdb_test "print g_E.E::e" ".* = 31" "print g_E.E::e" | |
450 | ||
451 | gdb_test "print g_E.E::x" ".* = 32" "print g_E.E::x" | |
452 | } | |
453 | ||
454 | # | |
455 | # Multiple inheritance, print type definitions. | |
456 | # | |
457 | ||
458 | proc test_ptype_mi {} { | |
459 | global nl | |
460 | ||
461 | setup_xfail_format "DWARF 1" | |
462 | gdb_test "ptype D" "type = class D : public B, public C \{$nl\[ \]*public:$nl\[ \]*int d;$nl\[ \]*int x;$nl.*\}" "ptype D" | |
463 | ||
464 | setup_xfail_format "DWARF 1" | |
465 | gdb_test "ptype class D" "type = class D : public B, public C \{$nl\[ \]*public:$nl\[ \]*int d;$nl\[ \]*int x;$nl.*\}" "ptype class D" | |
466 | ||
467 | setup_xfail_format "DWARF 1" | |
468 | gdb_test "ptype g_D" "type = class D : public B, public C \{$nl\[ \]*public:$nl\[ \]*int d;$nl\[ \]*int x;$nl.*\}" "ptype g_D" | |
469 | ||
470 | setup_xfail_format "DWARF 1" | |
471 | gdb_test "ptype E" "type = class E : public D \{$nl\[ \]*public:$nl\[ \]*int e;$nl\[ \]*int x;$nl.*\}" "ptype E" | |
472 | ||
473 | setup_xfail_format "DWARF 1" | |
474 | gdb_test "ptype class E" "type = class E : public D \{$nl\[ \]*public:$nl\[ \]*int e;$nl\[ \]*int x;$nl.*\}" "ptype class E" | |
475 | ||
476 | setup_xfail_format "DWARF 1" | |
477 | gdb_test "ptype g_E" "type = class E : public D \{$nl\[ \]*public:$nl\[ \]*int e;$nl\[ \]*int x;$nl.*\}" "ptype g_E" | |
478 | } | |
479 | ||
480 | # | |
481 | # Multiple inheritance, print complete classes. | |
482 | # | |
483 | ||
484 | proc test_print_mi_classes {} { | |
485 | # Print all members of g_D. | |
486 | ||
487 | setup_xfail_format "DWARF 1" | |
a0b3c4fd | 488 | gdb_test "print g_D" ".* = \{\<(class |)B\> = \{\<(class |)A\> = \{a = 11, x = 12\}, b = 13, x = 14\}, \<(class |)C\> = \{\<(class |)A\> = \{a = 15, x = 16\}, c = 17, x = 18\}, d = 19, x = 20\}" "print g_D" |
c906108c SS |
489 | |
490 | # Print all members of g_E. | |
491 | ||
492 | setup_xfail_format "DWARF 1" | |
a0b3c4fd | 493 | gdb_test "print g_E" ".* = \{\<(class |)D\> = \{\<(class |)B\> = \{\<(class |)A\> = \{a = 21, x = 22\}, b = 23, x = 24\}, \<(class |)C\> = \{\<(class |)A\> = \{a = 25, x = 26\}, c = 27, x = 28\}, d = 29, x = 30\}, e = 31, x = 32\}" "print g_E" |
c906108c SS |
494 | } |
495 | ||
496 | # | |
497 | # Single virtual inheritance, print individual members. | |
498 | # | |
499 | ||
500 | proc test_print_svi_members {} { | |
501 | global gdb_prompt | |
502 | global decimal | |
503 | global nl | |
504 | ||
505 | # Print all members of g_vA. | |
506 | ||
507 | gdb_test "print g_vA.vA::va" ".* = 1" "print g_vA.vA::va" | |
508 | ||
509 | gdb_test "print g_vA.vA::vx" ".* = 2" "print g_vA.vA::vx" | |
510 | ||
511 | # Print members of g_vA using compact form. | |
512 | ||
513 | gdb_test "print g_vA.va" ".* = 1" "print g_vA.va" | |
514 | ||
515 | gdb_test "print g_vA.vx" ".* = 2" "print g_vA.vx" | |
516 | ||
517 | # Print all members of g_vB. | |
518 | ||
519 | setup_xfail_format "DWARF 1" | |
520 | send_gdb "print g_vB.vA::va\n" | |
521 | gdb_expect { | |
522 | -re ".* = 3$nl$gdb_prompt $" { pass "print g_vB.vA::va" } | |
523 | -re ".*virtual baseclass botch.*$gdb_prompt $" { | |
524 | # Does not happen with gcc cygnus-2.4.5-930828 | |
525 | fail "print g_vB.vA::va (known bug with gcc cygnus-2.4.5-930417)" | |
526 | # Many of the rest of these tests have the same problem. | |
527 | return 0 | |
528 | } | |
529 | -re ".*$gdb_prompt $" { fail "print g_vB.vA::va" } | |
530 | timeout { fail "print g_vB.vA::va (timeout)" ; return } | |
531 | } | |
532 | ||
533 | setup_xfail_format "DWARF 1" | |
534 | gdb_test "print g_vB.vA::vx" ".* = 4" "print g_vB.vA::vx" | |
535 | ||
536 | gdb_test "print g_vB.vB::vb" ".* = 5" "print g_vB.vB::vb" | |
537 | ||
538 | gdb_test "print g_vB.vB::vx" ".* = 6" "print g_vB.vB::vx" | |
539 | ||
540 | # Print members of g_vB using compact form. | |
541 | ||
542 | setup_xfail_format "DWARF 1" | |
543 | gdb_test "print g_vB.va" ".* = 3" "print g_vB.va" | |
544 | ||
545 | gdb_test "print g_vB.vb" ".* = 5" "print g_vB.vb" | |
546 | ||
547 | gdb_test "print g_vB.vx" ".* = 6" "print g_vB.vx" | |
548 | ||
549 | # Print all members of g_vC. | |
550 | ||
551 | setup_xfail_format "DWARF 1" | |
552 | gdb_test "print g_vC.vA::va" ".* = 7" "print g_vC.vA::va" | |
553 | ||
554 | setup_xfail_format "DWARF 1" | |
555 | gdb_test "print g_vC.vA::vx" ".* = 8" "print g_vC.vA::vx" | |
556 | ||
557 | gdb_test "print g_vC.vC::vc" ".* = 9" "print g_vC.vC::vc" | |
558 | ||
559 | gdb_test "print g_vC.vC::vx" ".* = 10" "print g_vC.vC::vx" | |
560 | ||
561 | # Print members of g_vC using compact form. | |
562 | ||
563 | setup_xfail_format "DWARF 1" | |
564 | gdb_test "print g_vC.va" ".* = 7" "print g_vC.va" | |
565 | ||
566 | gdb_test "print g_vC.vc" ".* = 9" "print g_vC.vc" | |
567 | ||
568 | gdb_test "print g_vC.vx" ".* = 10" "print g_vC.vx" | |
569 | } | |
570 | ||
571 | # | |
572 | # Single virtual inheritance, print type definitions. | |
573 | # | |
574 | ||
575 | proc test_ptype_vi {} { | |
576 | global gdb_prompt | |
a0b3c4fd | 577 | global ws |
c906108c SS |
578 | global nl |
579 | ||
580 | # This class does not use any C++-specific features, so it's fine for | |
581 | # it to print as "struct". | |
582 | send_gdb "ptype vA\n" | |
583 | gdb_expect { | |
584 | -re "type = class vA \{$nl\[ \]*public:$nl\[ \]*int va;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
585 | pass "ptype vA" | |
586 | } | |
587 | -re "type = struct vA \{$nl\[ \]*int va;$nl\[ \]*int vx;$nl\}$nl$gdb_prompt $" { | |
588 | pass "ptype vA" | |
589 | } | |
590 | -re ".*$gdb_prompt $" { fail "ptype vA" } | |
591 | timeout { fail "ptype vA (timeout)" ; return } | |
592 | } | |
593 | ||
594 | # This class does not use any C++-specific features, so it's fine for | |
595 | # it to print as "struct". | |
596 | send_gdb "ptype class vA\n" | |
597 | gdb_expect { | |
598 | -re "type = class vA \{$nl\[ \]*public:$nl\[ \]*int va;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
599 | pass "ptype class vA" | |
600 | } | |
601 | -re "type = struct vA \{$nl\[ \]*int va;$nl\[ \]*int vx;$nl\}$nl$gdb_prompt $" { | |
602 | pass "ptype class vA" | |
603 | } | |
604 | -re ".*$gdb_prompt $" { fail "ptype class vA" } | |
605 | timeout { fail "ptype class vA (timeout)" ; return } | |
606 | } | |
607 | ||
608 | # This class does not use any C++-specific features, so it's fine for | |
609 | # it to print as "struct". | |
610 | send_gdb "ptype g_vA\n" | |
611 | gdb_expect { | |
612 | -re "type = class vA \{$nl\[ \]*public:$nl\[ \]*int va;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
613 | pass "ptype g_vA" | |
614 | } | |
615 | -re "type = struct vA \{$nl\[ \]*int va;$nl\[ \]*int vx;$nl\}$nl$gdb_prompt $" { | |
616 | pass "ptype g_vA" | |
617 | } | |
618 | -re ".*$gdb_prompt $" { fail "ptype g_vA" } | |
619 | timeout { fail "ptype g_vA (timeout)" ; return } | |
620 | } | |
621 | ||
622 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
623 | send_gdb "ptype vB\n" |
624 | gdb_expect { | |
625 | -re "ptype vB${nl}type = class vB : public virtual vA \{$nl private:${ws}vA \[*\]+_vb\[\\\$\.\]+vA;$nl public:${ws}int vb;${ws}int vx;$nl.*\}$nl$gdb_prompt $" { | |
626 | pass "ptype vB" | |
627 | } | |
628 | -re "ptype vB${nl}type = class vB : public virtual vA \{$nl public:${ws}int vb;${ws}int vx;$nl.*\}$nl$gdb_prompt $" { | |
629 | pass "ptype vB (aCC)" | |
630 | } | |
631 | -re ".*$gdb_prompt $" { fail "ptype vB" } | |
632 | timeout { fail "ptype vB (timeout)" } | |
633 | } | |
c906108c SS |
634 | |
635 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
636 | send_gdb "ptype class vB\n" |
637 | gdb_expect { | |
638 | -re "type = class vB : public virtual vA \{$nl\[ \]*private:$nl\[ \]*vA \[*\]+_vb\[\\\$\.\]vA;$nl\[ \]*public:$nl\[ \]*int vb;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
639 | pass "ptype class vB" | |
640 | } | |
641 | -re "type = class vB : public virtual vA \{$nl\[ \]*public:$nl\[ \]*int vb;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
642 | pass "ptype class vB (aCC)" | |
643 | } | |
644 | -re ".*$gdb_prompt $" { fail "ptype class vB" } | |
645 | timeout { fail "ptype class vB (timeout)" } | |
646 | } | |
c906108c SS |
647 | |
648 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
649 | send_gdb "ptype g_vB\n" |
650 | gdb_expect { | |
651 | -re "type = class vB : public virtual vA \{$nl\[ \]*private:$nl\[ \]*vA \[*\]+_vb\[\\\$\.\]vA;$nl\[ \]*public:$nl\[ \]*int vb;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
652 | pass "ptype g_vB" | |
653 | } | |
654 | -re "type = class vB : public virtual vA \{$nl\[ \]*public:$nl\[ \]*int vb;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
655 | pass "ptype g_vB (aCC)" | |
656 | } | |
657 | -re ".*$gdb_prompt $" { fail "ptype g_vB" } | |
658 | timeout { fail "ptype g_vB (timeout)" } | |
659 | } | |
c906108c SS |
660 | |
661 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
662 | send_gdb "ptype vC\n" |
663 | gdb_expect { | |
664 | -re "type = class vC : public virtual vA \{$nl\[ \]*private:$nl\[ \]*vA \[*\]+_vb\[\\\$\.\]vA;$nl\[ \]*public:$nl\[ \]*int vc;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
665 | pass "ptype vC" | |
666 | } | |
667 | -re "type = class vC : public virtual vA \{$nl\[ \]*public:$nl\[ \]*int vc;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
668 | pass "ptype vC (aCC)" | |
669 | } | |
670 | -re ".*$gdb_prompt $" { fail "ptype vC" } | |
671 | timeout { fail "ptype vC (timeout)" } | |
672 | } | |
c906108c SS |
673 | |
674 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
675 | send_gdb "ptype class vC\n" |
676 | gdb_expect { | |
677 | -re "type = class vC : public virtual vA \{$nl\[ \]*private:$nl\[ \]*vA \[*\]+_vb\[\\\$\.\]vA;$nl\[ \]*public:$nl\[ \]*int vc;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
678 | pass "ptype class vC" | |
679 | } | |
680 | -re "type = class vC : public virtual vA \{$nl\[ \]*public:$nl\[ \]*int vc;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
681 | pass "ptype class vC (aCC)" | |
682 | } | |
683 | -re ".*$gdb_prompt $" { fail "ptype class vC" } | |
684 | timeout { fail "ptype class vC (timeout)" } | |
685 | } | |
c906108c SS |
686 | |
687 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
688 | send_gdb "ptype g_vC\n" |
689 | gdb_expect { | |
690 | -re "type = class vC : public virtual vA \{$nl\[ \]*private:$nl\[ \]*vA \[*\]+_vb\[\\\$\.\]vA;$nl\[ \]*public:$nl\[ \]*int vc;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
691 | pass "ptype g_vC" | |
692 | } | |
693 | -re "type = class vC : public virtual vA \{$nl\[ \]*public:$nl\[ \]*int vc;$nl\[ \]*int vx;$nl.*\}$nl$gdb_prompt $" { | |
694 | pass "ptype g_vC (aCC)" | |
695 | } | |
696 | -re ".*$gdb_prompt $" { fail "ptype g_vC" } | |
697 | timeout { fail "ptype g_vC (timeout)" } | |
698 | } | |
c906108c SS |
699 | } |
700 | ||
701 | # | |
702 | # Single virtual inheritance, print complete classes. | |
703 | # | |
704 | ||
705 | proc test_print_svi_classes {} { | |
706 | global gdb_prompt | |
707 | global hex | |
708 | global decimal | |
709 | global nl | |
710 | ||
711 | # Print all members of g_vA. | |
712 | ||
713 | gdb_test "print g_vA" ".* = \{va = 1, vx = 2\}" "print g_vA" | |
714 | ||
715 | # Print all members of g_vB. | |
716 | ||
717 | setup_xfail_format "DWARF 1" | |
718 | send_gdb "print g_vB\n" | |
719 | gdb_expect { | |
a0b3c4fd JM |
720 | -re ".* = \{\<class vA\> = \{va = 3, vx = 4\}, vb = 5, vx = 6, Virtual table at $hex\}$nl$gdb_prompt $" { |
721 | pass "print g_vB (aCC)" | |
722 | } | |
723 | -re ".* = \{\<class vA\> = \{va = 3, vx = 4\}, vb = 5, vx = 6, __vfp = $hex\}$nl$gdb_prompt $" { | |
724 | pass "print g_vB (aCC)" | |
725 | } | |
c906108c SS |
726 | -re ".* = \{\<vA\> = \{va = 3, vx = 4\}, _vb\[\\\$\.\]vA = $hex, vb = 5, vx = 6\}$nl$gdb_prompt $" { |
727 | pass "print g_vB" | |
728 | } | |
729 | -re ".*invalid address 0x0.*$gdb_prompt $" { | |
730 | # Does not happen with gcc cygnus-2.4.5-930828 | |
731 | fail "print g_vB (known bug with gcc cygnus-2.4.5-930417)" | |
732 | # Many of the rest of these tests have the same problem. | |
733 | return 0 | |
734 | } | |
735 | -re ".*$gdb_prompt $" { fail "print g_vB" } | |
736 | timeout { fail "print g_vB (timeout)" ; return } | |
737 | } | |
738 | ||
739 | # Print all members of g_vC. | |
740 | ||
741 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
742 | send_gdb "print g_vC\n" |
743 | gdb_expect { | |
744 | -re ".* = \{\<class vA\> = \{va = 7, vx = 8\}, vc = 9, vx = 10, Virtual table at $hex\}$nl$gdb_prompt $" { | |
745 | pass "print g_vC (aCC)" | |
746 | } | |
747 | -re ".* = \{\<class vA\> = \{va = 7, vx = 8\}, vc = 9, vx = 10, __vfp = $hex\}$nl$gdb_prompt $" { | |
748 | pass "print g_vC (aCC)" | |
749 | } | |
750 | -re ".* = \{\<vA\> = \{va = 7, vx = 8\}, _vb\[\\\$\.\]vA = $hex, vc = 9, vx = 10\}$nl$gdb_prompt $" { | |
751 | pass "print g_vC" | |
752 | } | |
753 | -re ".*$gdb_prompt $" { fail "print g_vC" } | |
754 | timeout { fail "print g_vC (timeout)" } | |
755 | } | |
c906108c SS |
756 | } |
757 | ||
758 | # | |
759 | # Multiple virtual inheritance, print individual members. | |
760 | # | |
761 | ||
762 | proc test_print_mvi_members {} { | |
763 | global gdb_prompt | |
764 | global decimal | |
765 | global nl | |
766 | ||
767 | # Print all members of g_vD. | |
768 | ||
769 | setup_xfail_format "DWARF 1" | |
770 | send_gdb "print g_vD.vA::va\n" | |
771 | gdb_expect { | |
772 | -re ".* = 19$nl$gdb_prompt $" { pass "print g_vD.vA::va" } | |
773 | -re ".*virtual baseclass botch.*$gdb_prompt $" { | |
774 | # Does not happen with gcc cygnus-2.4.5-930828 | |
775 | fail "print g_vD.vA::va (known bug with gcc cygnus-2.4.5-930417)" | |
776 | # Many of the rest of these tests have the same problem. | |
777 | return 0 | |
778 | } | |
779 | -re ".*$gdb_prompt $" { fail "print g_vD.vA::va" } | |
780 | timeout { fail "print g_vD.vA::va (timeout)" ; return } | |
781 | } | |
782 | ||
783 | setup_xfail_format "DWARF 1" | |
784 | gdb_test "print g_vD.vA::vx" ".* = 20" "print g_vD.vA::vx" | |
785 | ||
786 | setup_xfail_format "DWARF 1" | |
787 | gdb_test "print g_vD.vB::vb" ".* = 21" "print g_vD.vB::vb" | |
788 | ||
789 | setup_xfail_format "DWARF 1" | |
790 | gdb_test "print g_vD.vB::vx" ".* = 22" "print g_vD.vB::vx" | |
791 | ||
792 | setup_xfail_format "DWARF 1" | |
793 | gdb_test "print g_vD.vC::vc" ".* = 23" "print g_vD.vC::vc" | |
794 | ||
795 | setup_xfail_format "DWARF 1" | |
796 | gdb_test "print g_vD.vC::vx" ".* = 24" "print g_vD.vC::vx" | |
797 | ||
798 | gdb_test "print g_vD.vD::vd" ".* = 25" "print g_vD.vD::vd" | |
799 | ||
800 | gdb_test "print g_vD.vD::vx" ".* = 26" "print g_vD.vD::vx" | |
801 | ||
802 | # Print all members of g_vE. | |
803 | ||
804 | setup_xfail_format "DWARF 1" | |
805 | gdb_test "print g_vE.vA::va" ".* = 0" "print g_vE.vA::va" | |
806 | ||
807 | setup_xfail_format "DWARF 1" | |
808 | gdb_test "print g_vE.vA::vx" ".* = 0" "print g_vE.vA::vx" | |
809 | ||
810 | setup_xfail_format "DWARF 1" | |
811 | gdb_test "print g_vE.vB::vb" ".* = 0" "print g_vE.vB::vb" | |
812 | ||
813 | setup_xfail_format "DWARF 1" | |
814 | gdb_test "print g_vE.vB::vx" ".* = 0" "print g_vE.vB::vx" | |
815 | ||
816 | setup_xfail_format "DWARF 1" | |
817 | gdb_test "print g_vE.vC::vc" ".* = 0" "print g_vE.vC::vc" | |
818 | ||
819 | setup_xfail_format "DWARF 1" | |
820 | gdb_test "print g_vE.vC::vx" ".* = 0" "print g_vE.vC::vx" | |
821 | ||
822 | setup_xfail_format "DWARF 1" | |
823 | gdb_test "print g_vE.vD::vd" ".* = 0" "print g_vE.vD::vd" | |
824 | ||
825 | gdb_test "print g_vE.vD::vx" ".* = 0" "print g_vE.vD::vx" | |
826 | ||
827 | gdb_test "print g_vE.vE::ve" ".* = 27" "print g_vE.vE::ve" | |
828 | ||
829 | gdb_test "print g_vE.vE::vx" ".* = 28" "print g_vE.vE::vx" | |
830 | } | |
831 | ||
832 | # | |
833 | # Multiple virtual inheritance, print type definitions. | |
834 | # | |
835 | ||
836 | proc test_ptype_mvi {} { | |
a0b3c4fd JM |
837 | global gdb_prompt |
838 | global ws | |
c906108c SS |
839 | global nl |
840 | ||
841 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
842 | send_gdb "ptype vD\n" |
843 | gdb_expect { | |
844 | -re "type = class vD : public virtual vB, public virtual vC \{${ws}private:${ws}vC \[*\]+_vb\[\\\$\.\]vC;${ws}vB \[*\]+_vb\[\\\$\.\]vB;${ws}public:${ws}int vd;${ws}int vx;$nl.*\}.*$gdb_prompt $" { | |
845 | pass "ptype vD" | |
846 | } | |
847 | -re ".*class vD : public virtual vB, public virtual vC \{${ws}public:${ws}int vd;${ws}int vx;.*\}.*$gdb_prompt $" { | |
848 | pass "ptype vD" | |
849 | } | |
850 | -re ".*$gdb_prompt $" { fail "ptype vD" } | |
851 | timeout { fail "(timeout) ptype vD" } | |
852 | } | |
c906108c SS |
853 | |
854 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
855 | send_gdb "ptype class vD\n" |
856 | gdb_expect { | |
857 | -re "type = class vD : public virtual vB, public virtual vC \{${ws}private:${ws}vC \[*\]+_vb\[\\\$\.\]vC;${ws}vB \[*\]+_vb\[\\\$\.\]vB;${ws}public:${ws}int vd;${ws}int vx;$nl.*\}.*$gdb_prompt $" { | |
858 | pass "ptype class vD" | |
859 | } | |
860 | -re ".*class vD : public virtual vB, public virtual vC \{${ws}public:${ws}int vd;${ws}int vx;.*\}.*$gdb_prompt $" { | |
861 | pass "ptype class vD" | |
862 | } | |
863 | -re ".*$gdb_prompt $" { fail "ptype class vD" } | |
864 | timeout { fail "(timeout) ptype class vD" } | |
865 | } | |
c906108c SS |
866 | |
867 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
868 | send_gdb "ptype g_vD\n" |
869 | gdb_expect { | |
870 | -re "type = class vD : public virtual vB, public virtual vC \{${ws}private:${ws}vC \[*\]+_vb\[\\\$\.\]vC;${ws}vB \[*\]+_vb\[\\\$\.\]vB;${ws}public:${ws}int vd;${ws}int vx;$nl.*\}.*$gdb_prompt $" { | |
871 | pass "ptype g_vD" | |
872 | } | |
873 | -re ".*class vD : public virtual vB, public virtual vC \{${ws}public:${ws}int vd;${ws}int vx;\r\n.*\}.*$gdb_prompt $" { | |
874 | pass "ptype g_vD" | |
875 | } | |
876 | -re ".*$gdb_prompt $" { fail "ptype g_vD" } | |
877 | timeout { fail "(timeout) ptype g_vD" } | |
878 | } | |
c906108c SS |
879 | |
880 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
881 | send_gdb "ptype vE\n" |
882 | gdb_expect { | |
883 | -re "type = class vE : public virtual vD \{${ws}private:${ws}vD \[*\]+_vb\[\\\$\.\]vD;${ws}public:${ws}int ve;${ws}int vx;$nl.*\}.*$gdb_prompt $" { | |
884 | pass "ptype vE" | |
885 | } | |
886 | -re ".*class vE : public virtual vD \{${ws}public:${ws}int ve;${ws}int vx;\r\n.*\}.*$gdb_prompt $" { | |
887 | pass "ptype vE" | |
888 | } | |
889 | -re ".*$gdb_prompt $" { fail "ptype vE" } | |
890 | timeout { fail "(timeout) ptype vE" } | |
891 | } | |
c906108c SS |
892 | |
893 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
894 | send_gdb "ptype class vE\n" |
895 | gdb_expect { | |
896 | -re "type = class vE : public virtual vD \{${ws}private:${ws}vD \[*\]+_vb\[\\\$\.\]vD;${ws}public:${ws}int ve;${ws}int vx;$nl.*\}.*$gdb_prompt $" { | |
897 | pass "ptype class vE" | |
898 | } | |
899 | -re "type = class vE : public virtual vD \{${ws}public:${ws}int ve;${ws}int vx;\r\n.*\}.*$gdb_prompt $" { | |
900 | pass "ptype class vE" | |
901 | } | |
902 | -re ".*$gdb_prompt $" { fail "ptype class vE" } | |
903 | timeout { fail "(timeout) ptype class vE" } | |
904 | } | |
c906108c SS |
905 | |
906 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
907 | send_gdb "ptype g_vE\n" |
908 | gdb_expect { | |
909 | -re "type = class vE : public virtual vD \{${ws}private:${ws}vD \[*\]+_vb\[\\\$\.\]vD;${ws}public:${ws}int ve;${ws}int vx;$nl.*\}.*$gdb_prompt $" { | |
910 | pass "ptype g_vE" | |
911 | } | |
912 | -re "type = class vE : public virtual vD \{${ws}public:${ws}int ve;${ws}int vx;\r\n.*\}.*$gdb_prompt $" { | |
913 | pass "ptype g_vE" | |
914 | } | |
915 | -re ".*$gdb_prompt $" { fail "ptype g_vE" } | |
916 | timeout { fail "(timeout) ptype g_vE" } | |
917 | } | |
c906108c SS |
918 | } |
919 | ||
920 | # | |
921 | # Multiple virtual inheritance, print complete classes. | |
922 | # | |
923 | ||
924 | proc test_print_mvi_classes {} { | |
925 | global gdb_prompt | |
926 | global hex | |
927 | global decimal | |
928 | global nl | |
929 | ||
930 | # Print all members of g_vD. | |
931 | ||
932 | setup_xfail_format "DWARF 1" | |
933 | send_gdb "print g_vD\n" | |
934 | gdb_expect { | |
a0b3c4fd JM |
935 | -re ".* = \{\<class vB\> = \{\<class vA\> = \{va = 19, vx = 20\}, vb = 21, vx = 22, Virtual table at $hex\}, \<class vC\> = \{vc = 23, vx = 24, Virtual table at $hex\}, vd = 25, vx = 26, Virtual table at $hex\}$nl$gdb_prompt $" { |
936 | pass "print g_vD (aCC)" | |
937 | } | |
938 | -re ".* = \{\<class vB\> = \{\<class vA\> = \{va = 19, vx = 20\}, vb = 21, vx = 22, __vfp = $hex\}, \<class vC\> = \{vc = 23, vx = 24, __vfp = $hex\}, vd = 25, vx = 26, __vfp = $hex\}$nl$gdb_prompt $" { | |
939 | pass "print g_vD (aCC)" | |
940 | } | |
c906108c SS |
941 | -re ".* = \{\<vB\> = \{\<vA\> = \{va = 19, vx = 20\}, _vb\[\\\$\.\]vA = $hex, vb = 21, vx = 22\}, \<vC\> = \{_vb\[\\\$\.\]vA = $hex, vc = 23, vx = 24\}, _vb\[\\\$\.\]vC = $hex, _vb\[\\\$\.\]vB = $hex, vd = 25, vx = 26\}$nl$gdb_prompt $" { |
942 | pass "print g_vD" | |
943 | } | |
944 | -re ".*invalid address 0x0.*$gdb_prompt $" { | |
945 | # Does not happen with gcc cygnus-2.4.5-930828 | |
946 | fail "print g_vD (known bug with gcc cygnus-2.4.5-930417)" | |
947 | # Many of the rest of these tests have the same problem. | |
948 | return 0 | |
949 | } | |
950 | -re ".*$gdb_prompt $" { fail "print g_vD" } | |
951 | timeout { fail "print g_vD (timeout)" ; return } | |
952 | } | |
953 | ||
954 | # Print all members of g_vE. | |
955 | ||
956 | setup_xfail_format "DWARF 1" | |
a0b3c4fd JM |
957 | send_gdb "print g_vE\n" |
958 | gdb_expect { | |
959 | -re ".* = \{\<class vD\> = \{\<class vB\> = \{\<class vA\> = \{va = 0, vx = 0\}, vb = 0, vx = 0, Virtual table at $hex\}, \<class vC\> = \{vc = 0, vx = 0, Virtual table at $hex\}, vd = 0, vx = 0, Virtual table at $hex\}, ve = 27, vx = 28, Virtual table at $hex\}$nl$gdb_prompt $" { | |
960 | pass "print g_vE (aCC)" | |
961 | } | |
962 | -re ".* = \{\<class vD\> = \{\<class vB\> = \{\<class vA\> = \{va = 0, vx = 0\}, vb = 0, vx = 0, __vfp = $hex\}, \<class vC\> = \{vc = 0, vx = 0, __vfp = $hex\}, vd = 0, vx = 0, __vfp = $hex\}, ve = 27, vx = 28, __vfp = $hex\}$nl$gdb_prompt $" { | |
963 | pass "print g_vE (aCC)" | |
964 | } | |
965 | -re ".* = \{\<vD\> = \{\<vB\> = \{\<vA\> = \{va = 0, vx = 0\}, _vb\[\\\$\.\]vA = $hex, vb = 0, vx = 0\}, \<vC\> = \{_vb\[\\\$\.\]vA = $hex, vc = 0, vx = 0\}, _vb\[\\\$\.\]vC = $hex, _vb\[\\\$\.\]vB = $hex, vd = 0, vx = 0\}, _vb\[\\\$\.\]vD = $hex, ve = 27, vx = 28\}$nl$gdb_prompt $" { | |
966 | pass "print g_vE" | |
967 | } | |
968 | -re ".*$gdb_prompt $" { fail "print g_vE" } | |
969 | timeout { fail "print g_vE (timeout)" } | |
970 | } | |
c906108c SS |
971 | } |
972 | ||
973 | proc do_tests {} { | |
974 | global prms_id | |
975 | global bug_id | |
976 | global subdir | |
977 | global objdir | |
978 | global srcdir | |
979 | global binfile | |
980 | ||
981 | set prms_id 0 | |
982 | set bug_id 0 | |
983 | ||
984 | # Start with a fresh gdb. | |
985 | ||
986 | gdb_exit | |
987 | gdb_start | |
988 | gdb_reinitialize_dir $srcdir/$subdir | |
989 | gdb_load $binfile | |
990 | ||
991 | gdb_test "set language c++" "" | |
992 | gdb_test "set width 0" "" | |
993 | ||
994 | # Get the debug format for the compiled test case. | |
995 | ||
996 | if { ![ runto_main] } { | |
997 | gdb_suppress_tests; | |
998 | } else { | |
999 | get_debug_format | |
1000 | } | |
1001 | ||
1002 | test_ptype_si | |
1003 | test_ptype_mi | |
1004 | test_ptype_vi | |
1005 | test_ptype_mvi | |
1006 | ||
1007 | gdb_stop_suppressing_tests; | |
1008 | ||
1009 | if { ![ runto 'inheritance2(void)' ] } { | |
1010 | gdb_suppress_tests; | |
1011 | } | |
1012 | ||
1013 | test_print_si_members | |
1014 | test_print_si_classes | |
1015 | test_print_mi_members | |
1016 | test_print_mi_classes | |
1017 | test_print_anon_union | |
1018 | ||
1019 | gdb_stop_suppressing_tests; | |
1020 | ||
1021 | if { ![ runto 'inheritance4(void)' ] } { | |
1022 | gdb_suppress_tests; | |
1023 | } | |
1024 | ||
1025 | test_print_svi_members | |
1026 | test_print_svi_classes | |
1027 | test_print_mvi_members | |
1028 | test_print_mvi_classes | |
1029 | } | |
1030 | ||
1031 | do_tests |