1145036Speter# Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001, 2002, 2003, 2145036Speter# 2004 Free Software Foundation, Inc. 3145036Speter 4145036Speter# This program is free software; you can redistribute it and/or modify 5145036Speter# it under the terms of the GNU General Public License as published by 6145036Speter# the Free Software Foundation; either version 2 of the License, or 7145036Speter# (at your option) any later version. 8145036Speter# 9145036Speter# This program is distributed in the hope that it will be useful, 10145036Speter# but WITHOUT ANY WARRANTY; without even the implied warranty of 11145036Speter# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12145036Speter# GNU General Public License for more details. 13145036Speter# 14145036Speter# You should have received a copy of the GNU General Public License 15145036Speter# along with this program; if not, write to the Free Software 16145036Speter# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 17145036Speter 18145036Speter# This file was written by Fred Fish. (fnf@cygnus.com) 19145036Speter# And rewritten by Michael Chastain. (mec.gnu@mindspring.com) 20145036Speter 21145036Speterset ws "\[\r\n\t \]+" 22145036Speterset nl "\[\r\n\]+" 23145036Speterset vhn "\\$\[0-9\]+" 24145036Speter 25145036Speterif $tracelevel then { 26145036Speter strace $tracelevel 27145036Speter} 28145036Speter 29145036Speterif { [skip_cplus_tests] } { continue } 30145036Speter 31145036Speterload_lib "cp-support.exp" 32145036Speter 33145036Speterset testfile "inherit" 34145036Speterset srcfile misc.cc 35145036Speterset binfile ${objdir}/${subdir}/${testfile} 36145036Speter 37145036Speterif { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } { 38 gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." 39} 40 41# Single inheritance, print type definitions. 42 43proc test_ptype_si { } { 44 global gdb_prompt 45 global ws 46 global nl 47 48 # A simple class. 49 50 cp_test_ptype_class \ 51 "ptype A" "ptype A (FIXME)" "class" "A" \ 52 { 53 { field public "int a;" } 54 { field public "int x;" } 55 } 56 cp_test_ptype_class "ptype class A" "ptype class A (FIXME)" "class" "A" ibid 57 cp_test_ptype_class "ptype g_A" "ptype g_A (FIXME)" "class" "A" ibid 58 59 # A derived class. 60 61 cp_test_ptype_class \ 62 "ptype B" "" "class" "B" \ 63 { 64 { base "public A" } 65 { field public "int b;" } 66 { field public "int x;" } 67 } 68 cp_test_ptype_class "ptype class B" "" "class" "B" ibid 69 cp_test_ptype_class "ptype g_B" "" "class" "B" ibid 70 71 # Another derived class. 72 73 cp_test_ptype_class \ 74 "ptype C" "" "class" "C" \ 75 { 76 { base "public A" } 77 { field public "int c;" } 78 { field public "int x;" } 79 } 80 cp_test_ptype_class "ptype class C" "" "class" "C" ibid 81 cp_test_ptype_class "ptype g_C" "" "class" "C" ibid 82 83 # A structure with no tag. 84 # TODO: move this mess into a separate file, and re-specify 85 # which results are PASS, KFAIL, XFAIL, and FAIL. 86 87 set re_tag "tagless_struct" 88 set XX_tag "\\._1" 89 set re_class "(class $re_tag \{${ws}public:|class \{${ws}public:|struct $re_tag \{|struct \{)" 90 set XX_class "(class $XX_tag \{${ws}public:|struct $XX_tag \{)" 91 set re_fields "int one;${ws}int two;" 92 set re_synth_gcc_23 "$re_tag & operator=\\($re_tag const ?&\\);${ws}$re_tag\\($re_tag const ?&\\);${ws}$re_tag\\((void|)\\);" 93 set XX_synth_gcc_23 "($re_tag|$XX_tag) & operator=\\($XX_tag const ?&\\);${ws}$XX_tag\\($XX_tag const ?&\\);${ws}$XX_tag\\((void|)\\);" 94 95 set name "ptype tagless struct" 96 gdb_test_multiple "ptype tagless_struct" $name { 97 -re "type = $XX_class${ws}$re_fields$nl\}$nl$gdb_prompt $" { 98 # gcc 2.95.3 -gdwarf-2 99 pass "$name" 100 } 101 -re "type = $re_class${ws}$re_fields${ws}$XX_synth_gcc_23$nl\}$nl$gdb_prompt $" { 102 # gcc 2.95.3 -gstabs+ 103 pass "$name" 104 } 105 -re "type = $re_class${ws}$re_fields$nl\}$nl$gdb_prompt $" { 106 # gcc 3.3.4 -gdwarf-2 107 # gcc 3.4.1 -gdwarf-2 108 # gcc HEAD 2004-07-31 -gdwarf-2 109 # gcc HEAD 2004-07-31 -gstabs+ 110 pass "$name" 111 } 112 -re "type = $re_class${ws}$re_fields${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" { 113 # gcc 3.3.4 -gstabs+ 114 # gcc 3.4.1 -gstabs+ 115 pass "$name" 116 } 117 } 118 119 set name "ptype variable of type tagless struct" 120 gdb_test_multiple "ptype v_tagless" $name { 121 -re "type = $XX_class${ws}$re_fields$nl\}$nl$gdb_prompt $" { 122 # gcc 2.95.3 -gdwarf-2 123 pass "$name" 124 } 125 -re "type = $re_class${ws}$re_fields${ws}$XX_synth_gcc_23$nl\}$nl$gdb_prompt $" { 126 # gcc 2.95.3 -gstabs+ 127 pass "$name" 128 } 129 -re "type = $re_class${ws}$re_fields$nl\}$nl$gdb_prompt $" { 130 # gcc 3.3.4 -gdwarf-2 131 # gcc 3.4.1 -gdwarf-2 132 # gcc HEAD 2004-07-31 -gdwarf-2 133 # gcc HEAD 2004-07-31 -gstabs+ 134 pass "$name" 135 } 136 -re "type = $re_class${ws}$re_fields${ws}$re_synth_gcc_23$nl\}$nl$gdb_prompt $" { 137 # gcc 3.3.4 -gstabs+ 138 # gcc 3.4.1 -gstabs+ 139 pass "$name" 140 } 141 } 142} 143 144# Multiple inheritance, print type definitions. 145 146proc test_ptype_mi { } { 147 148 # A class with two bases. 149 150 cp_test_ptype_class \ 151 "ptype D" "" "class" "D" \ 152 { 153 { base "public B" } 154 { base "public C" } 155 { field public "int d;" } 156 { field public "int x;" } 157 } 158 cp_test_ptype_class "ptype class D" "" "class" "D" ibid 159 cp_test_ptype_class "ptype g_D" "" "class" "D" ibid 160 161 # A class derived from the previous class. 162 163 cp_test_ptype_class \ 164 "ptype E" "" "class" "E" \ 165 { 166 { base "public D" } 167 { field public "int e;" } 168 { field public "int x;" } 169 } 170 cp_test_ptype_class "ptype class E" "" "class" "E" ibid 171 cp_test_ptype_class "ptype g_E" "" "class" "E" ibid 172} 173 174# Single virtual inheritance, print type definitions. 175 176proc test_ptype_vi { } { 177 178 # class vA 179 180 cp_test_ptype_class \ 181 "ptype vA" "" "class" "vA" \ 182 { 183 { field public "int va;" } 184 { field public "int vx;" } 185 } 186 cp_test_ptype_class "ptype class vA" "" "class" "vA" ibid 187 cp_test_ptype_class "ptype g_vA" "" "class" "vA" ibid 188 189 # class vB 190 191 cp_test_ptype_class \ 192 "ptype vB" "" "class" "vB" \ 193 { 194 { base "public virtual vA" } 195 { vbase "vA" } 196 { field public "int vb;" } 197 { field public "int vx;" } 198 } 199 cp_test_ptype_class "ptype class vB" "" "class" "vB" ibid 200 cp_test_ptype_class "ptype g_vB" "" "class" "vB" ibid 201 202 # class vC 203 204 cp_test_ptype_class \ 205 "ptype vC" "" "class" "vC" \ 206 { 207 { base "public virtual vA" } 208 { vbase "vA" } 209 { field public "int vc;" } 210 { field public "int vx;" } 211 } 212 cp_test_ptype_class "ptype class vC" "" "class" "vC" ibid 213 cp_test_ptype_class "ptype g_vC" "" "class" "vC" ibid 214 215} 216 217# Multiple virtual inheritance, print type definitions. 218 219proc test_ptype_mvi { } { 220 221 # class vD 222 223 cp_test_ptype_class \ 224 "ptype vD" "" "class" "vD" \ 225 { 226 { base "public virtual vB" } 227 { base "public virtual vC" } 228 { vbase "vC" } 229 { vbase "vB" } 230 { field public "int vd;" } 231 { field public "int vx;" } 232 } 233 cp_test_ptype_class "ptype class vD" "" "class" "vD" ibid 234 cp_test_ptype_class "ptype g_vD" "" "class" "vD" ibid 235 236 # class vE 237 238 cp_test_ptype_class \ 239 "ptype vE" "" "class" "vE" \ 240 { 241 { base "public virtual vD" } 242 { vbase "vD" } 243 { field public "int ve;" } 244 { field public "int vx;" } 245 } 246 cp_test_ptype_class "ptype class vE" "" "class" "vE" ibid 247 cp_test_ptype_class "ptype g_vE" "" "class" "vE" ibid 248 249} 250 251# Single inheritance, print individual members. 252 253proc test_print_si_members { } { 254 global vhn 255 256 # Print all members of g_A using fully qualified form. 257 gdb_test "print g_A.A::a" "$vhn = 1" 258 gdb_test "print g_A.A::x" "$vhn = 2" 259 260 # Print members of g_A using nonambiguous compact form. 261 gdb_test "print g_A.a" "$vhn = 1" 262 gdb_test "print g_A.x" "$vhn = 2" 263 264 # Print all members of g_B using fully qualified form. 265 gdb_test "print g_B.A::a" "$vhn = 3" 266 gdb_test "print g_B.A::x" "$vhn = 4" 267 gdb_test "print g_B.B::b" "$vhn = 5" 268 gdb_test "print g_B.B::x" "$vhn = 6" 269 270 # Print members of g_B using nonambiguous compact form. 271 gdb_test "print g_B.a" "$vhn = 3" 272 gdb_test "print g_B.b" "$vhn = 5" 273 gdb_test "print g_B.x" "$vhn = 6" 274 275 # Print all members of g_C using fully qualified form. 276 gdb_test "print g_C.A::a" "$vhn = 7" 277 gdb_test "print g_C.A::x" "$vhn = 8" 278 gdb_test "print g_C.C::c" "$vhn = 9" 279 gdb_test "print g_C.C::x" "$vhn = 10" 280 281 # Print members of g_C using nonambiguous compact form. 282 gdb_test "print g_C.a" "$vhn = 7" 283 gdb_test "print g_C.c" "$vhn = 9" 284 gdb_test "print g_C.x" "$vhn = 10" 285} 286 287# Single inheritance, print complete classes. 288 289proc test_print_si_classes { } { 290 global vhn 291 292 # Print all members of g_A, g_B, g_C. 293 gdb_test "print g_A" "$vhn = \{a = 1, x = 2\}" 294 gdb_test "print g_B" "$vhn = \{<(class A|A)> = \{a = 3, x = 4\}, b = 5, x = 6\}" 295 gdb_test "print g_C" "$vhn = \{<(class A|A)> = \{a = 7, x = 8\}, c = 9, x = 10\}" 296} 297 298# Multiple inheritance, print individual members. 299 300proc test_print_mi_members {} { 301 global gdb_prompt 302 global nl 303 global vhn 304 305 # Print all members of g_A. 306 gdb_test "print g_A.A::a" "$vhn = 1" 307 gdb_test "print g_A.A::x" "$vhn = 2" 308 309 # Print all members of g_B. 310 gdb_test "print g_B.A::a" "$vhn = 3" 311 gdb_test "print g_B.A::x" "$vhn = 4" 312 gdb_test "print g_B.B::b" "$vhn = 5" 313 gdb_test "print g_B.B::x" "$vhn = 6" 314 315 # Print all members of g_C. 316 gdb_test "print g_C.A::a" "$vhn = 7" 317 gdb_test "print g_C.A::x" "$vhn = 8" 318 gdb_test "print g_C.C::c" "$vhn = 9" 319 gdb_test "print g_C.C::x" "$vhn = 10" 320 321 # Print all members of g_D. 322 # 323 # g_D.A::a and g_D.A::x are ambiguous member accesses, and gdb 324 # should detect these. There are no ways to PASS these tests 325 # because I don't know what the gdb message will be. -- chastain 326 # 2004-01-27. 327 328 set name "print g_D.A::a" 329 gdb_test_multiple "print g_D.A::a" $name { 330 -re "$vhn = (15|11)$nl$gdb_prompt $" { 331 kfail "gdb/68" "print g_D.A::a" 332 } 333 } 334 335 set name "print g_D.A::x" 336 gdb_test_multiple "print g_D.A::x" $name { 337 -re "$vhn = (16|12)$nl$gdb_prompt $" { 338 kfail "gdb/68" "print g_D.A::x" 339 } 340 } 341 342 gdb_test "print g_D.B::b" "$vhn = 13" 343 gdb_test "print g_D.B::x" "$vhn = 14" 344 gdb_test "print g_D.C::c" "$vhn = 17" 345 gdb_test "print g_D.C::x" "$vhn = 18" 346 gdb_test "print g_D.D::d" "$vhn = 19" 347 gdb_test "print g_D.D::x" "$vhn = 20" 348 349 # Print all members of g_E. 350 # g_E.A::a and g_E.A::x are ambiguous. 351 352 set name "print g_E.A::a" 353 gdb_test_multiple "print g_E.A::a" $name { 354 -re "$vhn = (21|25)$nl$gdb_prompt $" { 355 kfail "gdb/68" "print g_E.A::a" 356 } 357 } 358 359 set name "print g_E.A::x" 360 gdb_test_multiple "print g_E.A::x" $name { 361 -re "$vhn = (26|22)$nl$gdb_prompt $" { 362 kfail "gdb/68" "print g_E.A::x" 363 } 364 } 365 366 gdb_test "print g_E.B::b" "$vhn = 23" 367 gdb_test "print g_E.B::x" "$vhn = 24" 368 gdb_test "print g_E.C::c" "$vhn = 27" 369 gdb_test "print g_E.C::x" "$vhn = 28" 370 gdb_test "print g_E.D::d" "$vhn = 29" 371 gdb_test "print g_E.D::x" "$vhn = 30" 372 gdb_test "print g_E.E::e" "$vhn = 31" 373 gdb_test "print g_E.E::x" "$vhn = 32" 374} 375 376# Multiple inheritance, print complete classes. 377 378proc test_print_mi_classes { } { 379 global vhn 380 381 # Print all members of g_D. 382 gdb_test "print g_D" "$vhn = \{\<(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\}" 383 384 # Print all members of g_E. 385 gdb_test "print g_E" "$vhn = \{\<(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\}" 386} 387 388# Single inheritance, print anonymous unions. 389# GDB versions prior to 4.14 entered an infinite loop when printing 390# the type of a class containing an anonymous union, and they were also 391# incapable of printing the member of an anonymous union. 392# We test the printing of the member first, and perform the other tests 393# only if the test succeeds, to avoid the infinite loop. 394# 395# GDB HEAD 2004-01-27 with hp aCC A.03.45 crashes on the first test. 396# -- chastain 2004-01-27 397 398proc test_print_anon_union {} { 399 global gdb_prompt 400 global ws 401 global nl 402 global vhn 403 404 gdb_test "print g_anon_union.a" "$vhn = 2" "print anonymous union member" 405 406 set name "print variable of type anonymous union" 407 gdb_test_multiple "print g_anon_union" $name { 408 -re "$vhn = \{one = 1, \{a = 2, b = 2\}\}$nl$gdb_prompt $" { 409 pass $name 410 } 411 } 412 413 # The nested union prints as a multi-line field, but the class body 414 # scanner is inherently line-oriented. This is ugly but it works. 415 416 cp_test_ptype_class \ 417 "ptype g_anon_union" "print type of anonymous union" \ 418 "class" "class_with_anon_union" \ 419 { 420 { field public "int one;" } 421 { field public "union \{" } 422 { field public "int a;" } 423 { field public "long int b;" } 424 { field public "\};" } 425 } 426 427} 428 429 430# Single virtual inheritance, print individual members. 431 432proc test_print_svi_members { } { 433 global vhn 434 435 # Print all members of g_vA. 436 gdb_test "print g_vA.vA::va" "$vhn = 1" 437 gdb_test "print g_vA.vA::vx" "$vhn = 2" 438 439 # Print members of g_vA using compact form. 440 gdb_test "print g_vA.va" "$vhn = 1" 441 gdb_test "print g_vA.vx" "$vhn = 2" 442 443 # Print all members of g_vB. 444 gdb_test "print g_vB.vA::va" "$vhn = 3" 445 gdb_test "print g_vB.vA::vx" "$vhn = 4" 446 gdb_test "print g_vB.vB::vb" "$vhn = 5" 447 gdb_test "print g_vB.vB::vx" "$vhn = 6" 448 449 # Print members of g_vB using compact form. 450 gdb_test "print g_vB.va" "$vhn = 3" 451 gdb_test "print g_vB.vb" "$vhn = 5" 452 gdb_test "print g_vB.vx" "$vhn = 6" 453 454 # Print all members of g_vC. 455 gdb_test "print g_vC.vA::va" "$vhn = 7" 456 gdb_test "print g_vC.vA::vx" "$vhn = 8" 457 gdb_test "print g_vC.vC::vc" "$vhn = 9" 458 gdb_test "print g_vC.vC::vx" "$vhn = 10" 459 460 # Print members of g_vC using compact form. 461 gdb_test "print g_vC.va" "$vhn = 7" "print g_vC.va" 462 gdb_test "print g_vC.vc" "$vhn = 9" "print g_vC.vc" 463 gdb_test "print g_vC.vx" "$vhn = 10" "print g_vC.vx" 464} 465 466# Single virtual inheritance, print complete classes. 467 468proc test_print_svi_classes { } { 469 global gdb_prompt 470 global hex 471 global nl 472 global vhn 473 474 # Print all members of g_vA. 475 gdb_test "print g_vA" "$vhn = \{va = 1, vx = 2\}" 476 477 # Print all members of g_vB. 478 set re_vbptr_2 "(_vb.2vA|_vb.vA)" 479 set re_vbptr_3 "_vptr.vB" 480 481 set name "print g_vB" 482 gdb_test_multiple "print g_vB" $name { 483 -re "$vhn = \{<vA> = \{va = 3, vx = 4\}, $re_vbptr_2 = $hex, vb = 5, vx = 6\}$nl$gdb_prompt $" { 484 # gcc 2.95.3 -gdwarf-2 485 # gcc 2.95.3 -gstabs+ 486 pass $name 487 } 488 -re "$vhn = \{<vA> = \{va = 3, vx = 4\}, $re_vbptr_3 = $hex, vb = 5, vx = 6\}$nl$gdb_prompt $" { 489 # gcc 3.3.4 -gdwarf-2 490 # gcc 3.4.1 -gdwarf-2 491 # gcc 3.4.1 -gstabs+ 492 # gcc HEAD 2004-07-31 -gdwarf-2 493 pass "$name (FIXME v3 vtbl ptr)" 494 } 495 -re "$vhn = \{<vA> = \{va = 3, vx = 4\}, $re_vbptr_3 = $hex <VTT for vB>, vb = 5, vx = 6\}$nl$gdb_prompt $" { 496 # gcc 3.3.4 -gstabs+ 497 pass $name 498 } 499 -re "$vhn = \{<vA> = \{va = 3, vx = 4\}, $re_vbptr_3 = $hex <typeinfo for vB>, vb = 5, vx = 6\}$nl$gdb_prompt $" { 500 # gcc HEAD 2004-07-31 -gstabs+ 501 pass $name 502 } 503 } 504 505 # Print all members of g_vC. 506 set re_vbptr_2 "(_vb.2vA|_vb.vA)" 507 set re_vbptr_3 "_vptr.vC" 508 509 set name "print g_vC" 510 gdb_test_multiple "print g_vC" $name { 511 -re "$vhn = \{<vA> = \{va = 7, vx = 8\}, $re_vbptr_2 = $hex, vc = 9, vx = 10\}$nl$gdb_prompt $" { 512 # gcc 2.95.3 -gdwarf-2 513 # gcc 2.95.3 -gstabs+ 514 pass $name 515 } 516 -re "$vhn = \{<vA> = \{va = 7, vx = 8\}, $re_vbptr_3 = $hex, vc = 9, vx = 10\}$nl$gdb_prompt $" { 517 # gcc 3.3.4 -gdwarf-2 518 # gcc 3.4.1 -gdwarf-2 519 # gcc 3.4.1 -gstabs+ 520 # gcc HEAD 2004-07-31 -gdwarf-2 521 pass "$name (FIXME v3 vtbl ptr)" 522 } 523 -re "$vhn = \{<vA> = \{va = 7, vx = 8\}, $re_vbptr_3 = $hex <VTT for vC>, vc = 9, vx = 10\}$nl$gdb_prompt $" { 524 # gcc 3.3.4 -gstabs+ 525 pass $name 526 } 527 -re "$vhn = \{<vA> = \{va = 7, vx = 8\}, $re_vbptr_3 = $hex <typeinfo for vC>, vc = 9, vx = 10\}$nl$gdb_prompt $" { 528 # gcc HEAD 2004-07-31 -gstabs+ 529 pass $name 530 } 531 } 532} 533 534# Multiple virtual inheritance, print individual members. 535 536proc test_print_mvi_members { } { 537 global vhn 538 539 # Print all members of g_vD. 540 gdb_test "print g_vD.vA::va" "$vhn = 19" 541 gdb_test "print g_vD.vA::vx" "$vhn = 20" 542 gdb_test "print g_vD.vB::vb" "$vhn = 21" 543 gdb_test "print g_vD.vB::vx" "$vhn = 22" 544 gdb_test "print g_vD.vC::vc" "$vhn = 23" 545 gdb_test "print g_vD.vC::vx" "$vhn = 24" 546 gdb_test "print g_vD.vD::vd" "$vhn = 25" 547 gdb_test "print g_vD.vD::vx" "$vhn = 26" 548 549 # Print all members of g_vE. 550 gdb_test "print g_vE.vA::va" "$vhn = 0" 551 gdb_test "print g_vE.vA::vx" "$vhn = 0" 552 gdb_test "print g_vE.vB::vb" "$vhn = 0" 553 gdb_test "print g_vE.vB::vx" "$vhn = 0" 554 gdb_test "print g_vE.vC::vc" "$vhn = 0" 555 gdb_test "print g_vE.vC::vx" "$vhn = 0" 556 gdb_test "print g_vE.vD::vd" "$vhn = 0" 557 gdb_test "print g_vE.vD::vx" "$vhn = 0" 558 gdb_test "print g_vE.vE::ve" "$vhn = 27" 559 gdb_test "print g_vE.vE::vx" "$vhn = 28" 560} 561 562# Multiple virtual inheritance, print complete classes. 563 564proc test_print_mvi_classes { } { 565 global gdb_prompt 566 global hex 567 global ws 568 global nl 569 global vhn 570 571 # Virtual base pointers for everybody. 572 573 set re_vbptr_2_vA "(_vb.2vA|_vb.vA)" 574 set re_vbptr_2_vB "(_vb.2vB|_vb.vB)" 575 set re_vbptr_2_vC "(_vb.2vC|_vb.vC)" 576 set re_vbptr_2_vD "(_vb.2vD|_vb.vD)" 577 set re_vbptr_3_vA "_vptr.vA" 578 set re_vbptr_3_vB "_vptr.vB" 579 set re_vbptr_3_vC "_vptr.vC" 580 set re_vbptr_3_vD "_vptr.vD" 581 set re_vbptr_3_vE "_vptr.vE" 582 583 # Print all members of g_vD. 584 585 set name "print g_vD" 586 gdb_test_multiple "print g_vD" $name { 587 -re "$vhn = \{<vB> = \{<vA> = \{va = 19, vx = 20\}, $re_vbptr_2_vA = $hex, vb = 21, vx = 22\}, <vC> = \{$re_vbptr_2_vA = $hex, vc = 23, vx = 24\}, $re_vbptr_2_vC = $hex, $re_vbptr_2_vB = $hex, vd = 25, vx = 26\}$nl$gdb_prompt $" { 588 # gcc 2.95.3 -gdwarf-2 589 # gcc 2.95.3 -gstabs+ 590 pass $name 591 } 592 -re "$vhn = \{<vB> = \{<vA> = \{va = 19, vx = 20\}, $re_vbptr_3_vB = $hex, vb = 21, vx = 22\}, <vC> = \{$re_vbptr_3_vC = $hex, vc = 23, vx = 24\}, $re_vbptr_3_vD = $hex, vd = 25, vx = 26\}$nl$gdb_prompt $" { 593 # gcc 3.3.2 -gdwarf-2 594 # gcc HEAD 2004-01-21 -gdwarf-2 595 # gcc HEAD 2004-01-21 -gstabs+ 596 pass "$name (FIXME v3 vtbl ptr)" 597 } 598 -re "$vhn = \{<vB> = \{<vA> = \{va = 19, vx = 20\}, $re_vbptr_3_vB = $hex, vb = 21, vx = 22\}, <vC> = \{$re_vbptr_3_vC = $hex <VTT for vD>, vc = 23, vx = 24\}, $re_vbptr_3_vD = $hex, vd = 25, vx = 26\}$nl$gdb_prompt $" { 599 # gcc 3.3.2 -gstabs+ 600 pass "$name" 601 } 602 } 603 604 # Print all members of g_vE. 605 606 set name "print g_vE" 607 gdb_test_multiple "print g_vE" $name { 608 -re "$vhn = \{<vD> = \{<vB> = \{<vA> = \{va = 0, vx = 0\}, $re_vbptr_2_vA = $hex, vb = 0, vx = 0\}, <vC> = \{$re_vbptr_2_vA = $hex, vc = 0, vx = 0\}, $re_vbptr_2_vC = $hex, $re_vbptr_2_vB = $hex, vd = 0, vx = 0\}, $re_vbptr_2_vD = $hex, ve = 27, vx = 28\}$nl$gdb_prompt $" { 609 # gcc 2.95.3 -gdwarf-2 610 # gcc 2.95.3 -gstabs+ 611 pass $name 612 } 613 -re "$vhn = \{<vD> = \{<vB> = \{<vA> = \{va = 0, vx = 0\}, $re_vbptr_3_vB = $hex, vb = 0, vx = 0\}, <vC> = \{$re_vbptr_3_vC = $hex, vc = 0, vx = 0\}, $re_vbptr_3_vD = $hex, vd = 0, vx = 0\}, $re_vbptr_3_vE = $hex, ve = 27, vx = 28\}$nl$gdb_prompt $" { 614 # gcc 3.3.4 -gdwarf-2 615 # gcc 3.3.4 -gstabs+ 616 # gcc 3.4.1 -gdwarf-2 617 # gcc 3.4.1 -gstabs+ 618 # gcc HEAD 2004-07-31 -gdwarf-2 619 pass "$name (FIXME v3 vtbl ptr)" 620 } 621 -re "$vhn = \{<vD> = \{<vB> = \{<vA> = \{va = 0, vx = 0\}, $re_vbptr_3_vB = $hex, vb = 0, vx = 0\}, <vC> = \{$re_vbptr_3_vC = $hex <VTT for vD>, vc = 0, vx = 0\}, $re_vbptr_3_vD = $hex, vd = 0, vx = 0\}, $re_vbptr_3_vE = $hex, ve = 27, vx = 28\}$nl$gdb_prompt $" { 622 # gcc 3.2.7-rh -gstabs+ 623 pass $name 624 } 625 -re "$vhn = \{<vD> = \{<vB> = \{<vA> = \{va = 0, vx = 0\}, $re_vbptr_3_vB = $hex, vb = 0, vx = 0\}, <vC> = \{$re_vbptr_3_vC = $hex <typeinfo for vE>, vc = 0, vx = 0\}, $re_vbptr_3_vD = $hex, vd = 0, vx = 0\}, $re_vbptr_3_vE = $hex, ve = 27, vx = 28\}$nl$gdb_prompt $" { 626 # gcc HEAD 2004-07-31 -gstabs+ 627 pass $name 628 } 629 } 630} 631 632proc do_tests { } { 633 global prms_id 634 global bug_id 635 global subdir 636 global objdir 637 global srcdir 638 global binfile 639 640 set prms_id 0 641 set bug_id 0 642 643 # Start with a fresh gdb. 644 645 gdb_exit 646 gdb_start 647 gdb_reinitialize_dir $srcdir/$subdir 648 gdb_load $binfile 649 650 gdb_test "set language c++" "" 651 gdb_test "set width 0" "" 652 653 if { ![runto_main] } then { 654 perror "couldn't run to main" 655 return 656 } 657 658 test_ptype_si 659 test_ptype_mi 660 test_ptype_vi 661 test_ptype_mvi 662 663 if { ![runto 'inheritance2'] } then { 664 perror "couldn't run to inheritance2" 665 return 666 } 667 668 test_print_si_members 669 test_print_si_classes 670 test_print_mi_members 671 test_print_mi_classes 672 test_print_anon_union 673 674 if { ![runto 'inheritance4'] } { 675 perror "couldn't run to inheritance4" 676 return 677 } 678 679 test_print_svi_members 680 test_print_svi_classes 681 test_print_mvi_members 682 test_print_mvi_classes 683} 684 685do_tests 686