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.t21 / cplusfuncs.exp < prev    next >
Encoding:
Text File  |  1993-05-12  |  12.5 KB  |  382 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. # Variables to keep track of number of passes, number of failures, and
  27. # a limit on the number of failures.  We periodically test to see how
  28. # many failures have occurred, and abandon a particular test if the
  29. # maximum has been exceeded.  Note that exactly how many failures are
  30. # allowed depends on the setting of max_dem_failcount, how often we
  31. # test it, and exactly where the errors occur with respect to the tests.
  32.  
  33. set dem_passcount 0
  34. set dem_failcount 0
  35. set max_dem_failcount 20
  36.  
  37. #
  38. #  Cause gdb to lookup a specific C++ function and print the demangled
  39. #  form.
  40. #
  41.  
  42. proc info_func { regex demangled } {
  43.     global prompt
  44.     global dem_passcount
  45.     global dem_failcount
  46.     global xfail_flag
  47.  
  48.     send "info function $regex\n"
  49.     expect {
  50.     -re "File .*:\r\n$demangled\r\n$prompt $" {
  51.         incr dem_passcount
  52.         if $xfail_flag then { pass "info function for \"$regex\"" }
  53.     }
  54.     -re ".*$prompt $" {
  55.         incr dem_failcount
  56.         fail "info function for \"$regex\""
  57.     }
  58.     timeout {
  59.         incr dem_failcount
  60.         fail "info function for \"$regex\" (timeout)"
  61.     }
  62.     }
  63. }
  64.  
  65. #
  66. #  Run print &'$arg' on the input arg and verify that we can correctly
  67. #  lookup the fully qualified C++ function.
  68. #  We ignore the return type of the function since we are only interested
  69. #  in the rootname and arguments part.
  70. #
  71.  
  72. proc print_addr_of { arg } {
  73.     global prompt
  74.     global dem_passcount
  75.     global dem_failcount
  76.     global hex
  77.     global xfail_flag
  78.  
  79.     send "print &'$arg'\n"
  80.     expect {
  81.     -re ".* = .* $hex <" {}
  82.     -re ".*$prompt $" {
  83.         incr dem_failcount ; fail "print &'$arg'" ; return
  84.     }
  85.     timeout {
  86.         incr dem_failcount ; fail "print &'$arg' (timeout)" ; return
  87.     }
  88.     }
  89.     expect {
  90.     "$arg" {}
  91.     -re ".*$prompt $" {
  92.         incr dem_failcount ; fail "print &'$arg'" ; return
  93.     }
  94.     timeout {
  95.         incr dem_failcount ; fail "print &'$arg' (timeout)" ; return
  96.     }
  97.     }
  98.     expect {
  99.     -re ">\r\n$prompt $" {}
  100.     -re ".*$prompt $" {
  101.         incr dem_failcount ; fail "print &'$arg'" ; return
  102.     }
  103.     timeout {
  104.         incr dem_failcount ; fail "print &'$arg' (timeout)" ; return
  105.     }
  106.     }
  107.     incr dem_passcount
  108.     if $xfail_flag then { pass "print &'$arg'" }
  109. }
  110.  
  111. #
  112. # Test name demangling for operators.
  113. #
  114. # The '(' at the end of each regex input pattern is so that we match only
  115. # the one we are looking for.  I.E. "operator&" would match both
  116. # "operator&(foo &)" and "operator&&(foo &)".
  117. #
  118.  
  119. proc test_lookup_operator_functions {} {
  120.     global dem_passcount
  121.     global dem_failcount
  122.     global max_dem_failcount
  123.  
  124.     set dem_passcount 0
  125.     set dem_failcount 0
  126.  
  127.     # These tests don't work for COFF targets; don't even try them
  128.     if [istarget "a29k-*-udi"] then {
  129.     setup_xfail "a29k-*-udi"
  130.     fail "skipping operator tests"
  131.     return
  132.     }
  133.  
  134.     info_func "operator&&("  "void foo::operator&&\(foo &\);"
  135.     info_func "operator&=("  "void foo::operator&=\(foo &\);"
  136.     info_func "operator&("  "void foo::operator&\(foo &\);"
  137.     info_func "operator/=("  "void foo::operator/=\(foo &\);"
  138.     info_func "operator^=("  "void foo::operator\^=\(foo &\);"
  139.     info_func "operator<<=("  "void foo::operator<<=\(foo &\);"
  140.     info_func "operator%=("  "void foo::operator%=\(foo &\);"
  141.     info_func "operator-=("  "void foo::operator-=\(foo &\);"
  142.  
  143.     # There doesn't appear to be anyway to get '*' treated as a character
  144.     # to match, rather than as a regex special character.
  145.     setup_xfail "*-*-*"
  146.     info_func "operator\*=("  "void foo::operator\*=\(foo &\);"
  147.  
  148.     info_func "operator|=("  "void foo::operator\|=\(foo &\);"
  149.     info_func "operator+=("  "void foo::operator\+=\(foo &\);"
  150.     info_func "operator>>=("  "void foo::operator>>=\(foo &\);"
  151.     info_func "operator=("  "void foo::operator=\(foo &\);"
  152.     info_func "operator()("  "void foo::operator\(\)\(foo &\);"
  153.  
  154.     # The function should be "operator," not "operator, ".  (note space)
  155.     # This test will work; I've commented it out because it should not
  156.     # count as a pass, since it is incorrect.  Ian Taylor.
  157.     # info_func "operator, ("  "void foo::operator, \(foo &\);"
  158.     setup_xfail "*-*-*"
  159.     info_func "operator,("  "void foo::operator,\(foo &\);"
  160.  
  161.     info_func "operator~("  "void foo::operator~\(void\);"
  162.     info_func "operator delete("  "void foo::operator delete\(void \*\);"
  163.     info_func "operator/("  "void foo::operator/\(foo &\);"
  164.     info_func "operator==("  "void foo::operator==\(foo &\);"
  165.     info_func "operator^("  "void foo::operator\^\(foo &\);"
  166.  
  167.     if $dem_failcount>$max_dem_failcount then {
  168.     fail "remaining tests suppressed after $dem_failcount failures..."
  169.     return
  170.     }
  171.  
  172.     info_func "operator>=("  "void foo::operator>=\(foo &\);"
  173.     info_func "operator>("  "void foo::operator>\(foo &\);"
  174.     info_func "operator<=("  "void foo::operator<=\(foo &\);"
  175.     info_func "operator<<("  "void foo::operator<<\(foo &\);"
  176.     info_func "operator<("  "void foo::operator<\(foo &\);"
  177.     info_func "operator%("  "void foo::operator%\(foo &\);"
  178.     info_func "operator-("  "void foo::operator-\(foo &\);"
  179.  
  180.     # There doesn't appear to be anyway to get '*' treated as a character
  181.     # to match, rather than as a regex special character.
  182.     setup_xfail "*-*-*"
  183.     info_func "operator\*("  "void foo::operator\*\(foo &\);"
  184.  
  185.     info_func "operator--("  "void foo::operator--\(int\);"
  186.     info_func "operator!=("  "void foo::operator!=\(foo &\);"
  187.     info_func "operator!("  "void foo::operator!\(void\);"
  188.     info_func "operator new("  "void \*foo::operator new\(int\);"
  189.     info_func "operator||("  "void foo::operator\|\|\(foo &\);"
  190.     info_func "operator char \*("  "char \*foo::operator char \*\(void\);"
  191.     info_func "operator int("  "int foo::operator int\(void\);"
  192.     info_func "operator|("  "void foo::operator\|\(foo &\);"
  193.     info_func "operator+("  "void foo::operator\+\(foo &\);"
  194.     info_func "operator++("  "void foo::operator\+\+\(int\);"
  195.     info_func "operator->("  "void foo::operator->\(void\);"
  196.     info_func "operator->\*("  "void foo::operator->\*\(foo &\);"
  197.     info_func "operator>>("  "void foo::operator>>\(foo &\);"
  198.  
  199.     # There doesn't appear to be anyway to get '[' and ']' treated as
  200.     # characters to match, rather than as regex special characters.
  201.     setup_xfail "*-*-*"
  202.     info_func "operator\\\[\\\]("  "void foo::operator\\\[\\\]\(foo &\);"
  203.  
  204.     if $dem_passcount then {
  205.     pass "$dem_passcount correct rootname operator function lookups"
  206.     }
  207. }
  208.  
  209.  
  210. proc test_paddr_operator_functions {} {
  211.     global dem_passcount
  212.     global dem_failcount
  213.     global max_dem_failcount
  214.  
  215.     set dem_passcount 0
  216.     set dem_failcount 0
  217.  
  218.     print_addr_of "foo::operator&&(foo &)"
  219.     print_addr_of "foo::operator&=(foo &)"
  220.     print_addr_of "foo::operator&(foo &)"
  221.     print_addr_of "foo::operator/=(foo &)"
  222.     print_addr_of "foo::operator^=(foo &)"
  223.     print_addr_of "foo::operator<<=(foo &)"
  224.     print_addr_of "foo::operator%=(foo &)"
  225.     print_addr_of "foo::operator-=(foo &)"
  226.     print_addr_of "foo::operator*=(foo &)"
  227.     print_addr_of "foo::operator|=(foo &)"
  228.     print_addr_of "foo::operator+=(foo &)"
  229.     print_addr_of "foo::operator>>=(foo &)"
  230.     print_addr_of "foo::operator=(foo &)"
  231.     print_addr_of "foo::operator()(foo &)"
  232.     print_addr_of "foo::operator, (foo &)"
  233.     print_addr_of "foo::operator~(void)"
  234.     print_addr_of "foo::operator delete(void *)"
  235.     print_addr_of "foo::operator/(foo &)"
  236.     print_addr_of "foo::operator==(foo &)"
  237.  
  238.     if $dem_failcount>$max_dem_failcount then {
  239.     fail "remaining tests suppressed after $dem_failcount failures..."
  240.     return
  241.     }
  242.  
  243.     print_addr_of "foo::operator^(foo &)"
  244.     print_addr_of "foo::operator>=(foo &)"
  245.     print_addr_of "foo::operator>(foo &)"
  246.     print_addr_of "foo::operator<=(foo &)"
  247.     print_addr_of "foo::operator<<(foo &)"
  248.     print_addr_of "foo::operator<(foo &)"
  249.     print_addr_of "foo::operator%(foo &)"
  250.     print_addr_of "foo::operator-(foo &)"
  251.     print_addr_of "foo::operator*(foo &)"
  252.     print_addr_of "foo::operator--(int)"
  253.     print_addr_of "foo::operator!=(foo &)"
  254.     print_addr_of "foo::operator!(void)"
  255.     print_addr_of "foo::operator new(int)"
  256.     print_addr_of "foo::operator||(foo &)"
  257.     print_addr_of "foo::operator char *(void)"
  258.     print_addr_of "foo::operator int(void)"
  259.     print_addr_of "foo::operator|(foo &)"
  260.     print_addr_of "foo::operator+(foo &)"
  261.     print_addr_of "foo::operator++(int)"
  262.     print_addr_of "foo::operator->(void)"
  263.     print_addr_of "foo::operator->*(foo &)"
  264.     print_addr_of "foo::operator>>(foo &)"
  265.     print_addr_of "foo::operator\[\](foo &)"
  266.  
  267.     if $dem_passcount then {
  268.     pass "$dem_passcount correct fully qualified operator function lookups"
  269.     }
  270. }
  271.  
  272. #
  273. # Test overloaded functions (1 arg).
  274. #
  275.  
  276. proc test_paddr_overloaded_functions {} {
  277.     global dem_passcount
  278.     global dem_failcount
  279.     global max_dem_failcount
  280.  
  281.     set dem_passcount 0
  282.     set dem_failcount 0
  283.  
  284.     print_addr_of "overload1arg(signed char)"
  285.     print_addr_of "overload1arg(unsigned char)"
  286.     print_addr_of "overload1arg(unsigned int)"
  287.     print_addr_of "overload1arg(unsigned long)"
  288.     print_addr_of "overload1arg(unsigned short)"
  289.     print_addr_of "overload1arg(char)"
  290.     print_addr_of "overload1arg(double)"
  291.     print_addr_of "overload1arg(float)"
  292.     print_addr_of "overload1arg(int)"
  293.     print_addr_of "overload1arg(long)"
  294.     print_addr_of "overload1arg(short)"
  295.     print_addr_of "overload1arg(void)"
  296.  
  297.     if $dem_failcount>$max_dem_failcount then {
  298.     fail "remaining tests suppressed after $dem_failcount failures..."
  299.     return
  300.     }
  301.  
  302.     print_addr_of "overloadargs(int)"
  303.     print_addr_of "overloadargs(int, int)"
  304.     print_addr_of "overloadargs(int, int, int)"
  305.     print_addr_of "overloadargs(int, int, int, int)"
  306.     print_addr_of "overloadargs(int, int, int, int, int)"
  307.     print_addr_of "overloadargs(int, int, int, int, int, int)"
  308.     print_addr_of "overloadargs(int, int, int, int, int, int, int)"
  309.     print_addr_of "overloadargs(int, int, int, int, int, int, int, int)"
  310.     print_addr_of "overloadargs(int, int, int, int, int, int, int, int, int)"
  311.     print_addr_of "overloadargs(int, int, int, int, int, int, int, int, int, int)"
  312.     print_addr_of "overloadargs(int, int, int, int, int, int, int, int, int, int, int)"
  313.  
  314.     if $dem_passcount then {
  315.     pass "$dem_passcount correct fully qualified overloaded function lookups"
  316.     }
  317. }
  318.  
  319. proc test_paddr_hairy_functions {} {
  320.     global dem_passcount
  321.     global dem_failcount
  322.     global max_dem_failcount
  323.  
  324.     set dem_passcount 0
  325.     set dem_failcount 0
  326.  
  327.     print_addr_of "hairyfunc1(int)"
  328.     print_addr_of "hairyfunc2(int (*)(char *))"
  329.     print_addr_of "hairyfunc3(int (*)(short (*)(long *)))"
  330.     print_addr_of "hairyfunc4(int (*)(short (*)(char *)))"
  331.     print_addr_of "hairyfunc5(int (*(*)(char *))(long))"
  332.     print_addr_of "hairyfunc6(int (*(*)(int *))(long))"
  333.     print_addr_of "hairyfunc7(int (*(*)(int (*)(char *)))(long))"
  334.  
  335.     if $dem_passcount then {
  336.     pass "$dem_passcount correct fully qualified hairy function lookups"
  337.     }
  338. }
  339.  
  340. proc do_tests {} {
  341.     global prms_id
  342.     global bug_id
  343.     global subdir
  344.     global objdir
  345.     global srcdir
  346.     global binfile
  347.     global prompt
  348.  
  349.     set prms_id 0
  350.     set bug_id 0
  351.  
  352.     # Start with a fresh gdb.
  353.  
  354.     gdb_exit
  355.     gdb_start
  356.     gdb_reinitialize_dir $srcdir/$subdir
  357.     gdb_load $objdir/$subdir/$binfile
  358.  
  359.     send "set language c++\n"
  360.     expect -re "$prompt $"
  361.     send "set width 0\n"
  362.     expect -re "$prompt $"
  363.  
  364.     test_paddr_overloaded_functions
  365.     test_paddr_operator_functions
  366.     test_paddr_hairy_functions
  367.     test_lookup_operator_functions
  368. }
  369.  
  370. # Check to see if we have an executable to test.  If not, then either we
  371. # haven't tried to compile one, or the compilation failed for some reason.
  372. # In either case, just notify the user and skip the tests in this file.
  373.  
  374. set binfile "gdbme"
  375. set srcfile $binfile.cc
  376.  
  377. if ![file exists $objdir/$subdir/$binfile] then {
  378.     warning "$binfile does not exist; tests suppressed."
  379. } else {
  380.     do_tests
  381. }
  382.