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.t22 / virtfunc.exp < prev    next >
Encoding:
Text File  |  1993-05-12  |  23.3 KB  |  675 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. #  Test printing of the types of various classes.
  28. #
  29.  
  30. proc test_ptype_of_classes {} {
  31.     global prompt
  32.  
  33.     set passcount 0
  34.  
  35.     send "ptype VA\n"
  36.     setup_xfail "*-*-*"
  37.     expect {
  38.     -re "type = class VA \{\[\r\n\t \]*int va;\r\n\}\r\n$prompt $" {
  39.         incr passcount
  40.     }
  41.     -re "type = struct VA \{\[\r\n\t \]*int va;\r\n\}\r\n$prompt $" {
  42.         fail "ptype VA (prints struct instead of class)"
  43.     }
  44.     -re ".*$prompt $" { fail "ptype VA" }
  45.     timeout { fail "ptype VA (timeout)" }
  46.     }
  47.  
  48.     send "ptype VB\n"
  49.     expect {
  50.     -re "type = class VB \{\[\r\n\t \]*public:\[\r\n\t \]*int vb;\[\r\n\t \]*int fvb\(void\);\[\r\n\t \]*virtual int vvb\(void\);\r\n\}\r\n$prompt $" {
  51.         incr passcount
  52.     }
  53.     -re "type = struct VB \{\[\r\n\t \]*int vb;\[\r\n\t \]*\}\r\n$prompt $" {
  54.         setup_xfail "*-*-*"
  55.         fail "ptype VB"
  56.     }
  57.     -re ".*$prompt $" { fail "ptype VB" }
  58.     timeout { fail "ptype VB (timeout)" }
  59.     }
  60.  
  61.     send "ptype V\n"
  62.     expect {
  63.     -re "type = class V : public VA, public VB \{\[\r\n\t \]*public:\[\r\n\t \]*int w;\[\r\n\t \]*int f\(void\);\[\r\n\t \]*virtual int vv\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  64.         incr passcount
  65.     }
  66.     -re "type = struct V \{\[\r\n \t\]*struct VA VA;\[\r\n \t\]*struct VB VB;\[\r\n \t\]*int w;\[\r\n \t\]*\}\r\n$prompt $" {
  67.         setup_xfail "*-*-*"
  68.         fail "ptype V"
  69.     }
  70.     -re ".*$prompt $" { fail "ptype V" }
  71.     timeout { fail "ptype V (timeout)" }
  72.     }
  73.  
  74.     send "ptype A\n"
  75.     expect {
  76.     -re "type = class A : public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*int a;\[\r\n\t \]*public:\[\r\n\t \]*virtual int f\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  77.         incr passcount
  78.     }
  79.     -re "type = struct A \{\[\r\n \t\]*struct V V;\[\r\n \t\]*struct V \*_vb\\\$V;\[\r\n \t\]*int a;\[\r\n \t\]*\}\r\n$prompt $" {
  80.         setup_xfail "*-*-*"
  81.         fail "ptype A"
  82.     }
  83.     -re ".*$prompt $" { fail "ptype A" }
  84.     timeout { fail "ptype A (timeout)" }
  85.     }
  86.  
  87.     send "ptype B\n"
  88.     expect {
  89.     -re "type = class B : public A \{\[\r\n\t \]*private:\[\r\n\t \]*int b;\[\r\n\t \]*public:\[\r\n\t \]*virtual int f\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  90.         incr passcount
  91.     }
  92.     -re "type = struct B \{\[\r\n \t\]*struct A A;\[\r\n \t\]*int b;\[\r\n \t\]*\}\r\n$prompt $" {
  93.         setup_xfail "*-*-*"
  94.         fail "ptype B"
  95.     }
  96.     -re ".*$prompt $" { fail "ptype B" }
  97.     timeout { fail "ptype B (timeout)" }
  98.     }
  99.  
  100.     send "ptype C\n"
  101.     expect {
  102.     -re "type = class C : public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*public:\[\r\n\t \]*int c;\[\r\n\t \]*\}\r\n$prompt $" {
  103.         incr passcount
  104.     }
  105.     -re "type = struct C \{\[\r\n \t\]*struct V V;\[\r\n \t\]*struct V \*_vb\\\$V;\[\r\n \t\]*int c;\[\r\n \t\]*\}\r\n$prompt $" {
  106.         setup_xfail "*-*-*"
  107.         fail "ptype C"
  108.     }
  109.     -re ".*$prompt $" { fail "ptype C" }
  110.     timeout { fail "ptype C (timeout)" }
  111.     }
  112.  
  113.     send "ptype AD\n"
  114.     expect {
  115.     -re "type = class AD \{\[\r\n\t \]*public:\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  116.         incr passcount
  117.     }
  118.     -re "type = struct AD \{\r\n\}\r\n$prompt $" {
  119.         setup_xfail "*-*-*"
  120.         fail "ptype AD"
  121.     }
  122.     -re ".*$prompt $" { fail "ptype AD" }
  123.     timeout { fail "ptype AD (timeout)" }
  124.     }
  125.  
  126.     send "ptype D\n"
  127.     expect {
  128.     -re "type = class D : public AD, public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*public:\[\r\n\t \]*int d;\[\r\n\t \]*static void s\(void\);\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*virtual int vd\(void\);\[\r\n\t \]*int fd\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  129.         incr passcount
  130.     }
  131.     -re "type = struct D \{\[\r\n\t \]*struct AD AD;\[\r\n\t \]*struct V V;\[\r\n\t \]*struct V \*_vb\\\$V;\[\r\n\t \]*int d;\[\r\n\t \]*\}\r\n$prompt $" {
  132.         setup_xfail "*-*-*"
  133.         fail "ptype D"
  134.     }
  135.     -re ".*$prompt $" { fail "ptype D" }
  136.     timeout { fail "ptype D (timeout)" }
  137.     }
  138.  
  139.     send "ptype E\n"
  140.     expect {
  141.     -re "type = class E : public B, public virtual V, public D, public C \{\[\r\n\t \]*public:\[\r\n\t \]*int e;\[\r\n\t \]*virtual int f\(void\);\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*virtual int vv\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  142.         incr passcount
  143.     }
  144.     -re "type = struct E \{\[\r\n\t \]*struct B B;\[\r\n\t \]*struct V V;\[\r\n\t \]*struct D D;\[\r\n\t \]*struct C C;\[\r\n\t \]*int e;\[\r\n\t \]*\}\r\n$prompt $" {
  145.         setup_xfail "*-*-*"
  146.         fail "ptype E"
  147.     }
  148.     -re ".*$prompt $" { fail "ptype E" }
  149.     timeout { fail "ptype E (timeout)" }
  150.     }
  151.  
  152.     send "ptype dd\n"
  153.     expect {
  154.     -re "type = class D : public AD, public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*public:\[\r\n\t \]*int d;\[\r\n\t \]*static void s\(void\);\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*virtual int vd\(void\);\[\r\n\t \]*int fd\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  155.         incr passcount
  156.     }
  157.     -re "type = struct D \{\[\r\n\t \]*struct AD AD;\[\r\n\t \]*struct V V;\[\r\n\t \]*struct V \*_vb\\\$V;\[\r\n\t \]*int d;\[\r\n\t \]*\}\r\n$prompt $" {
  158.         setup_xfail "*-*-*"
  159.         fail "ptype dd"
  160.     }
  161.     -re ".*$prompt $" { fail "ptype dd" }
  162.     timeout { fail "ptype dd (timeout)" }
  163.     }
  164.  
  165.     send "ptype ppd\n"
  166.     expect {
  167.     -re "type = class D : public AD, public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*public:\[\r\n\t \]*int d;\[\r\n\t \]*static void s\(void\);\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*virtual int vd\(void\);\[\r\n\t \]*int fd\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  168.         incr passcount
  169.     }
  170.     -re "type = struct D \{\[\r\n\t \]*struct AD AD;\[\r\n\t \]*struct V V;\[\r\n\t \]*struct V \*_vb\\\$V;\[\r\n\t \]*int d;\[\r\n\t \]*\} \*\r\n$prompt $" {
  171.         setup_xfail "*-*-*"
  172.         fail "ptype ppd"
  173.     }
  174.     -re ".*$prompt $" { fail "ptype ppd" }
  175.     timeout { fail "ptype ppd (timeout)" }
  176.     }
  177.  
  178.     send "ptype pAd\n"
  179.     expect {
  180.     -re "type = class AD \{\[\r\n\t \]*public:\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  181.         incr passcount
  182.     }
  183.     -re "type = struct AD \{\r\n\} \*\r\n$prompt $" {
  184.         setup_xfail "*-*-*"
  185.         fail "ptype pAd"
  186.     }
  187.     -re ".*$prompt $" { fail "ptype pAd" }
  188.     timeout { fail "ptype pAd (timeout)" }
  189.     }
  190.  
  191.     send "ptype a\n"
  192.     expect {
  193.     -re "type = class A : public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*int a;\[\r\n\t \]*public:\[\r\n\t \]*virtual int f\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  194.         incr passcount
  195.     }
  196.     -re "type = struct A \{\[\r\n \t\]*struct V V;\[\r\n \t\]*struct V \*_vb\\\$V;\[\r\n \t\]*int a;\[\r\n \t\]*\}\r\n$prompt $" {
  197.         setup_xfail "*-*-*"
  198.         fail "ptype a"
  199.     }
  200.     -re ".*$prompt $" { fail "ptype a" }
  201.     timeout { fail "ptype a (timeout)" }
  202.     }
  203.  
  204.     send "ptype b\n"
  205.     expect {
  206.     -re "type = class B : public A \{\[\r\n\t \]*private:\[\r\n\t \]*int b;\[\r\n\t \]*public:\[\r\n\t \]*virtual int f\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  207.         incr passcount
  208.     }
  209.     -re "type = struct B \{\[\r\n \t\]*struct A A;\[\r\n \t\]*int b;\[\r\n \t\]*\}\r\n$prompt $" {
  210.         setup_xfail "*-*-*"
  211.         fail "ptype b"
  212.     }
  213.     -re ".*$prompt $" { fail "ptype b" }
  214.     timeout { fail "ptype b (timeout)" }
  215.     }
  216.  
  217.     send "ptype c\n"
  218.     expect {
  219.     -re "type = class C : public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*public:\[\r\n\t \]*int c;\[\r\n\t \]*\}\r\n$prompt $" {
  220.         incr passcount
  221.     }
  222.     -re "type = struct C \{\[\r\n \t\]*struct V V;\[\r\n \t\]*struct V \*_vb\\\$V;\[\r\n \t\]*int c;\[\r\n \t\]*\}\r\n$prompt $" {
  223.         setup_xfail "*-*-*"
  224.         fail "ptype c"
  225.     }
  226.     -re ".*$prompt $" { fail "ptype c" }
  227.     timeout { fail "ptype c (timeout)" }
  228.     }
  229.  
  230.     send "ptype d\n"
  231.     expect {
  232.     -re "type = class D : public AD, public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*public:\[\r\n\t \]*int d;\[\r\n\t \]*static void s\(void\);\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*virtual int vd\(void\);\[\r\n\t \]*int fd\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  233.         incr passcount
  234.     }
  235.     -re "type = struct D \{\[\r\n\t \]*struct AD AD;\[\r\n\t \]*struct V V;\[\r\n\t \]*struct V \*_vb\\\$V;\[\r\n\t \]*int d;\[\r\n\t \]*\}\r\n$prompt $" {
  236.         setup_xfail "*-*-*"
  237.         fail "ptype d"
  238.     }
  239.     -re ".*$prompt $" { fail "ptype d" }
  240.     timeout { fail "ptype d (timeout)" }
  241.     }
  242.  
  243.     send "ptype e\n"
  244.     expect {
  245.     -re "type = class E : public B, public virtual V, public D, public C \{\[\r\n\t \]*public:\[\r\n\t \]*int e;\[\r\n\t \]*virtual int f\(void\);\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*virtual int vv\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  246.         incr passcount
  247.     }
  248.     -re "type = struct E \{\[\r\n\t \]*struct B B;\[\r\n\t \]*struct V V;\[\r\n\t \]*struct D D;\[\r\n\t \]*struct C C;\[\r\n\t \]*int e;\[\r\n\t \]*\}\r\n$prompt $" {
  249.         setup_xfail "*-*-*"
  250.         fail "ptype e"
  251.     }
  252.     -re ".*$prompt $" { fail "ptype e" }
  253.     timeout { fail "ptype e (timeout)" }
  254.     }
  255.  
  256.     send "ptype v\n"
  257.     expect {
  258.     -re "type = class V : public VA, public VB \{\[\r\n\t \]*public:\[\r\n\t \]*int w;\[\r\n\t \]*int f\(void\);\[\r\n\t \]*virtual int vv\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  259.         incr passcount
  260.     }
  261.     -re "type = struct V \{\[\r\n \t\]*struct VA VA;\[\r\n \t\]*struct VB VB;\[\r\n \t\]*int w;\[\r\n \t\]*\}\r\n$prompt $" {
  262.         setup_xfail "*-*-*"
  263.         fail "ptype v"
  264.     }
  265.     -re ".*$prompt $" { fail "ptype v" }
  266.     timeout { fail "ptype v (timeout)" }
  267.     }
  268.  
  269.     send "ptype vb\n"
  270.     expect {
  271.     -re "type = class VB \{\[\r\n\t \]*public:\[\r\n\t \]*int vb;\[\r\n\t \]*int fvb\(void\);\[\r\n\t \]*virtual int vvb\(void\);\[\r\n\t \]*\}\r\n$prompt $" {
  272.         incr passcount
  273.     }
  274.     -re "type = struct VB \{\[\r\n\t \]*int vb;\[\r\n\t \]*\}\r\n$prompt $" {
  275.         setup_xfail "*-*-*"
  276.         fail "ptype vb"
  277.     }
  278.     -re ".*$prompt $" { fail "ptype vb" }
  279.     timeout { fail "ptype vb (timeout)" }
  280.     }
  281.  
  282.     send "ptype pAa\n"
  283.     expect {
  284.     -re "type = class A : public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*int a;\[\r\n\t \]*public:\[\r\n\t \]*virtual int f\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  285.         incr passcount
  286.     }
  287.     -re "type = struct A \{\[\r\n \t\]*struct V V;\[\r\n \t\]*struct V \*_vb\\\$V;\[\r\n \t\]*int a;\[\r\n \t\]*\} \*\r\n$prompt $" {
  288.         setup_xfail "*-*-*"
  289.         fail "ptype pAa"
  290.     }
  291.     -re ".*$prompt $" { fail "ptype pAa" }
  292.     timeout { fail "ptype pAa (timeout)" }
  293.     }
  294.  
  295.     send "ptype pAe\n"
  296.     expect {
  297.     -re "type = class A : public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*int a;\[\r\n\t \]*public:\[\r\n\t \]*virtual int f\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  298.         incr passcount
  299.     }
  300.     -re "type = struct A \{\[\r\n \t\]*struct V V;\[\r\n \t\]*struct V \*_vb\\\$V;\[\r\n \t\]*int a;\[\r\n \t\]*\} \*\r\n$prompt $" {
  301.         setup_xfail "*-*-*"
  302.         fail "ptype pAe"
  303.     }
  304.     -re ".*$prompt $" { fail "ptype pAe" }
  305.     timeout { fail "ptype pAe (timeout)" }
  306.     }
  307.  
  308.     send "ptype pBe\n"
  309.     expect {
  310.     -re "type = class B : public A \{\[\r\n\t \]*private:\[\r\n\t \]*int b;\[\r\n\t \]*public:\[\r\n\t \]*virtual int f\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  311.         incr passcount
  312.     }
  313.     -re "type = struct B \{\[\r\n \t\]*struct A A;\[\r\n \t\]*int b;\[\r\n \t\]*\} \*\r\n$prompt $" {
  314.         setup_xfail "*-*-*"
  315.         fail "ptype pBe"
  316.     }
  317.     -re ".*$prompt $" { fail "ptype pBe" }
  318.     timeout { fail "ptype pBe (timeout)" }
  319.     }
  320.  
  321.     send "ptype pDd\n"
  322.     expect {
  323.     -re "type = class D : public AD, public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*public:\[\r\n\t \]*int d;\[\r\n\t \]*static void s\(void\);\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*virtual int vd\(void\);\[\r\n\t \]*int fd\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  324.         incr passcount
  325.     }
  326.     -re "type = struct D \{\[\r\n\t \]*struct AD AD;\[\r\n\t \]*struct V V;\[\r\n\t \]*struct V \*_vb\\\$V;\[\r\n\t \]*int d;\[\r\n\t \]*\} \*\r\n$prompt $" {
  327.         setup_xfail "*-*-*"
  328.         fail "ptype pDd"
  329.     }
  330.     -re ".*$prompt $" { fail "ptype pDd" }
  331.     timeout { fail "ptype pDd (timeout)" }
  332.     }
  333.  
  334.     send "ptype pDe\n"
  335.     expect {
  336.     -re "type = class D : public AD, public virtual V \{\[\r\n\t \]*private:\[\r\n\t \]*V \*_vb\\\$V;\[\r\n\t \]*public:\[\r\n\t \]*int d;\[\r\n\t \]*static void s\(void\);\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*virtual int vd\(void\);\[\r\n\t \]*int fd\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  337.         incr passcount
  338.     }
  339.     -re "type = struct D \{\[\r\n\t \]*struct AD AD;\[\r\n\t \]*struct V V;\[\r\n\t \]*struct V \*_vb\\\$V;\[\r\n\t \]*int d;\[\r\n\t \]*\} \*\r\n$prompt $" {
  340.         setup_xfail "*-*-*"
  341.         fail "ptype pDe"
  342.     }
  343.     -re ".*$prompt $" { fail "ptype pDe" }
  344.     timeout { fail "ptype pDe (timeout)" }
  345.     }
  346.  
  347.     send "ptype pVa\n"
  348.     expect {
  349.     -re "type = class V : public VA, public VB \{\[\r\n\t \]*public:\[\r\n\t \]*int w;\[\r\n\t \]*int f\(void\);\[\r\n\t \]*virtual int vv\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  350.         incr passcount
  351.     }
  352.     -re "type = struct V \{\[\r\n \t\]*struct VA VA;\[\r\n \t\]*struct VB VB;\[\r\n \t\]*int w;\[\r\n \t\]*\} \*\r\n$prompt $" {
  353.         setup_xfail "*-*-*"
  354.         fail "ptype pVa"
  355.     }
  356.     -re ".*$prompt $" { fail "ptype pVa" }
  357.     timeout { fail "ptype pVa (timeout)" }
  358.     }
  359.  
  360.     send "ptype pVv\n"
  361.     expect {
  362.     -re "type = class V : public VA, public VB \{\[\r\n\t \]*public:\[\r\n\t \]*int w;\[\r\n\t \]*int f\(void\);\[\r\n\t \]*virtual int vv\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  363.         incr passcount
  364.     }
  365.     -re "type = struct V \{\[\r\n \t\]*struct VA VA;\[\r\n \t\]*struct VB VB;\[\r\n \t\]*int w;\[\r\n \t\]*\} \*\r\n$prompt $" {
  366.         setup_xfail "*-*-*"
  367.         fail "ptype pVv"
  368.     }
  369.     -re ".*$prompt $" { fail "ptype pVv" }
  370.     timeout { fail "ptype pVv (timeout)" }
  371.     }
  372.  
  373.     send "ptype pVe\n"
  374.     expect {
  375.     -re "type = class V : public VA, public VB \{\[\r\n\t \]*public:\[\r\n\t \]*int w;\[\r\n\t \]*int f\(void\);\[\r\n\t \]*virtual int vv\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  376.         incr passcount
  377.     }
  378.     -re "type = struct V \{\[\r\n \t\]*struct VA VA;\[\r\n \t\]*struct VB VB;\[\r\n \t\]*int w;\[\r\n \t\]*\} \*\r\n$prompt $" {
  379.         setup_xfail "*-*-*"
  380.         fail "ptype pVe"
  381.     }
  382.     -re ".*$prompt $" { fail "ptype pVe" }
  383.     timeout { fail "ptype pVe (timeout)" }
  384.     }
  385.  
  386.     send "ptype pVd\n"
  387.     expect {
  388.     -re "type = class V : public VA, public VB \{\[\r\n\t \]*public:\[\r\n\t \]*int w;\[\r\n\t \]*int f\(void\);\[\r\n\t \]*virtual int vv\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  389.         incr passcount
  390.     }
  391.     -re "type = struct V \{\[\r\n \t\]*struct VA VA;\[\r\n \t\]*struct VB VB;\[\r\n \t\]*int w;\[\r\n \t\]*\} \*\r\n$prompt $" {
  392.         setup_xfail "*-*-*"
  393.         fail "ptype pVd"
  394.     }
  395.     -re ".*$prompt $" { fail "ptype pVd" }
  396.     timeout { fail "ptype pVd (timeout)" }
  397.     }
  398.  
  399.     send "ptype pADe\n"
  400.     expect {
  401.     -re "type = class AD \{\[\r\n\t \]*public:\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  402.         incr passcount
  403.     }
  404.     -re "type = struct AD \{\r\n\} \*\r\n$prompt $" {
  405.         setup_xfail "*-*-*"
  406.         fail "ptype pADe"
  407.     }
  408.     -re ".*$prompt $" { fail "ptype pADe" }
  409.     timeout { fail "ptype pADe (timeout)" }
  410.     }
  411.  
  412.     send "ptype pEe\n"
  413.     expect {
  414.     -re "type = class E : public B, public virtual V, public D, public C \{\[\r\n\t \]*public:\[\r\n\t \]*int e;\[\r\n\t \]*virtual int f\(void\);\[\r\n\t \]*virtual int vg\(void\);\[\r\n\t \]*virtual int vv\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  415.         incr passcount
  416.     }
  417.     -re "type = struct E \{\[\r\n\t \]*struct B B;\[\r\n\t \]*struct V V;\[\r\n\t \]*struct D D;\[\r\n\t \]*struct C C;\[\r\n\t \]*int e;\[\r\n\t \]*\} \*\r\n$prompt $" {
  418.         setup_xfail "*-*-*"
  419.         fail "ptype pEe"
  420.     }
  421.     -re ".*$prompt $" { fail "ptype pEe" }
  422.     timeout { fail "ptype pEe (timeout)" }
  423.     }
  424.  
  425.     send "ptype pVB\n"
  426.     expect {
  427.     -re "type = class VB \{\[\r\n\t \]*public:\[\r\n\t \]*int vb;\[\r\n\t \]*int fvb\(void\);\[\r\n\t \]*virtual int vvb\(void\);\[\r\n\t \]*\} \*\r\n$prompt $" {
  428.         incr passcount
  429.     }
  430.     -re "type = struct VB \{\[\r\n\t \]*int vb;\[\r\n\t \]*\} \*\r\n$prompt $" {
  431.         setup_xfail "*-*-*"
  432.         fail "ptype pVB"
  433.     }
  434.     -re ".*$prompt $" { fail "ptype pVB" }
  435.     timeout { fail "ptype pVB (timeout)" }
  436.     }
  437.  
  438.     if $passcount then {
  439.     pass "$passcount correct virtual function types printed"
  440.     }
  441. }
  442.  
  443. #
  444. #  Test calling of virtual functions.
  445. #
  446.  
  447. proc test_virtual_calls {} {
  448.     global prompt
  449.     global GDB
  450.  
  451.     set passcount 0
  452.  
  453.     send "print pAe->f()\n"
  454.     expect {
  455.     -re ".* = 20\r\n$prompt $" { incr passcount }
  456.     -re "Cannot invoke functions on this machine.*$prompt $"
  457.         { fail "print pAe->f() FIXME" }
  458.     -re "Structure has no component named f.*$prompt $" {
  459.         setup_xfail "*-*-*"
  460.         fail "print pAe->f()"
  461.     }
  462.     -re ".*$prompt $" { fail "print pAe->f()" }
  463.     timeout { fail "print pAe->f() (timeout)" }
  464.     eof { fail "print pAe->f() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  465.     }
  466.  
  467.     send "print pAa->f()\n"
  468.     expect {
  469.     -re ".* = 1\r\n$prompt $" { incr passcount }
  470.     -re "Cannot invoke functions on this machine.*$prompt $"
  471.         { fail "print pAa->f() FIXME" }
  472.     -re "Structure has no component named f.*$prompt $" {
  473.         setup_xfail "*-*-*"
  474.         fail "print pAa->f()"
  475.     }
  476.     -re ".*$prompt $" { fail "print pAa->f()" }
  477.     timeout { fail "print pAa->f() (timeout)" }
  478.     eof { fail "print pAa->f() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  479.     }
  480.  
  481.     send "print pDe->vg()\n"
  482.     expect {
  483.     -re ".* = 202\r\n$prompt $" { incr passcount }
  484.     -re "Cannot invoke functions on this machine.*$prompt $"
  485.         { fail "print pDe->vg() FIXME" }
  486.     -re "Structure has no component named vg.*$prompt $" {
  487.         setup_xfail "*-*-*"
  488.         fail "print pDe->vg()"
  489.     }
  490.     -re ".*$prompt $" { fail "print pDe->vg()" }
  491.     timeout { fail "print pDe->vg() (timeout)" }
  492.     eof { fail "print pDe->vg() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  493.     }
  494.  
  495.     send "print pADe->vg()\n"
  496.     expect {
  497.     -re ".* = 202\r\n$prompt $" { incr passcount }
  498.     -re "Cannot invoke functions on this machine.*$prompt $"
  499.         { fail "print pADe->vg() FIXME" }
  500.     -re "Structure has no component named vg.*$prompt $" {
  501.         setup_xfail "*-*-*"
  502.         fail "print pADe->vg()"
  503.     }
  504.     -re ".*$prompt $" { fail "print pADe->vg()" }
  505.     timeout { fail "print pADe->vg() (timeout)" }
  506.     eof { fail "print pADe->vg() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  507.     }
  508.  
  509.     send "print pDd->vg()\n"
  510.     expect {
  511.     -re ".* = 101\r\n$prompt $" { incr passcount }
  512.     -re "Cannot invoke functions on this machine.*$prompt $"
  513.         { fail "print pDd->vg() FIXME" }
  514.     -re "Structure has no component named vg.*$prompt $" {
  515.         setup_xfail "*-*-*"
  516.         fail "print pDd->vg()"
  517.     }
  518.     -re ".*$prompt $" { fail "print pDd->vg()" }
  519.     timeout { fail "print pDd->vg() (timeout)" }
  520.     eof { fail "print pDd->vg() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  521.     }
  522.  
  523.     send "print pEe->vvb()\n"
  524.     expect {
  525.     -re ".* = 411\r\n$prompt $" { incr passcount }
  526.     -re "Cannot invoke functions on this machine.*$prompt $"
  527.         { fail "print pEe->vvb() FIXME" }
  528.     -re "Structure has no component named vvb.*$prompt $" {
  529.         setup_xfail "*-*-*"
  530.         fail "print pEe->vvb()"
  531.     }
  532.     -re ".*$prompt $" { fail "print pEe->vvb()" }
  533.     timeout { fail "print pEe->vvb() (timeout)" }
  534.     eof { fail "print pEe->vvb() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  535.     }
  536.  
  537.     send "print pVB->vvb()\n"
  538.     expect {
  539.     -re ".* = 407\r\n$prompt $" { incr passcount }
  540.     -re "Cannot invoke functions on this machine.*$prompt $"
  541.         { fail "print pVb->vvb() FIXME" }
  542.     -re "Structure has no component named vvb.*$prompt $" {
  543.         setup_xfail "*-*-*"
  544.         fail "print pVB->vvb()"
  545.     }
  546.     -re ".*$prompt $" { fail "print pVB->vvb()" }
  547.     timeout { fail "print pVB->vvb() (timeout)" }
  548.     eof { fail "print pVB->vvb() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  549.     }
  550.  
  551.     send "print pBe->vvb()\n"
  552.     expect {
  553.     -re ".* = 411\r\n$prompt $" { incr passcount }
  554.     -re "Cannot invoke functions on this machine.*$prompt $"
  555.         { fail "print pBe->vvb() FIXME" }
  556.     -re "Structure has no component named vvb.*$prompt $" {
  557.         setup_xfail "*-*-*"
  558.         fail "print pBe->vvb()"
  559.     }
  560.     -re ".*$prompt $" { fail "print pBe->vvb()" }
  561.     timeout { fail "print pBe->vvb() (timeout)" }
  562.     eof { fail "print pBe->vvb() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  563.     }
  564.  
  565.     send "print pDe->vvb()\n"
  566.     expect {
  567.     -re ".* = 411\r\n$prompt $" { incr passcount }
  568.     -re "Cannot invoke functions on this machine.*$prompt $"
  569.         { fail "print pDe->vvb() FIXME" }
  570.     -re "Structure has no component named vvb.*$prompt $" {
  571.         setup_xfail "*-*-*"
  572.         fail "print pDe->vvb()"
  573.     }
  574.     -re ".*$prompt $" { fail "print pDe->vvb()" }
  575.     timeout { fail "print pDe->vvb() (timeout)" }
  576.     eof { fail "print pDe->vvb() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  577.     }
  578.  
  579.     send "print pEe->vd()\n"
  580.     expect {
  581.     -re ".* = 282\r\n$prompt $" { incr passcount }
  582.     -re "Cannot invoke functions on this machine.*$prompt $"
  583.         { fail "print pEe->vd() FIXME" }
  584.     -re "Structure has no component named vd.*$prompt $" {
  585.         setup_xfail "*-*-*"
  586.         fail "print pEe->vd()"
  587.     }
  588.     -re ".*$prompt $" { fail "print pEe->vd()" }
  589.     timeout { fail "print pEe->vd() (timeout)" }
  590.     eof { fail "print pEe->vd() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  591.     }
  592.  
  593.     send "print pEe->fvb()\n"
  594.     expect {
  595.     -re ".* = 311\r\n$prompt $" { incr passcount }
  596.     -re "Cannot invoke functions on this machine.*$prompt $"
  597.         { fail "print pEe->fvb() FIXME" }
  598.     -re "Structure has no component named fvb.*$prompt $" {
  599.         setup_xfail "*-*-*"
  600.         fail "print pEe->fvb()"
  601.     }
  602.     -re ".*$prompt $" { fail "print pEe->fvb()" }
  603.     timeout { fail "print pEe->fvb() (timeout)" }
  604.     eof { fail "print pEe->fvb() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  605.     }
  606.  
  607.     send "print pEe->D::vg()\n"
  608.     expect {
  609.     -re ".* = 102\r\n$prompt $" { incr passcount }
  610.     -re "Cannot invoke functions on this machine.*$prompt $"
  611.         { fail "print pEe->D::vg() FIXME" }
  612.     -re "There is no field named vg.*$prompt $" {
  613.         setup_xfail "*-*-*"
  614.         fail "print pEe->D::vg()"
  615.     }
  616.     -re ".*$prompt $" { fail "print pEe->D::vg()" }
  617.     timeout { fail "print pEe->D::vg() (timeout)" }
  618.     eof { fail "print pEe->D::vg() ($GDB dumped core) (FIXME)" ; gdb_start ; return }
  619.     }
  620.  
  621.     if $passcount then {
  622.     pass "$passcount correct virtual function calls"
  623.     }
  624. }
  625.  
  626.  
  627. proc do_tests {} {
  628.     global prms_id
  629.     global bug_id
  630.     global subdir
  631.     global objdir
  632.     global srcdir
  633.     global binfile
  634.     global prompt
  635.  
  636.     set prms_id 0
  637.     set bug_id 0
  638.  
  639.     # Start with a fresh gdb.
  640.  
  641.     gdb_exit
  642.     gdb_start
  643.     gdb_reinitialize_dir $srcdir/$subdir
  644.     gdb_load $objdir/$subdir/$binfile
  645.  
  646.     send "set language c++\n"
  647.     expect -re "$prompt $"
  648.     send "set width 0\n"
  649.     expect -re "$prompt $"
  650.  
  651.     test_ptype_of_classes
  652.  
  653.     if [ runto 'test_calls(void)' ] then {
  654.     test_virtual_calls
  655.     }
  656.  
  657.     if [istarget "a29k-*-udi"] then {
  658.     # FIXME: If PR 2415 is fixed, this is not needed.
  659.     gdb_target_udi
  660.     }
  661. }
  662.  
  663. # Check to see if we have an executable to test.  If not, then either we
  664. # haven't tried to compile one, or the compilation failed for some reason.
  665. # In either case, just notify the user and skip the tests in this file.
  666.  
  667. set binfile "gdbme"
  668. set srcfile $binfile.cc
  669.  
  670. if ![file exists $objdir/$subdir/$binfile] then {
  671.     warning "$binfile does not exist; tests suppressed."
  672. } else {
  673.     do_tests
  674. }
  675.