This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[patch/testsuite/cp] accept gcc 3.4 abi 2, stabs+
- From: mec dot gnu at mindspring dot com (Michael Elizabeth Chastain)
- To: carlton at kealia dot com, gdb-patches at sources dot redhat dot com
- Date: Thu, 8 Jan 2004 23:56:24 -0500 (EST)
- Subject: [patch/testsuite/cp] accept gcc 3.4 abi 2, stabs+
It's been a week since I rewrote a bunch of gdb.cp/*.exp files,
leaving them with exactly the same results (after a couple of
false steps).
Now it's time to make some changes in the visible output.
This patch accepts the output of gcc 3.4 -gstabs+ with ABI 2.
Tested on:
native i686-pc-linux-gnu
gcc 2.95.3, 3.3.2, HEAD
-gdwarf-2, -gstabs+
I am committing this now.
Michael C
2004-01-08 Michael Chastain <mec.gnu@mindspring.com>
* gdb.cp/classes.exp: Accept gnu abi 2.
* gdb.cp/derivation.exp: Likewise.
* gdb.cp/overload.exp: Likewise.
* gdb.cp/virtfunc.exp: Likewise.
Index: classes.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.cp/classes.exp,v
retrieving revision 1.4
diff -c -3 -p -r1.4 classes.exp
*** classes.exp 2 Jan 2004 04:46:45 -0000 1.4
--- classes.exp 9 Jan 2004 04:54:53 -0000
*************** proc test_ptype_class_objects {} {
*** 347,354 ****
}
-re "type = class Static \{${ws}public:${ws}static void ii\\(int, int\\);${ws}Static ?& ?operator ?=\\(Static const ?&\\);${ws}Static\\(Static const ?&\\);${ws}Static\\((void|)\\);$nl\}$nl$gdb_prompt $" {
# gcc HEAD 2003-12-28 21:08:30 UTC -gstabs+
! # TODO: this is okay. It is just ABI 2.
! fail "ptype class Static"
}
}
--- 347,353 ----
}
-re "type = class Static \{${ws}public:${ws}static void ii\\(int, int\\);${ws}Static ?& ?operator ?=\\(Static const ?&\\);${ws}Static\\(Static const ?&\\);${ws}Static\\((void|)\\);$nl\}$nl$gdb_prompt $" {
# gcc HEAD 2003-12-28 21:08:30 UTC -gstabs+
! pass "ptype class Static"
}
}
*************** proc test_ptype_class_objects {} {
*** 495,502 ****
}
-re "type = class Base1 \{${ws}public:${ws}int x;${ws}Base1\\(int\\);${ws}Base1 ?& ?operator ?=\\(Base1 const ?&\\);${ws}Base1\\(Base1 const ?&\\);$nl\}$nl$gdb_prompt $" {
# gcc HEAD 2003-12-28 21:08:30 UTC -gstabs+
! # TODO: this is not obsolescent!
! pass "ptype class Base1 (obsolescent gcc or gdb)"
}
}
--- 494,500 ----
}
-re "type = class Base1 \{${ws}public:${ws}int x;${ws}Base1\\(int\\);${ws}Base1 ?& ?operator ?=\\(Base1 const ?&\\);${ws}Base1\\(Base1 const ?&\\);$nl\}$nl$gdb_prompt $" {
# gcc HEAD 2003-12-28 21:08:30 UTC -gstabs+
! pass "ptype class Base1"
}
}
*************** proc test_ptype_class_objects {} {
*** 522,529 ****
}
-re "type = class Foo \{${ws}public:${ws}int x;${ws}int y;${ws}static int st;${ws}Foo\\(int, int\\);${ws}int operator ?!\\((void|)\\);${ws}operator int\\((void|)\\);${ws}int times\\(int\\);${ws}Foo ?& ?operator ?=\\(Foo const ?&\\);${ws}Foo\\(Foo const ?&\\);$nl\}$nl$gdb_prompt $" {
# gcc HEAD 2003-12-28 21:08:30 UTC -gstabs+
! # TODO: this is okay, just the new ABI
! fail "ptype class Foo"
}
}
--- 520,526 ----
}
-re "type = class Foo \{${ws}public:${ws}int x;${ws}int y;${ws}static int st;${ws}Foo\\(int, int\\);${ws}int operator ?!\\((void|)\\);${ws}operator int\\((void|)\\);${ws}int times\\(int\\);${ws}Foo ?& ?operator ?=\\(Foo const ?&\\);${ws}Foo\\(Foo const ?&\\);$nl\}$nl$gdb_prompt $" {
# gcc HEAD 2003-12-28 21:08:30 UTC -gstabs+
! pass "ptype class Foo"
}
}
*************** proc test_ptype_class_objects {} {
*** 544,551 ****
}
-re "type = class Bar : public Base1, public Foo \{${ws}public:${ws}int z;${ws}Bar\\(int, int, int\\);${ws}Bar ?& ?operator ?=\\(Bar const ?&\\);${ws}Bar\\(Bar const ?&\\);$nl\}$nl$gdb_prompt $" {
# gcc HEAD 2003-12-28 21:08:30 UTC -gstabs+
! # TODO: this is not obsolescent!
! pass "ptype class Bar (obsolescent gcc or gdb)"
}
}
}
--- 541,547 ----
}
-re "type = class Bar : public Base1, public Foo \{${ws}public:${ws}int z;${ws}Bar\\(int, int, int\\);${ws}Bar ?& ?operator ?=\\(Bar const ?&\\);${ws}Bar\\(Bar const ?&\\);$nl\}$nl$gdb_prompt $" {
# gcc HEAD 2003-12-28 21:08:30 UTC -gstabs+
! pass "ptype class Bar"
}
}
}
Index: derivation.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.cp/derivation.exp,v
retrieving revision 1.4
diff -c -3 -p -r1.4 derivation.exp
*** derivation.exp 2 Jan 2004 04:46:45 -0000 1.4
--- derivation.exp 9 Jan 2004 04:54:53 -0000
*************** gdb_test_multiple "ptype a_instance" "pt
*** 84,92 ****
pass "ptype a_instance (with synth ops)"
}
-re "type = $re_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
! # TODO: this is fine, it's just gcc abi 2
! # pass "ptype a_instance (with synth ops) (abi 2)"
! fail "ptype a_instance"
}
}
--- 84,90 ----
pass "ptype a_instance (with synth ops)"
}
-re "type = $re_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
! pass "ptype a_instance (with synth ops)"
}
}
*************** gdb_test_multiple "print d_instance" "pr
*** 107,122 ****
gdb_test_multiple "ptype d_instance" "ptype d_instance" {
-re "type = $re_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
! # TODO: this is okay, gcc abi 2.
! fail "ptype d_instance"
}
-re "type = $re_class${ws}$re_fields${ws}$re_all_methods$nl\}$nl$gdb_prompt $" {
pass "ptype d_instance"
}
-re "type = $XX_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
! # TODO: this is okay, gcc abi 2.
# kfail "gdb/1498" "ptype d_instance"
! fail "ptype d_instance"
}
-re "type = $XX_class${ws}$re_fields${ws}$re_all_methods$nl\}$nl$gdb_prompt $" {
# TODO: this is a gcc bug.
--- 105,119 ----
gdb_test_multiple "ptype d_instance" "ptype d_instance" {
-re "type = $re_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
! pass "ptype d_instance"
}
-re "type = $re_class${ws}$re_fields${ws}$re_all_methods$nl\}$nl$gdb_prompt $" {
pass "ptype d_instance"
}
-re "type = $XX_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
! # TODO: this is a gcc bug
# kfail "gdb/1498" "ptype d_instance"
! pass "ptype d_instance"
}
-re "type = $XX_class${ws}$re_fields${ws}$re_all_methods$nl\}$nl$gdb_prompt $" {
# TODO: this is a gcc bug.
*************** gdb_test_multiple "print e_instance" "pr
*** 142,158 ****
gdb_test_multiple "ptype e_instance" "ptype e_instance" {
-re "type = $re_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
! # TODO: this is okay, just gcc abi 2
! fail "ptype e_instance"
}
-re "type = $re_class${ws}$re_fields${ws}$re_all_methods$nl\}$nl$gdb_prompt $" {
pass "ptype e_instance"
}
-re "type = $XX_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
- # TODO: this is okay, just gcc abi 2
# TODO: this is a gcc bug.
# kfail "gdb/1498" "ptype e_instance"
! fail "ptype e_instance"
}
-re "type = $XX_class${ws}$re_fields${ws}$re_all_methods$nl\}$nl$gdb_prompt $" {
# TODO: this is a gcc bug.
--- 139,153 ----
gdb_test_multiple "ptype e_instance" "ptype e_instance" {
-re "type = $re_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
! pass "ptype e_instance"
}
-re "type = $re_class${ws}$re_fields${ws}$re_all_methods$nl\}$nl$gdb_prompt $" {
pass "ptype e_instance"
}
-re "type = $XX_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
# TODO: this is a gcc bug.
# kfail "gdb/1498" "ptype e_instance"
! pass "ptype e_instance"
}
-re "type = $XX_class${ws}$re_fields${ws}$re_all_methods$nl\}$nl$gdb_prompt $" {
# TODO: this is a gcc bug.
*************** gdb_test_multiple "print f_instance" "pr
*** 177,184 ****
gdb_test_multiple "ptype f_instance" "ptype f_instance" {
-re "type = $re_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
! # TODO: this is okay, just gcc abi 2
! fail "ptype f_instance"
}
-re "type = $re_class${ws}$re_fields${ws}$re_all_methods$nl\}$nl$gdb_prompt $" {
pass "ptype f_instance"
--- 172,178 ----
gdb_test_multiple "ptype f_instance" "ptype f_instance" {
-re "type = $re_class${ws}$re_fields${ws}$re_methods${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" {
! pass "ptype f_instance"
}
-re "type = $re_class${ws}$re_fields${ws}$re_all_methods$nl\}$nl$gdb_prompt $" {
pass "ptype f_instance"
Index: overload.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.cp/overload.exp,v
retrieving revision 1.3
diff -c -3 -p -r1.3 overload.exp
*** overload.exp 2 Jan 2004 04:46:45 -0000 1.3
--- overload.exp 9 Jan 2004 04:54:53 -0000
*************** gdb_test "up" ".*main.*" "up from marker
*** 64,70 ****
#
# This is hairy to begin with. It is even more hairy because of the
# XX_* alternate patterns to catch the KFAIL and XFAIL cases.
- # TODO: And then hair^3 to reutrn the same results as the old tests.
set re_class "((struct|class) foo \{${ws}public:|struct foo \{)"
set re_fields "int ifoo;${ws}const char ?\\* ?ccpfoo;"
--- 64,69 ----
*************** gdb_test_multiple "ptype foo_instance1"
*** 143,151 ****
}
-re "type = $re_class${ws}$re_fields${ws}$re_ctor${ws}$re_dtor${ws}$re_methods${ws}$re_synth$nl\}$nl$gdb_prompt $" {
# gcc HEAD -gstabs+ (abi-2)
! # TODO: just pass this
! # pass "ptype foo_instance1"
! fail "ptype foo_instance1"
}
}
--- 142,148 ----
}
-re "type = $re_class${ws}$re_fields${ws}$re_ctor${ws}$re_dtor${ws}$re_methods${ws}$re_synth$nl\}$nl$gdb_prompt $" {
# gcc HEAD -gstabs+ (abi-2)
! pass "ptype foo_instance1 (shorter match)"
}
}
Index: virtfunc.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.cp/virtfunc.exp,v
retrieving revision 1.5
diff -c -3 -p -r1.5 virtfunc.exp
*** virtfunc.exp 2 Jan 2004 04:46:45 -0000 1.5
--- virtfunc.exp 9 Jan 2004 04:54:53 -0000
*************** set kk2 ""
*** 98,104 ****
set kk3 ""
set kk4 ""
set kk5 ""
- set fk5 ""
proc kk_debug { } {
global kk0
--- 98,103 ----
*************** proc kk_debug { } {
*** 107,120 ****
global kk3
global kk4
global kk5
- global fk5
set kk0 " (0)"
set kk1 " (1)"
set kk2 " (2)"
set kk3 " (3)"
set kk4 " (4)"
set kk5 " (5)"
- set fk5 ""
}
proc test_one_ptype { command testname re_class re_vbptr re_access_fields re_fields re_access_methods re_methods re_synth_gcc_2 re_synth_gcc_3 re_star } {
--- 106,117 ----
*************** proc test_one_ptype { command testname r
*** 129,135 ****
global kk3
global kk4
global kk5
- global fk5
gdb_test_multiple "$command" "$testname" {
-re "type = $re_class${wsopt}$re_access_fields${wsopt}$re_fields${wsopt}$re_access_methods${wsopt}$re_methods$nl\}$re_star$nl$gdb_prompt $" {
--- 126,131 ----
*************** proc test_one_ptype { command testname r
*** 158,168 ****
}
-re "type = $re_class${wsopt}$re_access_fields${wsopt}$re_fields${wsopt}$re_access_methods${wsopt}$re_methods${wsopt}$re_synth_gcc_3$nl\}$re_star$nl$gdb_prompt $" {
# gcc 3.X, abi 2, stabs+
! if { "$fk5" == "fail" } {
! fail "$testname$kk5"
! } else {
! pass "$testname$kk5"
! }
}
}
--- 154,160 ----
}
-re "type = $re_class${wsopt}$re_access_fields${wsopt}$re_fields${wsopt}$re_access_methods${wsopt}$re_methods${wsopt}$re_synth_gcc_3$nl\}$re_star$nl$gdb_prompt $" {
# gcc 3.X, abi 2, stabs+
! pass "$testname$kk5"
}
}
*************** proc test_one_ptype { command testname r
*** 172,178 ****
set kk3 ""
set kk4 ""
set kk5 ""
- set fk5 ""
}
proc test_ptype_of_classes {} {
--- 164,169 ----
*************** proc test_ptype_of_classes {} {
*** 186,192 ****
global kk3
global kk4
global kk5
- global fk5
# class VA
--- 177,182 ----
*************** proc test_ptype_of_classes {} {
*** 203,209 ****
# class VB
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype VB" "ptype VB" \
"((struct|class) VB \{${ws}public:|struct VB \{)" \
"" \
--- 193,198 ----
*************** proc test_ptype_of_classes {} {
*** 216,222 ****
# class V
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype V" "ptype V" \
"class V : public VA, public VB \{${ws}public:" \
"" \
--- 205,210 ----
*************** proc test_ptype_of_classes {} {
*** 230,236 ****
set kk0 " (aCC)"
set kk1 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype A" "ptype A" \
"class A : public virtual V \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 218,223 ----
*************** proc test_ptype_of_classes {} {
*** 243,249 ****
# class B
set kk0 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype B" "ptype B" \
"class B : public A \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 230,235 ----
*************** proc test_ptype_of_classes {} {
*** 269,275 ****
# class AD
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype AD" "ptype AD" \
"((struct|class) AD \{${ws}public:|struct AD \{)" \
"" \
--- 255,260 ----
*************** proc test_ptype_of_classes {} {
*** 283,289 ****
set kk0 " (aCC)"
set kk1 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype D" "ptype D" \
"class D : public AD, public virtual V \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 268,273 ----
*************** proc test_ptype_of_classes {} {
*** 297,303 ****
# TODO: E does not show a vbptr for V. That seems strange.
set kk0 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype E" "ptype E" \
"class E : public B, public virtual V, public D, public C \{(${ws}private:|)" \
"" \
--- 281,286 ----
*************** proc test_ptype_of_classes {} {
*** 311,317 ****
set kk0 " (aCC)"
set kk1 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype dd" "ptype dd" \
"class D : public AD, public virtual V \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 294,299 ----
*************** proc test_ptype_of_classes {} {
*** 325,331 ****
set kk0 " (aCC)"
set kk1 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype ppd" "ptype ppd" \
"class D : public AD, public virtual V \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 307,312 ----
*************** proc test_ptype_of_classes {} {
*** 339,345 ****
# TODO: this should be named pADd, not pAd.
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype pAd" "ptype pAd" \
"((struct|class) AD \{${ws}public:|struct AD \{)" \
"" \
--- 320,325 ----
*************** proc test_ptype_of_classes {} {
*** 353,359 ****
set kk0 " (aCC)"
set kk1 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype a" "ptype a" \
"class A : public virtual V \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 333,338 ----
*************** proc test_ptype_of_classes {} {
*** 366,372 ****
# An instance of B
set kk0 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype b" "ptype b" \
"class B : public A \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 345,350 ----
*************** proc test_ptype_of_classes {} {
*** 393,399 ****
set kk0 " (aCC)"
set kk1 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype d" "ptype d" \
"class D : public AD, public virtual V \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 371,376 ----
*************** proc test_ptype_of_classes {} {
*** 406,412 ****
# An instance of E
set kk0 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype e" "ptype e" \
"class E : public B, public virtual V, public D, public C \{(${ws}private:|)" \
"" \
--- 383,388 ----
*************** proc test_ptype_of_classes {} {
*** 419,425 ****
# An instance of V
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype v" "ptype v" \
"class V : public VA, public VB \{${ws}public:" \
"" \
--- 395,400 ----
*************** proc test_ptype_of_classes {} {
*** 432,438 ****
# An instance of VB
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype vb" "ptype vb" \
"((struct|class) VB \{${ws}public:|struct VB \{)" \
"" \
--- 407,412 ----
*************** proc test_ptype_of_classes {} {
*** 446,452 ****
set kk0 " (aCC)"
set kk1 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype pAa" "ptype pAa" \
"class A : public virtual V \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 420,425 ----
*************** proc test_ptype_of_classes {} {
*** 460,466 ****
set kk0 " (aCC)"
set kk1 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype pAe" "ptype pAe" \
"class A : public virtual V \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 433,438 ----
*************** proc test_ptype_of_classes {} {
*** 473,479 ****
# An instance of B *
set kk0 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype pBe" "ptype pBe" \
"class B : public A \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 445,450 ----
*************** proc test_ptype_of_classes {} {
*** 487,493 ****
set kk0 " (aCC)"
set kk1 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype pDd" "ptype pDd" \
"class D : public AD, public virtual V \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 458,463 ----
*************** proc test_ptype_of_classes {} {
*** 501,507 ****
set kk0 " (aCC)"
set kk1 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype pDe" "ptype pDe" \
"class D : public AD, public virtual V \{(${ws}private:|)" \
"V \\*(_vb.1V|_vb.V);" \
--- 471,476 ----
*************** proc test_ptype_of_classes {} {
*** 514,520 ****
# An instance of V *
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype pVa" "ptype pVa" \
"class V : public VA, public VB \{${ws}public:" \
"" \
--- 483,488 ----
*************** proc test_ptype_of_classes {} {
*** 527,533 ****
# An instance of V *
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype pVv" "ptype pVv" \
"class V : public VA, public VB \{${ws}public:" \
"" \
--- 495,500 ----
*************** proc test_ptype_of_classes {} {
*** 540,546 ****
# An instance of V *
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype pVe" "ptype pVe" \
"class V : public VA, public VB \{${ws}public:" \
"" \
--- 507,512 ----
*************** proc test_ptype_of_classes {} {
*** 553,559 ****
# An instance of V *
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype pVd" "ptype pVd" \
"class V : public VA, public VB \{${ws}public:" \
"" \
--- 519,524 ----
*************** proc test_ptype_of_classes {} {
*** 566,572 ****
# An instance of AD *
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype pADe" "ptype pADe" \
"((struct|class) AD \{${ws}public:|struct AD \{)" \
"" \
--- 531,536 ----
*************** proc test_ptype_of_classes {} {
*** 579,585 ****
# An instance of E *
set kk0 " (obsolescent gcc or gdb)"
- set fk5 "fail"
test_one_ptype "ptype pEe" "ptype pEe" \
"class E : public B, public virtual V, public D, public C \{(${ws}private:|)" \
"" \
--- 543,548 ----
*************** proc test_ptype_of_classes {} {
*** 592,598 ****
# An instance of VB *
set kk0 " (obsolescent gcc or gdb)"
- set kk5 " (obsolescent gcc or gdb)"
test_one_ptype "ptype pVB" "ptype pVB" \
"((struct|class) VB \{${ws}public:|struct VB \{)" \
"" \
--- 555,560 ----