OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [testsuite/] [gdb.c++/] [inherit.exp] - Blame information for rev 1765

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.