home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / gdb-4.9 / gdb / testsuite / gdb.t20 / inherit.exp < prev    next >
Encoding:
Text File  |  1993-05-12  |  46.2 KB  |  1,659 lines
  1. # Copyright (C) 1992 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., 675 Mass Ave, Cambridge, MA 02139, 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. if $tracelevel then {
  23.     strace $tracelevel
  24. }
  25.  
  26. #
  27. # Single inheritance, print individual members.
  28. #
  29.  
  30. proc test_print_si_members {} {
  31.     global prompt
  32.  
  33.     set passcount 0
  34.  
  35.     # Print all members of g_A using fully qualified form.
  36.  
  37.     send "print g_A.A::a\n"
  38.     expect {
  39.     -re ".* = 1\r\n$prompt $" { incr passcount }
  40.     -re ".*$prompt $" { fail "print g_A.A::a" }
  41.     timeout { fail "print g_A.A::a (timeout)" ; return }
  42.     }
  43.  
  44.     send "print g_A.A::x\n"
  45.     expect {
  46.     -re ".* = 2\r\n$prompt $" { incr passcount }
  47.     -re ".*$prompt $" { fail "print g_A.A::x" }
  48.     timeout { fail "print g_A.A::x (timeout)" ; return }
  49.     }
  50.  
  51.     # Print members of g_A using nonambiguous compact form.
  52.  
  53.     send "print g_A.a\n"
  54.     expect {
  55.     -re ".* = 1\r\n$prompt $" { incr passcount }
  56.     -re ".*$prompt $" { fail "print g_A.a" }
  57.     timeout { fail "print g_A.a (timeout)" ; return }
  58.     }
  59.  
  60.     send "print g_A.x\n"
  61.     expect {
  62.     -re ".* = 2\r\n$prompt $" { incr passcount }
  63.     -re ".*$prompt $" { fail "print g_A.x" }
  64.     timeout { fail "print g_A.x (timeout)" ; return }
  65.     }
  66.  
  67.     # Print all members of g_B using fully qualified form.
  68.  
  69.     send "print g_B.A::a\n"
  70.     expect {
  71.     -re ".* = 3\r\n$prompt $" { incr passcount }
  72.     -re ".*$prompt $" { fail "print g_B.A::a" }
  73.     timeout { fail "print g_B.A::a (timeout)" ; return }
  74.     }
  75.  
  76.     send "print g_B.A::x\n"
  77.     expect {
  78.     -re ".* = 4\r\n$prompt $" { incr passcount }
  79.     -re ".*$prompt $" { fail "print g_B.A::x" }
  80.     timeout { fail "print g_B.A::x (timeout)" ; return }
  81.     }
  82.  
  83.     send "print g_B.B::b\n"
  84.     expect {
  85.     -re ".* = 5\r\n$prompt $" { incr passcount }
  86.     -re ".*$prompt $" { fail "print g_B.B::b" }
  87.     timeout { fail "print g_B.B::b (timeout)" ; return }
  88.     }
  89.  
  90.     send "print g_B.B::x\n"
  91.     expect {
  92.     -re ".* = 6\r\n$prompt $" { incr passcount }
  93.     -re ".*$prompt $" { fail "print g_B.B::x" }
  94.     timeout { fail "print g_B.B::x (timeout)" ; return }
  95.     }
  96.  
  97.     # Print members of g_B using nonambiguous compact form.
  98.  
  99.     send "print g_B.a\n"
  100.     expect {
  101.     -re ".* = 3\r\n$prompt $" { incr passcount }
  102.     -re "There is no member named a.*$prompt $" {
  103.         setup_xfail "*-*-*"
  104.         fail "print g_B.a"
  105.     }
  106.     -re ".*$prompt $" { fail "print g_B.a" }
  107.     timeout { fail "print g_B.a (timeout)" ; return }
  108.     }
  109.  
  110.     send "print g_B.b\n"
  111.     expect {
  112.     -re ".* = 5\r\n$prompt $" { incr passcount }
  113.     -re ".*$prompt $" { fail "print g_B.b" }
  114.     timeout { fail "print g_B.b (timeout)" ; return }
  115.     }
  116.  
  117.     send "print g_B.x\n"
  118.     expect {
  119.     -re ".* = 6\r\n$prompt $" { incr passcount }
  120.     -re ".*$prompt $" { fail "print g_B.x" }
  121.     timeout { fail "print g_B.x (timeout)" ; return }
  122.     }
  123.  
  124.     # Print all members of g_C using fully qualified form.
  125.  
  126.     send "print g_C.A::a\n"
  127.     expect {
  128.     -re ".* = 7\r\n$prompt $" { incr passcount }
  129.     -re ".*$prompt $" { fail "print g_C.A::a" }
  130.     timeout { fail "print g_C.A::a (timeout)" ; return }
  131.     }
  132.  
  133.     send "print g_C.A::x\n"
  134.     expect {
  135.     -re ".* = 8\r\n$prompt $" { incr passcount }
  136.     -re ".*$prompt $" { fail "print g_C.A::x" }
  137.     timeout { fail "print g_C.A::x (timeout)" ; return }
  138.     }
  139.  
  140.     send "print g_C.C::c\n"
  141.     expect {
  142.     -re ".* = 9\r\n$prompt $" { incr passcount }
  143.     -re ".*$prompt $" { fail "print g_C.C::c" }
  144.     timeout { fail "print g_C.C::c (timeout)" ; return }
  145.     }
  146.  
  147.     send "print g_C.C::x\n"
  148.     expect {
  149.     -re ".* = 10\r\n$prompt $" { incr passcount }
  150.     -re ".*$prompt $" { fail "print g_C.C::x" }
  151.     timeout { fail "print g_C.C::x (timeout)" ; return }
  152.     }
  153.  
  154.     # Print members of g_C using nonambiguous compact form.
  155.  
  156.     send "print g_C.a\n"
  157.     expect {
  158.     -re ".* = 7\r\n$prompt $" { incr passcount }
  159.     -re "There is no member named a.*$prompt $" {
  160.         setup_xfail "*-*-*"
  161.         fail "print g_B.a"
  162.     }
  163.     -re ".*$prompt $" { fail "print g_C.a" }
  164.     timeout { fail "print g_C.a (timeout)" ; return }
  165.     }
  166.  
  167.     send "print g_C.c\n"
  168.     expect {
  169.     -re ".* = 9\r\n$prompt $" { incr passcount }
  170.     -re ".*$prompt $" { fail "print g_C.c" }
  171.     timeout { fail "print g_C.c (timeout)" ; return }
  172.     }
  173.  
  174.     send "print g_C.x\n"
  175.     expect {
  176.     -re ".* = 10\r\n$prompt $" { incr passcount }
  177.     -re ".*$prompt $" { fail "print g_C.x" }
  178.     timeout { fail "print g_C.x (timeout)" ; return }
  179.     }
  180.  
  181.     if $passcount then {
  182.     pass "$passcount correct si members printed"
  183.     }
  184. }
  185.  
  186. #
  187. # Single inheritance, print type definitions.
  188. #
  189.  
  190. proc test_ptype_si {} {
  191.     global prompt
  192.  
  193.     set passcount 0
  194.  
  195.     # Print class A as a type.
  196.  
  197.     setup_xfail "*-*-*"
  198.     send "ptype A\n"
  199.     expect {
  200.     -re "type = class A \{\r\n\[ \]*int a;\r\n\[ \]*int x;\r\n\[ \]*\}\r\n$prompt $" {
  201.         incr passcount
  202.     }
  203.     -re "type = struct A \{\r\n\[ \]*int a;\r\n\[ \]*int x;\r\n\[ \]*\}\r\n$prompt $" {
  204.         fail "ptype A (FIXME)"
  205.     }
  206.     -re ".*$prompt $" { fail "ptype A" }
  207.     timeout { fail "ptype A (timeout)" ; return }
  208.     }
  209.  
  210.     # Print class A as an explicit class.
  211.  
  212.     setup_xfail "*-*-*"
  213.     send "ptype class A\n"
  214.     expect {
  215.     -re "type = class A \{\r\n\[ \]*int a;\r\n\[ \]*int x;\r\n\[ \]*\}\r\n$prompt $" {
  216.         incr passcount
  217.     }
  218.     -re "type = struct A \{\r\n\[ \]*int a;\r\n\[ \]*int x;\r\n\[ \]*\}\r\n$prompt $" {
  219.         fail "ptype class A (FIXME)"
  220.     }
  221.     -re ".*$prompt $" { fail "ptype class A" }
  222.     timeout { fail "ptype class A (timeout)" ; return }
  223.     }
  224.  
  225.     # Print type of an object of type A.
  226.  
  227.     setup_xfail "*-*-*"
  228.     send "ptype g_A\n"
  229.     expect {
  230.     -re "type = class A \{\r\n\[ \]*int a;\r\n\[ \]*int x;\r\n\[ \]*\}\r\n$prompt $" {
  231.         incr passcount
  232.     }
  233.     -re "type = struct A \{\r\n\[ \]*int a;\r\n\[ \]*int x;\r\n\[ \]*\}\r\n$prompt $" {
  234.         fail "ptype g_A (FIXME)"
  235.     }
  236.     -re ".*$prompt $" { fail "ptype g_A" }
  237.     timeout { fail "ptype g_A (timeout)" ; return }
  238.     }
  239.  
  240.     # Print class B as a type.
  241.  
  242.     send "ptype B\n"
  243.     expect {
  244.     -re "type = class B : public A \{\r\n\[ \]*public:\r\n\[ \]*int b;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  245.         incr passcount
  246.     }
  247.     -re "type = struct B \{\r\n\[ \]*struct A A;\r\n\[ \]*int b;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  248.         setup_xfail "*-*-*"
  249.         fail "ptype B"
  250.     }
  251.     -re ".*$prompt $" { fail "ptype B" }
  252.     timeout { fail "ptype B (timeout)" ; return }
  253.     }
  254.  
  255.     # Print class B as an explicit class.
  256.  
  257.     send "ptype class B\n"
  258.     expect {
  259.     -re "type = class B : public A \{\r\n\[ \]*public:\r\n\[ \]*int b;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  260.         incr passcount
  261.     }
  262.     -re "type = struct B \{\r\n\[ \]*struct A A;\r\n\[ \]*int b;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  263.         setup_xfail "*-*-*"
  264.         fail "ptype class B"
  265.     }
  266.     -re ".*$prompt $" { fail "ptype class B" }
  267.     timeout { fail "ptype class B (timeout)" ; return }
  268.     }
  269.  
  270.     # Print type of an object of type B.
  271.  
  272.     send "ptype g_B\n"
  273.     expect {
  274.     -re "type = class B : public A \{\r\n\[ \]*public:\r\n\[ \]*int b;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  275.         incr passcount
  276.     }
  277.     -re "type = struct B \{\r\n\[ \]*struct A A;\r\n\[ \]*int b;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  278.         setup_xfail "*-*-*"
  279.         fail "ptype g_B"
  280.     }
  281.     -re ".*$prompt $" { fail "ptype g_B" }
  282.     timeout { fail "ptype g_B (timeout)" ; return }
  283.     }
  284.  
  285.     # Print class C as a type.
  286.  
  287.     send "ptype C\n"
  288.     expect {
  289.     -re "type = class C : public A \{\r\n\[ \]*public:\r\n\[ \]*int c;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  290.         incr passcount
  291.     }
  292.     -re "type = struct C \{\r\n\[ \]*struct A A;\r\n\[ \]*int c;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  293.         setup_xfail "*-*-*"
  294.         fail "ptype C"
  295.     }
  296.     -re ".*$prompt $" { fail "ptype C" }
  297.     timeout { fail "ptype C (timeout)" ; return }
  298.     }
  299.  
  300.     # Print class C as an explicit class.
  301.  
  302.     send "ptype class C\n"
  303.     expect {
  304.     -re "type = class C : public A \{\r\n\[ \]*public:\r\n\[ \]*int c;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  305.         incr passcount
  306.     }
  307.     -re "type = struct C \{\r\n\[ \]*struct A A;\r\n\[ \]*int c;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  308.         setup_xfail "*-*-*"
  309.         fail "ptype class C"
  310.     }
  311.     -re ".*$prompt $" { fail "ptype class C" }
  312.     timeout { fail "ptype class C (timeout)" ; return }
  313.     }
  314.  
  315.     # Print type of an object of type g_C.
  316.  
  317.     send "ptype g_C\n"
  318.     expect {
  319.     -re "type = class C : public A \{\r\n\[ \]*public:\r\n\[ \]*int c;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  320.         incr passcount
  321.     }
  322.     -re "type = struct C \{\r\n\[ \]*struct A A;\r\n\[ \]*int c;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  323.         setup_xfail "*-*-*"
  324.         fail "ptype g_C"
  325.     }
  326.     -re ".*$prompt $" { fail "ptype g_C" }
  327.     timeout { fail "ptype g_C (timeout)" ; return }
  328.     }
  329.  
  330.     if $passcount then {
  331.     pass "$passcount correct si types printed"
  332.     }
  333. }
  334.  
  335. #
  336. # Single inheritance, print complete classes.
  337. #
  338.  
  339. proc test_print_si_classes {} {
  340.     global prompt
  341.  
  342.     set passcount 0
  343.  
  344.     # Print all members of g_A.
  345.  
  346.     send "print g_A\n"
  347.     expect {
  348.     -re ".* = \{a = 1, x = 2\}\r\n$prompt $" {
  349.         incr passcount
  350.     }
  351.     -re ".*$prompt $" { fail "print g_A" }
  352.     timeout { fail "print g_A (timeout)" ; return }
  353.     }
  354.  
  355.     # Print all members of g_B.
  356.  
  357.     send "print g_B\n"
  358.     expect {
  359.     -re ".* = \{\<A\> = \{a = 3, x = 4\}, b = 5, x = 6\}\r\n$prompt $" {
  360.         incr passcount
  361.     }
  362.     -re ".* = \{A = \{a = 3, x = 4\}, b = 5, x = 6\}\r\n$prompt $" {
  363.         setup_xfail "*-*-*"
  364.         fail "print g_B"
  365.     }
  366.     -re ".*$prompt $" { fail "print g_B" }
  367.     timeout { fail "print g_B (timeout)" ; return }
  368.     }
  369.  
  370.     # Print all members of g_C.
  371.  
  372.     send "print g_C\n"
  373.     expect {
  374.     -re ".* = \{\<A\> = \{a = 7, x = 8\}, c = 9, x = 10\}\r\n$prompt $" {
  375.         incr passcount
  376.     }
  377.     -re ".* = \{A = \{a = 7, x = 8\}, c = 9, x = 10\}\r\n$prompt $" {
  378.         setup_xfail "*-*-*"
  379.         fail "print g_C"
  380.     }
  381.     -re ".*$prompt $" { fail "print g_C" }
  382.     timeout { fail "print g_C (timeout)" ; return }
  383.     }
  384.  
  385.     if $passcount then {
  386.     pass "$passcount correct si classes printed"
  387.     }
  388. }
  389.  
  390. #
  391. # Multiple inheritance, print individual members.
  392. #
  393.  
  394. proc test_print_mi_members {} {
  395.     global prompt
  396.  
  397.     set passcount 0
  398.  
  399.     # Print all members of g_A.
  400.  
  401.     send "print g_A.A::a\n"
  402.     expect {
  403.     -re ".* = 1\r\n$prompt $" { incr passcount }
  404.     -re ".*$prompt $" { fail "print g_A.A::a" }
  405.     timeout { fail "print g_A.A::a (timeout)" ; return }
  406.     }
  407.     
  408.     send "print g_A.A::x\n"
  409.     expect {
  410.     -re ".* = 2\r\n$prompt $" { incr passcount }
  411.     -re ".*$prompt $" { fail "print g_A.A::x" }
  412.     timeout { fail "print g_A.A::x (timeout)" ; return }
  413.     }
  414.  
  415.     # Print all members of g_B.
  416.  
  417.     send "print g_B.A::a\n"
  418.     expect {
  419.     -re ".* = 3\r\n$prompt $" { incr passcount }
  420.     -re ".*$prompt $" { fail "print g_B.A::a" }
  421.     timeout { fail "print g_B.A::a (timeout)" ; return }
  422.     }
  423.  
  424.     send "print g_B.A::x\n"
  425.     expect {
  426.     -re ".* = 4\r\n$prompt $" { incr passcount }
  427.     -re ".*$prompt $" { fail "print g_B.A::x" }
  428.     timeout { fail "print g_B.A::x (timeout)" ; return }
  429.     }
  430.  
  431.     send "print g_B.B::b\n"
  432.     expect {
  433.     -re ".* = 5\r\n$prompt $" { incr passcount }
  434.     -re ".*$prompt $" { fail "print g_B.B::b" }
  435.     timeout { fail "print g_B.B::b (timeout)" ; return }
  436.     }
  437.  
  438.     send "print g_B.B::x\n"
  439.     expect {
  440.     -re ".* = 6\r\n$prompt $" { incr passcount }
  441.     -re ".*$prompt $" { fail "print g_B.B::x" }
  442.     timeout { fail "print g_B.B::x (timeout)" ; return }
  443.     }
  444.  
  445.     # Print all members of g_C.
  446.  
  447.     send "print g_C.A::a\n"
  448.     expect {
  449.     -re ".* = 7\r\n$prompt $" { incr passcount }
  450.     -re ".*$prompt $" { fail "print g_C.A::a" }
  451.     timeout { fail "print g_C.A::a (timeout)" ; return }
  452.     }
  453.  
  454.     send "print g_C.A::x\n"
  455.     expect {
  456.     -re ".* = 8\r\n$prompt $" { incr passcount }
  457.     -re ".*$prompt $" { fail "print g_C.A::x" }
  458.     timeout { fail "print g_C.A::x (timeout)" ; return }
  459.     }
  460.  
  461.     send "print g_C.C::c\n"
  462.     expect {
  463.     -re ".* = 9\r\n$prompt $" { incr passcount }
  464.     -re ".*$prompt $" { fail "print g_C.C::c" }
  465.     timeout { fail "print g_C.C::c (timeout)" ; return }
  466.     }
  467.  
  468.     send "print g_C.C::x\n"
  469.     expect {
  470.     -re ".* = 10\r\n$prompt $" { incr passcount }
  471.     -re ".*$prompt $" { fail "print g_C.C::x" }
  472.     timeout { fail "print g_C.C::x (timeout)" ; return }
  473.     }
  474.  
  475.     # Print all members of g_D.
  476.  
  477.     # The following is ambiguous, and gdb should detect this.
  478.     # For now, accept gdb's behavior as an expected failure if it
  479.     # simply prints either member correctly.
  480.  
  481.     setup_xfail "*-*-*"
  482.     send "print g_D.A::a\n"
  483.     expect {
  484.     -re ".* = 11\r\n$prompt $" {
  485.         fail "print g_D.A::a (FIXME)"
  486.     }
  487.     -re ".* = 15\r\n$prompt $" {
  488.         fail "print g_D.A::a (FIXME)"
  489.     }
  490.     -re ".*$prompt $" { fail "print g_D.A::a" }
  491.     timeout { fail "print g_D.A::a (timeout)" ; return }
  492.     }
  493.  
  494.     # The following is ambiguous, and gdb should detect this.
  495.     # For now, accept gdb's behavior as an expected failure if it
  496.     # simply prints either member correctly.
  497.  
  498.     setup_xfail "*-*-*"
  499.     send "print g_D.A::x\n"
  500.     expect {
  501.     -re ".* = 12\r\n$prompt $" {
  502.         fail "print g_D.A::x (FIXME)"
  503.     }
  504.     -re ".* = 16\r\n$prompt $" {
  505.         fail "print g_D.A::x (FIXME)"
  506.     }
  507.     -re ".*$prompt $" { fail "print g_D.A::x" }
  508.     timeout { fail "print g_D.A::x (timeout)" ; return }
  509.     }
  510.  
  511.     send "print g_D.B::b\n"
  512.     expect {
  513.     -re ".* = 13\r\n$prompt $" { incr passcount }
  514.     -re ".*$prompt $" { fail "print g_D.B::b" }
  515.     timeout { fail "print g_D.B::b (timeout)" ; return }
  516.     }
  517.  
  518.     send "print g_D.B::x\n"
  519.     expect {
  520.     -re ".* = 14\r\n$prompt $" { incr passcount }
  521.     -re ".*$prompt $" { fail "print g_D.B::x" }
  522.     timeout { fail "print g_D.B::x (timeout)" ; return }
  523.     }
  524.  
  525.     # The following is ambiguous, and gdb should detect this.
  526.     # For now, accept gdb's behavior as an expected failure if it
  527.     # simply prints either member correctly.
  528.  
  529.     setup_xfail "*-*-*"
  530.     send "print g_D.A::a\n"
  531.     expect {
  532.     -re ".* = 11\r\n$prompt $" {
  533.         fail "print g_D.A::a (FIXME)"
  534.     }
  535.     -re ".* = 15\r\n$prompt $" {
  536.         fail "print g_D.A::a (FIXME)"
  537.     }
  538.     -re ".*$prompt $" { fail "print g_D.A::a" }
  539.     timeout { fail "print g_D.A::a (timeout)" ; return }
  540.     }
  541.  
  542.     # The following is ambiguous, and gdb should detect this.
  543.     # For now, accept gdb's behavior as an expected failure if it
  544.     # simply prints either member correctly.
  545.  
  546.     setup_xfail "*-*-*"
  547.     send "print g_D.A::x\n"
  548.     expect {
  549.     -re ".* = 12\r\n$prompt $" {
  550.         fail "print g_D.A::x (FIXME)"
  551.     }
  552.     -re ".* = 16\r\n$prompt $" {
  553.         fail "print g_D.A::x (FIXME)"
  554.     }
  555.     -re ".*$prompt $" { fail "print g_D.A::x" }
  556.     timeout { fail "print g_D.A::x (timeout)" ; return }
  557.     }
  558.  
  559.     send "print g_D.C::c\n"
  560.     expect {
  561.     -re ".* = 17\r\n$prompt $" { incr passcount }
  562.     -re ".* = 13\r\n$prompt $" {
  563.         setup_xfail "*-*-*" 2428
  564.         fail "print g_D.C::c"
  565.     }
  566.     -re ".*$prompt $" { fail "print g_D.C::c" }
  567.     timeout { fail "print g_D.C::c (timeout)" ; return }
  568.     }
  569.  
  570.     send "print g_D.C::x\n"
  571.     expect {
  572.     -re ".* = 18\r\n$prompt $" { incr passcount }
  573.     -re ".* = 14\r\n$prompt $" {
  574.         setup_xfail "*-*-*" 2428
  575.         fail "print g_D.C::x"
  576.     }
  577.     -re ".*$prompt $" { fail "print g_D.C::x" }
  578.     timeout { fail "print g_D.C::x (timeout)" ; return }
  579.     }
  580.  
  581.     send "print g_D.D::d\n"
  582.     expect {
  583.     -re ".* = 19\r\n$prompt $" { incr passcount }
  584.     -re ".*$prompt $" { fail "print g_D.D::d" }
  585.     timeout { fail "print g_D.D::d (timeout)" ; return }
  586.     }
  587.  
  588.     send "print g_D.D::x\n"
  589.     expect {
  590.     -re ".* = 20\r\n$prompt $" { incr passcount }
  591.     -re ".*$prompt $" { fail "print g_D.D::x" }
  592.     timeout { fail "print g_D.D::x (timeout)" ; return }
  593.     }
  594.  
  595.     # Print all members of g_E.
  596.  
  597.     # The following is ambiguous, and gdb should detect this.
  598.     # For now, accept gdb's behavior as an expected failure if it
  599.     # simply prints either member correctly.
  600.  
  601.     setup_xfail "*-*-*"
  602.     send "print g_E.A::a\n"
  603.     expect {
  604.     -re ".* = 21\r\n$prompt $" {
  605.         fail "print g_E.A::a (FIXME)"
  606.     }
  607.     -re ".* = 25\r\n$prompt $" {
  608.         fail "print g_E.A::a (FIXME)"
  609.     }
  610.     -re ".*$prompt $" { fail "print g_E.A::a" }
  611.     timeout { fail "print g_E.A::a (timeout)" ; return }
  612.     }
  613.  
  614.     # The following is ambiguous, and gdb should detect this.
  615.     # For now, accept gdb's behavior as an expected failure if it
  616.     # simply prints either member correctly.
  617.  
  618.     setup_xfail "*-*-*"
  619.     send "print g_E.A::x\n"
  620.     expect {
  621.     -re ".* = 22\r\n$prompt $" {
  622.         fail "print g_E.A::x (FIXME)"
  623.     }
  624.     -re ".* = 26\r\n$prompt $" {
  625.         fail "print g_E.A::x (FIXME)"
  626.     }
  627.     -re ".*$prompt $" { fail "print g_E.A::x" }
  628.     timeout { fail "print g_E.A::x (timeout)" ; return }
  629.     }
  630.  
  631.     send "print g_E.B::b\n"
  632.     expect {
  633.     -re ".* = 23\r\n$prompt $" { incr passcount }
  634.     -re ".*$prompt $" { fail "print g_E.B::b" }
  635.     timeout { fail "print g_E.B::b (timeout)" ; return }
  636.     }
  637.  
  638.     send "print g_E.B::x\n"
  639.     expect {
  640.     -re ".* = 24\r\n$prompt $" { incr passcount }
  641.     -re ".*$prompt $" { fail "print g_E.B::x" }
  642.     timeout { fail "print g_E.B::x (timeout)" ; return }
  643.     }
  644.  
  645.     # The following is ambiguous, and gdb should detect this.
  646.     # For now, accept gdb's behavior as an expected failure if it
  647.     # simply prints either member correctly.
  648.  
  649.     setup_xfail "*-*-*"
  650.     send "print g_E.A::a\n"
  651.     expect {
  652.     -re ".* = 21\r\n$prompt $" {
  653.         fail "print g_E.A::a (FIXME)"
  654.     }
  655.     -re ".* = 25\r\n$prompt $" {
  656.         fail "print g_E.A::a (FIXME)"
  657.     }
  658.     -re ".*$prompt $" { fail "print g_E.A::a" }
  659.     timeout { fail "print g_E.A::a (timeout)" ; return }
  660.     }
  661.  
  662.     # The following is ambiguous, and gdb should detect this.
  663.     # For now, accept gdb's behavior as an expected failure if it
  664.     # simply prints either member correctly.
  665.  
  666.     setup_xfail "*-*-*"
  667.     send "print g_E.A::x\n"
  668.     expect {
  669.     -re ".* = 22\r\n$prompt $" {
  670.         fail "print g_E.A::x (FIXME)"
  671.     }
  672.     -re ".* = 26\r\n$prompt $" {
  673.         fail "print g_E.A::x (FIXME)"
  674.     }
  675.     -re ".*$prompt $" { fail "print g_E.A::x" }
  676.     timeout { fail "print g_E.A::x (timeout)" ; return }
  677.     }
  678.  
  679.     send "print g_E.C::c\n"
  680.     expect {
  681.     -re ".* = 27\r\n$prompt $" { incr passcount }
  682.     -re ".* = 23\r\n$prompt $" {
  683.         setup_xfail "*-*-*" 2428
  684.         fail "print g_E.C::c"
  685.     }
  686.     -re ".*$prompt $" { fail "print g_E.C::c" }
  687.     timeout { fail "print g_E.C::c (timeout)" ; return }
  688.     }
  689.  
  690.     send "print g_E.C::x\n"
  691.     expect {
  692.     -re ".* = 28\r\n$prompt $" { incr passcount }
  693.     -re ".* = 24\r\n$prompt $" {
  694.         setup_xfail "*-*-*" 2428
  695.         fail "print g_E.C::x"
  696.     }
  697.     -re ".*$prompt $" { fail "print g_E.C::x" }
  698.     timeout { fail "print g_E.C::x (timeout)" ; return }
  699.     }
  700.  
  701.     send "print g_E.D::d\n"
  702.     expect {
  703.     -re ".* = 29\r\n$prompt $" { incr passcount }
  704.     -re ".*$prompt $" { fail "print g_E.D::d" }
  705.     timeout { fail "print g_E.D::d (timeout)" ; return }
  706.     }
  707.  
  708.     send "print g_E.D::x\n"
  709.     expect {
  710.     -re ".* = 30\r\n$prompt $" { incr passcount }
  711.     -re ".*$prompt $" { fail "print g_E.D::x" }
  712.     timeout { fail "print g_E.D::x (timeout)" ; return }
  713.     }
  714.  
  715.     send "print g_E.E::e\n"
  716.     expect {
  717.     -re ".* = 31\r\n$prompt $" { incr passcount }
  718.     -re ".*$prompt $" { fail "print g_E.E::e" }
  719.     timeout { fail "print g_E.E::e (timeout)" ; return }
  720.     }
  721.  
  722.     send "print g_E.E::x\n"
  723.     expect {
  724.     -re ".* = 32\r\n$prompt $" { incr passcount }
  725.     -re ".*$prompt $" { fail "print g_E.E::x" }
  726.     timeout { fail "print g_E.E::x (timeout)" ; return }
  727.     }
  728.  
  729.     if $passcount then {
  730.     pass "$passcount correct mi members printed"
  731.     }
  732. }
  733.  
  734. #
  735. # Multiple inheritance, print type definitions.
  736. #
  737.  
  738. proc test_ptype_mi {} {
  739.     global prompt
  740.  
  741.     set passcount 0
  742.  
  743.     send "ptype D\n"
  744.     expect {
  745.     -re "type = class D : public B, public C \{\r\n\[ \]*public:\r\n\[ \]*int d;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  746.         incr passcount
  747.     }
  748.     -re "type = struct D \{\r\n\[ \]*struct B B;\r\n\[ \]*struct C C;\r\n\[ \]*int d;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  749.         setup_xfail "*-*-*"
  750.         fail "ptype D"
  751.     }
  752.     -re ".*$prompt $" { fail "ptype D" }
  753.     timeout { fail "ptype D (timeout)" ; return }
  754.     }
  755.  
  756.     send "ptype class D\n"
  757.     expect {
  758.     -re "type = class D : public B, public C \{\r\n\[ \]*public:\r\n\[ \]*int d;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  759.         incr passcount
  760.     }
  761.     -re "type = struct D \{\r\n\[ \]*struct B B;\r\n\[ \]*struct C C;\r\n\[ \]*int d;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  762.         setup_xfail "*-*-*"
  763.         fail "ptype class D"
  764.     }
  765.     -re ".*$prompt $" { fail "ptype class D" }
  766.     timeout { fail "ptype class D (timeout)" ; return }
  767.     }
  768.  
  769.     send "ptype g_D\n"
  770.     expect {
  771.     -re "type = class D : public B, public C \{\r\n\[ \]*public:\r\n\[ \]*int d;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  772.         incr passcount
  773.     }
  774.     -re "type = struct D \{\r\n\[ \]*struct B B;\r\n\[ \]*struct C C;\r\n\[ \]*int d;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  775.         setup_xfail "*-*-*"
  776.         fail "ptype g_D"
  777.     }
  778.     -re ".*$prompt $" { fail "ptype g_D" }
  779.     timeout { fail "ptype g_D (timeout)" ; return }
  780.     }
  781.  
  782.     send "ptype E\n"
  783.     expect {
  784.     -re "type = class E : public D \{\r\n\[ \]*public:\r\n\[ \]*int e;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  785.         incr passcount
  786.     }
  787.     -re "type = struct E \{\r\n\[ \]*struct D D;\r\n\[ \]*int e;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  788.         setup_xfail "*-*-*"
  789.         fail "ptype E"
  790.     }
  791.     -re ".*$prompt $" { fail "ptype E" }
  792.     timeout { fail "ptype E (timeout)" ; return }
  793.     }
  794.  
  795.     send "ptype class E\n"
  796.     expect {
  797.     -re "type = class E : public D \{\r\n\[ \]*public:\r\n\[ \]*int e;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  798.         incr passcount
  799.     }
  800.     -re "type = struct E \{\r\n\[ \]*struct D D;\r\n\[ \]*int e;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  801.         setup_xfail "*-*-*"
  802.         fail "ptype class E"
  803.     }
  804.     -re ".*$prompt $" { fail "ptype class E" }
  805.     timeout { fail "ptype class E (timeout)" ; return }
  806.     }
  807.  
  808.     send "ptype g_E\n"
  809.     expect {
  810.     -re "type = class E : public D \{\r\n\[ \]*public:\r\n\[ \]*int e;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  811.         incr passcount
  812.     }
  813.     -re "type = struct E \{\r\n\[ \]*struct D D;\r\n\[ \]*int e;\r\n\[ \]*int x;\r\n\}\r\n$prompt $" {
  814.         setup_xfail "*-*-*"
  815.         fail "ptype g_E"
  816.     }
  817.     -re ".*$prompt $" { fail "ptype g_E" }
  818.     timeout { fail "ptype g_E (timeout)" ; return }
  819.     }
  820.  
  821.     if $passcount then {
  822.     pass "$passcount correct mi types printed"
  823.     }
  824. }
  825.  
  826. #
  827. # Multiple inheritance, print complete classes.
  828. #
  829.  
  830. proc test_print_mi_classes {} {
  831.     global prompt
  832.  
  833.     set passcount 0
  834.  
  835.     # Print all members of g_D.
  836.  
  837.     send "print g_D\n"
  838.     expect {
  839.     -re ".* = \{\<B\> = \{\<A\> = \{a = 11, x = 12\}, b = 13, x = 14\}, \<C\> = \{\<A\> = \{a = 15, x = 16\}, c = 17, x = 18\}, d = 19, x = 20\}\r\n$prompt $" {
  840.         incr passcount
  841.     }
  842.     -re ".* = \{B = \{A = \{a = 11, x = 12\}, b = 13, x = 14\}, C = \{A = \{a = 15, x = 16\}, c = 17, x = 18\}, d = 19, x = 20\}\r\n$prompt $" {
  843.         setup_xfail "*-*-*"
  844.         fail "print g_D"
  845.     }
  846.     -re ".*$prompt $" { fail "print g_D" }
  847.     timeout { fail "print g_D (timeout)" ; return }
  848.     }
  849.  
  850.     # Print all members of g_E.
  851.  
  852.     send "print g_E\n"
  853.     expect {
  854.     -re ".* = \{\<D\> = \{\<B\> = \{\<A\> = \{a = 21, x = 22\}, b = 23, x = 24\}, \<C\> = \{\<A\> = \{a = 25, x = 26\}, c = 27, x = 28\}, d = 29, x = 30\}, e = 31, x = 32\}\r\n$prompt $" {
  855.         incr passcount
  856.     }
  857.     -re ".* = \{D = \{B = \{A = \{a = 21, x = 22\}, b = 23, x = 24\}, C = \{A = \{a = 25, x = 26\}, c = 27, x = 28\}, d = 29, x = 30\}, e = 31, x = 32\}\r\n$prompt $" {
  858.         setup_xfail "*-*-*"
  859.         fail "print g_E"
  860.     }
  861.     -re ".*$prompt $" { fail "print g_E" }
  862.     timeout { fail "print g_E (timeout)" ; return }
  863.     }
  864.  
  865.     if $passcount then { 
  866.     pass "$passcount correct mi classes printed"
  867.     }
  868. }
  869.  
  870. #
  871. # Single virtual inheritance, print individual members.
  872. #
  873.  
  874. proc test_print_svi_members {} {
  875.     global prompt
  876.     global decimal
  877.  
  878.     set passcount 0
  879.  
  880.     # Print all members of g_vA.
  881.  
  882.     send "print g_vA.vA::va\n"
  883.     expect {
  884.     -re ".* = 1\r\n$prompt $" { incr passcount }
  885.     -re ".*$prompt $" { fail "print g_vA.vA::va" }
  886.     timeout { fail "print g_vA.vA::va (timeout)" ; return }
  887.     }
  888.  
  889.     send "print g_vA.vA::vx\n"
  890.     expect {
  891.     -re ".* = 2\r\n$prompt $" { incr passcount }
  892.     -re ".*$prompt $" { fail "print g_vA.vA::vx" }
  893.     timeout { fail "print g_vA.vA::vx (timeout)" ; return }
  894.     }
  895.  
  896.     # Print members of g_vA using compact form.
  897.  
  898.     send "print g_vA.va\n"
  899.     expect {
  900.     -re ".* = 1\r\n$prompt $" { incr passcount }
  901.     -re ".*$prompt $" { fail "print g_vA.va" }
  902.     timeout { fail "print g_vA.va (timeout)" ; return }
  903.     }
  904.  
  905.     send "print g_vA.vx\n"
  906.     expect {
  907.     -re ".* = 2\r\n$prompt $" { incr passcount }
  908.     -re ".*$prompt $" { fail "print g_vA.vx" }
  909.     timeout { fail "print g_vA.vx (timeout)" ; return }
  910.     }
  911.  
  912.     # Print all members of g_vB.
  913.  
  914.     send "print g_vB.vA::va\n"
  915.     expect {
  916.     -re ".* = 3\r\n$prompt $" { incr passcount }
  917.     -re ".* = $decimal\r\n$prompt $" {
  918.         # Treated virtual base class pointer as field
  919.         setup_xfail "*-*-*"
  920.         fail "print g_vB.vA::va"
  921.     }
  922.     -re ".*$prompt $" { fail "print g_vB.vA::va" }
  923.     timeout { fail "print g_vB.vA::va (timeout)" ; return }
  924.     }
  925.  
  926.     send "print g_vB.vA::vx\n"
  927.     expect {
  928.     -re ".* = 4\r\n$prompt $" { incr passcount }
  929.     -re ".* = 5\r\n$prompt $" {
  930.         # Didn't follow virtual base class pointer
  931.         setup_xfail "*-*-*"
  932.         fail "print g_vB.vA::vx"
  933.     }
  934.     -re ".*$prompt $" { fail "print g_vB.vA::vx" }
  935.     timeout { fail "print g_vB.vA::vx (timeout)" ; return }
  936.     }
  937.  
  938.     send "print g_vB.vB::vb\n"
  939.     expect {
  940.     -re ".* = 5\r\n$prompt $" { incr passcount }
  941.     -re ".*$prompt $" { fail "print g_vB.vB::vb" }
  942.     timeout { fail "print g_vB.vB::vb (timeout)" ; return }
  943.     }
  944.  
  945.     send "print g_vB.vB::vx\n"
  946.     expect {
  947.     -re ".* = 6\r\n$prompt $" { incr passcount }
  948.     -re ".*$prompt $" { fail "print g_vB.vB::vx" }
  949.     timeout { fail "print g_vB.vB::vx (timeout)" ; return }
  950.     }
  951.  
  952.     # Print members of g_vB using compact form.
  953.  
  954.     send "print g_vB.va\n"
  955.     expect {
  956.     -re ".* = 3\r\n$prompt $" { incr passcount }
  957.     -re "There is no member named va.*$prompt $" {
  958.         setup_xfail "*-*-*"
  959.         fail "print g_vB.va"
  960.     }
  961.     -re ".*$prompt $" { fail "print g_vB.va" }
  962.     timeout { fail "print g_vB.va (timeout)" ; return }
  963.     }
  964.  
  965.     send "print g_vB.vb\n"
  966.     expect {
  967.     -re ".* = 5\r\n$prompt $" { incr passcount }
  968.     -re ".*$prompt $" { fail "print g_vB.vb" }
  969.     timeout { fail "print g_vB.vb (timeout)" ; return }
  970.     }
  971.  
  972.     send "print g_vB.vx\n"
  973.     expect {
  974.     -re ".* = 6\r\n$prompt $" { incr passcount }
  975.     -re ".*$prompt $" { fail "print g_vB.vx" }
  976.     timeout { fail "print g_vB.vx (timeout)" ; return }
  977.     }
  978.  
  979.     # Print all members of g_vC.
  980.  
  981.     send "print g_vC.vA::va\n"
  982.     expect {
  983.     -re ".* = 7\r\n$prompt $" { incr passcount }
  984.     -re ".* = $decimal\r\n$prompt $" {
  985.         # Treated virtual base class pointer as field
  986.         setup_xfail "*-*-*"
  987.         fail "print g_vC.vA::va"
  988.     }
  989.     -re ".*$prompt $" { fail "print g_vC.vA::va" }
  990.     timeout { fail "print g_vC.vA::va (timeout)" ; return }
  991.     }
  992.  
  993.     send "print g_vC.vA::vx\n"
  994.     expect {
  995.     -re ".* = 8\r\n$prompt $" { incr passcount }
  996.     -re ".* = 9\r\n$prompt $" {
  997.         # Didn't follow virtual base class pointer
  998.         setup_xfail "*-*-*"
  999.         fail "print g_vC.vA::vx"
  1000.     }
  1001.     -re ".*$prompt $" { fail "print g_vC.vA::vx" }
  1002.     timeout { fail "print g_vC.vA::vx (timeout)" ; return }
  1003.     }
  1004.  
  1005.     send "print g_vC.vC::vc\n"
  1006.     expect {
  1007.     -re ".* = 9\r\n$prompt $" { incr passcount }
  1008.     -re ".*$prompt $" { fail "print g_vC.vC::vc" }
  1009.     timeout { fail "print g_vC.vC::vc (timeout)" ; return }
  1010.     }
  1011.  
  1012.     send "print g_vC.vC::vx\n"
  1013.     expect {
  1014.     -re ".* = 10\r\n$prompt $" { incr passcount }
  1015.     -re ".*$prompt $" { fail "print g_vC.vC::vx" }
  1016.     timeout { fail "print g_vC.vC::vx (timeout)" ; return }
  1017.     }
  1018.  
  1019.     # Print members of g_vC using compact form.
  1020.  
  1021.     send "print g_vC.va\n"
  1022.     expect {
  1023.     -re ".* = 7\r\n$prompt $" { incr passcount }
  1024.     -re "There is no member named va.*$prompt $" {
  1025.         setup_xfail "*-*-*"
  1026.         fail "print g_vC.va"
  1027.     }
  1028.     -re ".*$prompt $" { fail "print g_vC.va" }
  1029.     timeout { fail "print g_vC.va (timeout)" ; return }
  1030.     }
  1031.  
  1032.     send "print g_vC.vc\n"
  1033.     expect {
  1034.     -re ".* = 9\r\n$prompt $" { incr passcount }
  1035.     -re ".*$prompt $" { fail "print g_vC.vc" }
  1036.     timeout { fail "print g_vC.vc (timeout)" ; return }
  1037.     }
  1038.  
  1039.     send "print g_vC.vx\n"
  1040.     expect {
  1041.     -re ".* = 10\r\n$prompt $" { incr passcount }
  1042.     -re ".*$prompt $" { fail "print g_vC.vx" }
  1043.     timeout { fail "print g_vC.vx (timeout)" ; return }
  1044.     }
  1045.  
  1046.     if $passcount then {
  1047.     pass "$passcount correct svi members printed"
  1048.     }
  1049. }
  1050.  
  1051. #
  1052. # Single virtual inheritance, print type definitions.
  1053. #
  1054.  
  1055. proc test_ptype_vi {} {
  1056.     global prompt
  1057.  
  1058.     set passcount 0
  1059.  
  1060.     setup_xfail "*-*-*"
  1061.     send "ptype vA\n"
  1062.     expect {
  1063.     -re "type = class vA \{\r\n\[ \]*public:\r\n\[ \]*int va;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1064.         incr passcount
  1065.     }
  1066.     -re "type = struct vA \{\r\n\[ \]*int va;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1067.         fail "ptype vA (FIXME)"
  1068.     }
  1069.     -re ".*$prompt $" { fail "ptype vA" }
  1070.     timeout { fail "ptype vA (timeout)" ; return }
  1071.     }
  1072.  
  1073.     setup_xfail "*-*-*"
  1074.     send "ptype class vA\n"
  1075.     expect {
  1076.     -re "type = class vA \{\r\n\[ \]*public:\r\n\[ \]*int va;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1077.         incr passcount
  1078.     }
  1079.     -re "type = struct vA \{\r\n\[ \]*int va;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1080.         fail "ptype class vA (FIXME)"
  1081.     }
  1082.     -re ".*$prompt $" { fail "ptype class vA" }
  1083.     timeout { fail "ptype class vA (timeout)" ; return }
  1084.     }
  1085.  
  1086.     setup_xfail "*-*-*"
  1087.     send "ptype g_vA\n"
  1088.     expect {
  1089.     -re "type = class vA \{\r\n\[ \]*public:\r\n\[ \]*int va;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1090.         incr passcount
  1091.     }
  1092.     -re "type = struct vA \{\r\n\[ \]*int va;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1093.         fail "ptype g_vA (FIXME)"
  1094.     }
  1095.     -re ".*$prompt $" { fail "ptype g_vA" }
  1096.     timeout { fail "ptype g_vA (timeout)" ; return }
  1097.     }
  1098.  
  1099.     send "ptype vB\n"
  1100.     expect {
  1101.     -re "type = class vB : public virtual vA \{\r\n\[ \]*private:\r\n\[ \]*vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*public:\r\n\[ \]*int vb;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1102.         incr passcount
  1103.     }
  1104.     -re "type = struct vB \{\r\n\[ \]*struct vA vA;\r\n\[ \]*struct vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*int vb;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1105.         setup_xfail "*-*-*"
  1106.         fail "ptype vB"
  1107.     }
  1108.     -re ".*$prompt $" { fail "ptype vB" }
  1109.     timeout { fail "ptype vB (timeout)" ; return }
  1110.     }
  1111.  
  1112.     send "ptype class vB\n"
  1113.     expect {
  1114.     -re "type = class vB : public virtual vA \{\r\n\[ \]*private:\r\n\[ \]*vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*public:\r\n\[ \]*int vb;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1115.         incr passcount
  1116.     }
  1117.     -re "type = struct vB \{\r\n\[ \]*struct vA vA;\r\n\[ \]*struct vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*int vb;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1118.         setup_xfail "*-*-*"
  1119.         fail "ptype class vB"
  1120.     }
  1121.     -re ".*$prompt $" { fail "ptype class vB" }
  1122.     timeout { fail "ptype class vB (timeout)" ; return }
  1123.     }
  1124.  
  1125.     send "ptype g_vB\n"
  1126.     expect {
  1127.     -re "type = class vB : public virtual vA \{\r\n\[ \]*private:\r\n\[ \]*vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*public:\r\n\[ \]*int vb;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1128.         incr passcount
  1129.     }
  1130.     -re "type = struct vB \{\r\n\[ \]*struct vA vA;\r\n\[ \]*struct vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*int vb;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1131.         setup_xfail "*-*-*"
  1132.         fail "ptype g_vB"
  1133.     }
  1134.     -re ".*$prompt $" { fail "ptype g_vB" }
  1135.     timeout { fail "ptype g_vB (timeout)" ; return }
  1136.     }
  1137.  
  1138.     send "ptype vC\n"
  1139.     expect {
  1140.     -re "type = class vC : public virtual vA \{\r\n\[ \]*private:\r\n\[ \]*vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*public:\r\n\[ \]*int vc;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1141.     }
  1142.     -re "type = struct vC \{\r\n\[ \]*struct vA vA;\r\n\[ \]*struct vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*int vc;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1143.         setup_xfail "*-*-*"
  1144.         fail "ptype vC"
  1145.     }
  1146.     -re ".*$prompt $" { fail "ptype vC" }
  1147.     timeout { fail "ptype vC (timeout)" ; return }
  1148.     }
  1149.  
  1150.     send "ptype class vC\n"
  1151.     expect {
  1152.     -re "type = class vC : public virtual vA \{\r\n\[ \]*private:\r\n\[ \]*vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*public:\r\n\[ \]*int vc;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1153.     }
  1154.     -re "type = struct vC \{\r\n\[ \]*struct vA vA;\r\n\[ \]*struct vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*int vc;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1155.         setup_xfail "*-*-*"
  1156.         fail "ptype class vC"
  1157.     }
  1158.     -re ".*$prompt $" { fail "ptype class vC" }
  1159.     timeout { fail "ptype class vC (timeout)" ; return }
  1160.     }
  1161.  
  1162.     send "ptype g_vC\n"
  1163.     expect {
  1164.     -re "type = class vC : public virtual vA \{\r\n\[ \]*private:\r\n\[ \]*vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*public:\r\n\[ \]*int vc;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1165.     }
  1166.     -re "type = struct vC \{\r\n\[ \]*struct vA vA;\r\n\[ \]*struct vA \*_vb\[\\\$\.\]vA;\r\n\[ \]*int vc;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1167.         setup_xfail "*-*-*"
  1168.         fail "ptype g_vC"
  1169.     }
  1170.     -re ".*$prompt $" { fail "ptype g_vC" }
  1171.     timeout { fail "ptype g_vC (timeout)" ; return }
  1172.     }
  1173.  
  1174.     if $passcount then {
  1175.     pass "$passcount correct svi types printed"
  1176.     }
  1177. }
  1178.  
  1179. #
  1180. # Single virtual inheritance, print complete classes.
  1181. #
  1182.  
  1183. proc test_print_svi_classes {} {
  1184.     global prompt
  1185.     global hex
  1186.     global decimal
  1187.  
  1188.     set passcount 0
  1189.  
  1190.     # Print all members of g_vA.
  1191.  
  1192.     send "print g_vA\n"
  1193.     expect {
  1194.     -re ".* = \{va = 1, vx = 2\}\r\n$prompt $" {
  1195.         incr passcount
  1196.     }
  1197.     -re ".*$prompt $" { fail "print g_vA" }
  1198.     timeout { fail "print g_vA (timeout)" ; return }
  1199.     }
  1200.  
  1201.     # Print all members of g_vB.
  1202.  
  1203.     send "print g_vB\n"
  1204.     expect {
  1205.     -re ".* = \{\<vA\> = \{va = 3, vx = 4\}, _vb\[\\\$\.\]vA = $hex, vb = 5, vx = 6\}\r\n$prompt $" {
  1206.         incr passcount
  1207.     }
  1208.     -re ".* = \{vA = \{va = $decimal, vx = 5\}, _vb\[\\\$\.\]vA = $hex, vb = 5, vx = 6\}\r\n$prompt $" {
  1209.         setup_xfail "*-*-*"
  1210.         fail "printt g_vB"
  1211.     }
  1212.     -re ".*$prompt $" { fail "print g_vB" }
  1213.     timeout { fail "print g_vB (timeout)" ; return }
  1214.     }
  1215.  
  1216.     # Print all members of g_vC.
  1217.  
  1218.     send "print g_vC\n"
  1219.     expect {
  1220.     -re ".* = \{\<vA\> = \{va = 7, vx = 8\}, _vb\[\\\$\.\]vA = $hex, vc = 9, vx = 10\}\r\n$prompt $" {
  1221.         incr passcount
  1222.     }
  1223.     -re ".* = \{vA = \{va = $decimal, vx = 9\}, _vb\[\\\$\.\]vA = $hex, vc = 9, vx = 10\}\r\n$prompt $" {
  1224.         setup_xfail "*-*-*"
  1225.         fail "print g_vC"
  1226.     }
  1227.     -re ".*$prompt $" { fail "print g_vC" }
  1228.     timeout { fail "print g_vC (timeout)" ; return }
  1229.     }
  1230.  
  1231.     if $passcount then {
  1232.     pass "$passcount correct svi classes printed"
  1233.     }
  1234. }
  1235.  
  1236. #
  1237. # Multiple virtual inheritance, print individual members.
  1238. #
  1239.  
  1240. proc test_print_mvi_members {} {
  1241.     global prompt
  1242.     global decimal
  1243.  
  1244.     set passcount 0
  1245.  
  1246.     # Print all members of g_vD.
  1247.  
  1248.     send "print g_vD.vA::va\n"
  1249.     expect {
  1250.     -re ".* = 19\r\n$prompt $" { incr passcount }
  1251.     -re ".* = $decimal\r\n$prompt $" {
  1252.         # Didn't follow virtual base class pointer
  1253.         setup_xfail "*-*-*"
  1254.         fail "print g_vD.vA::va"
  1255.     }
  1256.     -re ".*$prompt $" { fail "print g_vD.vA::va" }
  1257.     timeout { fail "print g_vD.vA::va (timeout)" ; return }
  1258.     }
  1259.  
  1260.     send "print g_vD.vA::vx\n"
  1261.     expect {
  1262.     -re ".* = 20\r\n$prompt $" { incr passcount }
  1263.     -re ".* = $decimal\r\n$prompt $" {
  1264.         # Didn't follow virtual base class pointer
  1265.         setup_xfail "*-*-*"
  1266.         fail "print g_vD.vA::vx"
  1267.     }
  1268.     -re ".*$prompt $" { fail "print g_vD.vA::vx" }
  1269.     timeout { fail "print g_vD.vA::vx (timeout)" ; return }
  1270.     }
  1271.  
  1272.     send "print g_vD.vB::vb\n"
  1273.     expect {
  1274.     -re ".* = 21\r\n$prompt $" { incr passcount }
  1275.     -re ".* = $decimal\r\n$prompt $" {
  1276.         # Didn't follow virtual base class pointer
  1277.         setup_xfail "*-*-*"
  1278.         fail "print g_vD.vB::vb"
  1279.     }
  1280.     -re ".*$prompt $" { fail "print g_vD.vB::vb" }
  1281.     timeout { fail "print g_vD.vB::vb (timeout)" ; return }
  1282.     }
  1283.  
  1284.     send "print g_vD.vB::vx\n"
  1285.     expect {
  1286.     -re ".* = 22\r\n$prompt $" { incr passcount }
  1287.     -re ".* = 25\r\n$prompt $" {
  1288.         # Didn't follow virtual base class pointer
  1289.         setup_xfail "*-*-*"
  1290.         fail "print g_vD.vB::vx"
  1291.     }
  1292.     -re ".*$prompt $" { fail "print g_vD.vB::vx" }
  1293.     timeout { fail "print g_vD.vB::vx (timeout)" ; return }
  1294.     }
  1295.  
  1296.     send "print g_vD.vC::vc\n"
  1297.     expect {
  1298.     -re ".* = 23\r\n$prompt $" { incr passcount }
  1299.     -re ".* = $decimal\r\n$prompt $" {
  1300.         # Didn't follow virtual base class pointer
  1301.         setup_xfail "*-*-*"
  1302.         fail "print g_vD.vC::vc"
  1303.     }
  1304.     -re ".*$prompt $" { fail "print g_vD.vC::vc" }
  1305.     timeout { fail "print g_vD.vC::vc (timeout)" ; return }
  1306.     }
  1307.  
  1308.     send "print g_vD.vC::vx\n"
  1309.     expect {
  1310.     -re ".* = 24\r\n$prompt $" { incr passcount }
  1311.     -re ".* = 25\r\n$prompt $" {
  1312.         # Didn't follow virtual base class pointer
  1313.         setup_xfail "*-*-*"
  1314.         fail "print g_vD.vC::vx"
  1315.     }
  1316.     -re ".*$prompt $" { fail "print g_vD.vC::vx" }
  1317.     timeout { fail "print g_vD.vC::vx (timeout)" ; return }
  1318.     }
  1319.  
  1320.     send "print g_vD.vD::vd\n"
  1321.     expect {
  1322.     -re ".* = 25\r\n$prompt $" { incr passcount }
  1323.     -re ".*$prompt $" { fail "print g_vD.vD::vd" }
  1324.     timeout { fail "print g_vD.vD::vd (timeout)" ; return }
  1325.     }
  1326.  
  1327.     send "print g_vD.vD::vx\n"
  1328.     expect {
  1329.     -re ".* = 26\r\n$prompt $" { incr passcount }
  1330.     -re ".*$prompt $" { fail "print g_vD.vD::vx" }
  1331.     timeout { fail "print g_vD.vD::vx (timeout)" ; return }
  1332.     }
  1333.  
  1334.     # Print all members of g_vE.
  1335.  
  1336.     send "print g_vE.vA::va\n"
  1337.     expect {
  1338.     -re ".* = 0\r\n$prompt $" { incr passcount }
  1339.     -re ".* = $decimal\r\n$prompt $" {
  1340.         # Didn't follow virtual base class pointer
  1341.         setup_xfail "*-*-*"
  1342.         fail "print g_vE.vA::va"
  1343.     }
  1344.     -re ".*$prompt $" { fail "print g_vE.vA::va" }
  1345.     timeout { fail "print g_vE.vA::va (timeout)" ; return }
  1346.     }
  1347.  
  1348.     send "print g_vE.vA::vx\n"
  1349.     expect {
  1350.     -re ".* = 0\r\n$prompt $" { incr passcount }
  1351.     -re ".* = 27\r\n$prompt $" {
  1352.         # Didn't follow virtual base class pointer
  1353.         setup_xfail "*-*-*"
  1354.         fail "print g_vE.vA::vx"
  1355.     }
  1356.     -re ".*$prompt $" { fail "print g_vE.vA::vx" }
  1357.     timeout { fail "print g_vE.vA::vx (timeout)" ; return }
  1358.     }
  1359.  
  1360.     send "print g_vE.vB::vb\n"
  1361.     expect {
  1362.     -re ".* = 0\r\n$prompt $" { incr passcount }
  1363.     -re ".* = 27\r\n$prompt $" {
  1364.         # Didn't follow virtual base class pointer
  1365.         setup_xfail "*-*-*"
  1366.         fail "print g_vE.vB::vb"
  1367.     }
  1368.     -re ".*$prompt $" { fail "print g_vE.vB::vb" }
  1369.     timeout { fail "print g_vE.vB::vb (timeout)" ; return }
  1370.     }
  1371.  
  1372.     send "print g_vE.vB::vx\n"
  1373.     expect {
  1374.     -re ".* = 0\r\n$prompt $" { incr passcount }
  1375.     -re ".* = 28\r\n$prompt $" {
  1376.         # Didn't follow virtual base class pointer
  1377.         setup_xfail "*-*-*"
  1378.         fail "print g_vE.vB::vx"
  1379.     }
  1380.     -re ".*$prompt $" { fail "print g_vE.vB::vx" }
  1381.     timeout { fail "print g_vE.vB::vx (timeout)" ; return }
  1382.     }
  1383.  
  1384.     send "print g_vE.vC::vc\n"
  1385.     expect {
  1386.     -re ".* = 0\r\n$prompt $" { incr passcount }
  1387.     -re ".* = 27\r\n$prompt $" {
  1388.         # Didn't follow virtual base class pointer
  1389.         setup_xfail "*-*-*"
  1390.         fail "print g_vE.vC::vc"
  1391.     }
  1392.     -re ".*$prompt $" { fail "print g_vE.vC::vc" }
  1393.     timeout { fail "print g_vE.vC::vc (timeout)" ; return }
  1394.     }
  1395.  
  1396.     send "print g_vE.vC::vx\n"
  1397.     expect {
  1398.     -re ".* = 0\r\n$prompt $" { incr passcount }
  1399.     -re ".* = 28\r\n$prompt $" {
  1400.         # Didn't follow virtual base class pointer
  1401.         setup_xfail "*-*-*"
  1402.         fail "print g_vE.vC::vx"
  1403.     }
  1404.     -re ".*$prompt $" { fail "print g_vE.vC::vx" }
  1405.     timeout { fail "print g_vE.vC::vx (timeout)" ; return }
  1406.     }
  1407.  
  1408.     send "print g_vE.vD::vd\n"
  1409.     expect {
  1410.     -re ".* = 0\r\n$prompt $" { incr passcount }
  1411.     -re ".* = 28\r\n$prompt $" {
  1412.         # Didn't follow virtual base class pointer
  1413.         setup_xfail "*-*-*"
  1414.         fail "print g_vE.vD::vd"
  1415.     }
  1416.     -re ".*$prompt $" { fail "print g_vE.vD::vd" }
  1417.     timeout { fail "print g_vE.vD::vd (timeout)" ; return }
  1418.     }
  1419.  
  1420.     send "print g_vE.vD::vx\n"
  1421.     expect {
  1422.     -re ".* = 0\r\n$prompt $" { incr passcount }
  1423.     -re ".*$prompt $" { fail "print g_vE.vD::vx" }
  1424.     timeout { fail "print g_vE.vD::vx (timeout)" ; return }
  1425.     }
  1426.  
  1427.     send "print g_vE.vE::ve\n"
  1428.     expect {
  1429.     -re ".* = 27\r\n$prompt $" { incr passcount }
  1430.     -re ".*$prompt $" { fail "print g_vE.vE::ve" }
  1431.     timeout { fail "print g_vE.vE::ve (timeout)" ; return }
  1432.     }
  1433.  
  1434.     send "print g_vE.vE::vx\n"
  1435.     expect {
  1436.     -re ".* = 28\r\n$prompt $" { incr passcount }
  1437.     -re ".*$prompt $" { fail "print g_vE.vE::vx" }
  1438.     timeout { fail "print g_vE.vE::vx (timeout)" ; return }
  1439.     }
  1440.  
  1441.     if $passcount then {
  1442.     pass "$passcount correct mvi members printed"
  1443.     }
  1444. }
  1445.  
  1446. #
  1447. # Multiple virtual inheritance, print type definitions.
  1448. #
  1449.  
  1450. proc test_ptype_mvi {} {
  1451.     global prompt
  1452.  
  1453.     set passcount 0
  1454.  
  1455.     send "ptype vD\n"
  1456.     expect {
  1457.     -re "type = class vD : public virtual vB, public virtual vC \{\r\n\[ \]*private:\r\n\[ \]*vC \*_vb\[\\\$\.\]vC;\r\n\[ \]*vB \*_vb\[\\\$\.\]vB;\r\n\[ \]*public:\r\n\[ \]*int vd;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1458.         incr passcount
  1459.     }
  1460.     -re "type = struct vD \{\r\n\[ \]*struct vB vB;\r\n\[ \]*struct vC vC;\r\n\[ \]*struct vC \*_vb\[\\\$\.\]vC;\r\n\[ \]*struct vB \*_vb\[\\\$\.\]vB;\r\n\[ \]*int vd;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1461.         setup_xfail "*-*-*"
  1462.         fail "ptype vD"
  1463.     }
  1464.     -re ".*$prompt $" { fail "ptype vD" }
  1465.     timeout { fail "ptype vD (timeout)" ; return }
  1466.     }
  1467.  
  1468.     send "ptype class vD\n"
  1469.     expect {
  1470.     -re "type = class vD : public virtual vB, public virtual vC \{\r\n\[ \]*private:\r\n\[ \]*vC \*_vb\[\\\$\.\]vC;\r\n\[ \]*vB \*_vb\[\\\$\.\]vB;\r\n\[ \]*public:\r\n\[ \]*int vd;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1471.         incr passcount
  1472.     }
  1473.     -re "type = struct vD \{\r\n\[ \]*struct vB vB;\r\n\[ \]*struct vC vC;\r\n\[ \]*struct vC \*_vb\[\\\$\.\]vC;\r\n\[ \]*struct vB \*_vb\[\\\$\.\]vB;\r\n\[ \]*int vd;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1474.         setup_xfail "*-*-*"
  1475.         fail "ptype class vD"
  1476.     }
  1477.     -re ".*$prompt $" { fail "ptype class vD" }
  1478.     timeout { fail "ptype class vD (timeout)" ; return }
  1479.     }
  1480.  
  1481.     send "ptype g_vD\n"
  1482.     expect {
  1483.     -re "type = class vD : public virtual vB, public virtual vC \{\r\n\[ \]*private:\r\n\[ \]*vC \*_vb\[\\\$\.\]vC;\r\n\[ \]*vB \*_vb\[\\\$\.\]vB;\r\n\[ \]*public:\r\n\[ \]*int vd;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1484.         incr passcount
  1485.     }
  1486.     -re "type = struct vD \{\r\n\[ \]*struct vB vB;\r\n\[ \]*struct vC vC;\r\n\[ \]*struct vC \*_vb\[\\\$\.\]vC;\r\n\[ \]*struct vB \*_vb\[\\\$\.\]vB;\r\n\[ \]*int vd;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1487.         setup_xfail "*-*-*"
  1488.         fail "ptype g_vD"
  1489.     }
  1490.     -re ".*$prompt $" { fail "ptype g_vD" }
  1491.     timeout { fail "ptype g_vD (timeout)" ; return }
  1492.     }
  1493.  
  1494.     send "ptype vE\n"
  1495.     expect {
  1496.     -re "type = class vE : public virtual vD \{\r\n\[ \]*private:\r\n\[ \]*vD \*_vb\[\\\$\.\]vD;\r\n\[ \]*public:\r\n\[ \]*int ve;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1497.         incr passcount
  1498.     }
  1499.     -re "type = struct vE \{\r\n\[ \]*struct vD vD;\r\n\[ \]*struct vD \*_vb\[\\\$\.\]vD;\r\n\[ \]*int ve;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1500.         setup_xfail "*-*-*"
  1501.         fail "ptype vE"
  1502.     }
  1503.     -re ".*$prompt $" { fail "ptype vE" }
  1504.     timeout { fail "ptype vE (timeout)" ; return }
  1505.     }
  1506.  
  1507.     send "ptype class vE\n"
  1508.     expect {
  1509.     -re "type = class vE : public virtual vD \{\r\n\[ \]*private:\r\n\[ \]*vD \*_vb\[\\\$\.\]vD;\r\n\[ \]*public:\r\n\[ \]*int ve;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1510.         incr passcount
  1511.     }
  1512.     -re "type = struct vE \{\r\n\[ \]*struct vD vD;\r\n\[ \]*struct vD \*_vb\[\\\$\.\]vD;\r\n\[ \]*int ve;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1513.         setup_xfail "*-*-*"
  1514.         fail "ptype class vE"
  1515.     }
  1516.     -re ".*$prompt $" { fail "ptype class vE" }
  1517.     timeout { fail "ptype class vE (timeout)" ; return }
  1518.     }
  1519.  
  1520.     send "ptype g_vE\n"
  1521.     expect {
  1522.     -re "type = class vE : public virtual vD \{\r\n\[ \]*private:\r\n\[ \]*vD \*_vb\[\\\$\.\]vD;\r\n\[ \]*public:\r\n\[ \]*int ve;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1523.         incr passcount
  1524.     }
  1525.     -re "type = struct vE \{\r\n\[ \]*struct vD vD;\r\n\[ \]*struct vD \*_vb\[\\\$\.\]vD;\r\n\[ \]*int ve;\r\n\[ \]*int vx;\r\n\}\r\n$prompt $" {
  1526.         setup_xfail "*-*-*"
  1527.         fail "ptype g_vE"
  1528.     }
  1529.     -re ".*$prompt $" { fail "ptype g_vE" }
  1530.     timeout { fail "ptype g_vE (timeout)" ; return }
  1531.     }
  1532.  
  1533.     if $passcount then {
  1534.     pass "$passcount correct mvi types printed"
  1535.     }
  1536. }
  1537.  
  1538. #
  1539. # Multiple virtual inheritance, print complete classes.
  1540. #
  1541.  
  1542. proc test_print_mvi_classes {} {
  1543.     global prompt
  1544.     global hex
  1545.     global decimal
  1546.  
  1547.     set passcount 0
  1548.  
  1549.     # Print all members of g_vD.
  1550.  
  1551.     send "print g_vD\n"
  1552.     expect {
  1553.     -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\}\r\n$prompt $" {
  1554.         incr passcount
  1555.     }
  1556.     -re ".* = \{vB = \{vA = \{va = $decimal, vx = $decimal\}, _vb\[\\\$\.\]vA = $hex, vb = $decimal, vx = 25\}, vC = \{vA = \{va = $decimal, vx = $decimal\}, _vb\[\\\$\.\]vA = $hex, vc = $decimal, vx = 25\}, _vb\[\\\$\.\]vC = $hex, _vb\[\\\$\.\]vB = $hex, vd = 25, vx = 26\}\r\n$prompt $" {
  1557.         setup_xfail "*-*-*"
  1558.         fail "print g_vD"
  1559.     }
  1560.     -re ".*$prompt $" { fail "print g_vD" }
  1561.     timeout { fail "print g_vD (timeout)" ; return }
  1562.     }
  1563.  
  1564.     # Print all members of g_vE.
  1565.  
  1566.     send "print g_vE\n"
  1567.     expect {
  1568.     -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\}\r\n$prompt $" {
  1569.         incr passcount
  1570.     }
  1571.     -re ".* = \{vD = \{vB = \{vA = \{va = $decimal, vx = 27\}, _vb\[\\\$\.\]vA = $hex, vb = 27, vx = 28\}, vC = \{vA = \{va = $decimal, vx = 27\}, _vb\[\\\$\.\]vA = $hex, vc = 27, vx = 28\}, _vb\[\\\$\.\]vC = $hex, _vb\[\\\$\.\]vB = $hex, vd = 28, vx = 0\}, _vb\[\\\$\.\]vD = $hex, ve = 27, vx = 28\}\r\n$prompt $" {
  1572.         setup_xfail "*-*-*"
  1573.         fail "print g_vE"
  1574.     }
  1575.     -re ".*$prompt $" { fail "print g_vE" }
  1576.     timeout { fail "print g_vE (timeout)" ; return }
  1577.     }
  1578.  
  1579.     if $passcount then {
  1580.     pass "$passcount correct mvi classes printed"
  1581.     }
  1582. }
  1583.  
  1584. proc do_tests {} {
  1585.     global prms_id
  1586.     global bug_id
  1587.     global subdir
  1588.     global objdir
  1589.     global srcdir
  1590.     global binfile
  1591.     global prompt
  1592.  
  1593.     set prms_id 0
  1594.     set bug_id 0
  1595.  
  1596.     # Start with a fresh gdb.
  1597.  
  1598.     gdb_exit
  1599.     gdb_start
  1600.     gdb_reinitialize_dir $srcdir/$subdir
  1601.     gdb_load $objdir/$subdir/$binfile
  1602.  
  1603.     send "set language c++\n"
  1604.     expect -re "$prompt $"
  1605.     send "set width 0\n"
  1606.     expect -re "$prompt $"
  1607.  
  1608.     if [ runto main ] then {
  1609.     test_ptype_si
  1610.     test_ptype_mi
  1611.     test_ptype_vi
  1612.     test_ptype_mvi
  1613.     }
  1614.  
  1615.     if [istarget "a29k-*-udi"] then {
  1616.     # FIXME: If PR 2415 is fixed, this is not needed.
  1617.     gdb_target_udi
  1618.     gdb_load $objdir/$subdir/$binfile
  1619.     }
  1620.  
  1621.     if [ runto 'inheritance2(void)' ] then {
  1622.     test_print_si_members
  1623.     test_print_si_classes
  1624.     test_print_mi_members
  1625.     test_print_mi_classes
  1626.     }
  1627.  
  1628.     if [istarget "a29k-*-udi"] then {
  1629.     # FIXME: If PR 2415 is fixed, this is not needed.
  1630.     gdb_target_udi
  1631.     gdb_load $objdir/$subdir/$binfile
  1632.     }
  1633.  
  1634.     if [ runto 'inheritance4(void)' ] then {
  1635.     test_print_svi_members
  1636.     test_print_svi_classes
  1637.     test_print_mvi_members
  1638.     test_print_mvi_classes
  1639.     }
  1640.  
  1641.     if [istarget "a29k-*-udi"] then {
  1642.     # FIXME: If PR 2415 is fixed, this is not needed.
  1643.     gdb_target_udi
  1644.     }
  1645. }
  1646.  
  1647. # Check to see if we have an executable to test.  If not, then either we
  1648. # haven't tried to compile one, or the compilation failed for some reason.
  1649. # In either case, just notify the user and skip the tests in this file.
  1650.  
  1651. set binfile "gdbme"
  1652. set srcfile $binfile.cc
  1653.  
  1654. if ![file exists $objdir/$subdir/$binfile] then {
  1655.     warning "$binfile does not exist; tests suppressed."
  1656. } else {
  1657.     do_tests
  1658. }
  1659.