Subversion Repositories or1k

# Copyright (C) 1992, 1997, 1999 Free Software Foundation, Inc.

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

# Please email any bugs, comments, and/or additions to this file to:

# bug-gdb@prep.ai.mit.edu

# This file was written by Fred Fish. (fnf@cygnus.com)

if $tracelevel then {

        strace $tracelevel

}

if { [skip_cplus_tests] } { continue }

set testfile "cplusfuncs"

set srcfile ${testfile}.cc

set binfile ${objdir}/${subdir}/${testfile}

if { [get_compiler_info $binfile "c++"] } {

    return -1

}

if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {

     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."

}

#

#  Cause gdb to lookup a specific C++ function and print the demangled

#  form.

#

proc info_func { regex demangled } {

    global gdb_prompt

    send_gdb "info function $regex\n"

    gdb_expect {

        -re "File .*:\r\n$demangled\r\n.*$gdb_prompt $" {

            pass "info function for \"$regex\""

        }

        -re "File .*:\r\nclass $demangled\r\n.*$gdb_prompt $" {

            pass "info function for \"$regex\""

        }

        -re ".*$gdb_prompt $" {

            fail "info function for \"$regex\""

        }

        timeout {

            fail "info function for \"$regex\" (timeout)"

        }

    }

}

#

#  Run print &'$arg' on the input arg and verify that we can correctly

#  lookup the fully qualified C++ function.

#  We ignore the return type of the function since we are only interested

#  in the rootname and arguments part.

#

proc print_addr_of { arg } {

    global gdb_prompt

    global hex

    set pattern [string_to_regexp $arg]

    send_gdb "print &'$arg'\n"

    gdb_expect {

        -re ".* = .* $hex <$pattern>\r\n$gdb_prompt $" { pass "print &'$arg'" }

        -re ".*$gdb_prompt $" {

            fail "print &'$arg'"

        }

        timeout {

            fail "print &'$arg' (timeout)"

        }

    }

}

#

# Test name demangling for operators.

#

# The '(' at the end of each regex input pattern is so that we match only

# the one we are looking for.  I.E. "operator&" would match both

# "operator&(foo &)" and "operator&&(foo &)".

#

proc test_lookup_operator_functions {} {

    # These tests don't work for COFF targets; don't even try them

    if [istarget "a29k-*-udi"] then {

        setup_xfail "a29k-*-udi"

        fail "skipping operator tests"

        return

    }

    info_func "operator&&("  "void foo::operator&&\\(foo &\\);"

    info_func "operator&=("  "void foo::operator&=\\(foo &\\);"

    info_func "operator&("  "void foo::operator&\\(foo &\\);"

    info_func "operator/=("  "void foo::operator/=\\(foo &\\);"

    info_func "operator^=("  "void foo::operator.=\\(foo &\\);"

    info_func "operator<<=("  "void foo::operator<<=\\(foo &\\);"

    info_func "operator%=("  "void foo::operator%=\\(foo &\\);"

    info_func "operator-=("  "void foo::operator-=\\(foo &\\);"

    # There doesn't appear to be any way to get GDB to treat '*' as a

    # character to match, rather than as a regex special character.

    setup_xfail "*-*-*"

    info_func "operator\*=("  "void foo::operator\\*=\\(foo &\\);"

    info_func "operator|=("  "void foo::operator\\|=\\(foo &\\);"

    info_func "operator+=("  "void foo::operator.=\\(foo &\\);"

    info_func "operator>>=("  "void foo::operator\>\>=\\(foo &\\);"

    info_func "operator=("  "void foo::operator=\\(foo &\\);"

    info_func "operator()("  "void foo::operator\\(\\)\\(foo &\\);"

    # The function should be "operator," not "operator, ".  (note space)

    # This test will work; I've commented it out because it should not

    # count as a pass, since it is incorrect.  Ian Taylor.

    # info_func "operator, ("  "void foo::operator, \\(foo &\\);"

    setup_xfail "*-*-*"

    info_func "operator,("  "void foo::operator,\\(foo &\\);"

    info_func "operator~("  "void foo::operator~\\(void\\);"

    info_func "operator delete("  "void foo::operator delete\\(void \\*\\)(| static);"

    info_func "operator/("  "void foo::operator/\\(foo &\\);"

    info_func "operator==("  "void foo::operator==\\(foo &\\);"

    info_func "operator^("  "void foo::operator\\^\\(foo &\\);"

    info_func "operator>=("  "void foo::operator>=\\(foo &\\);"

    info_func "operator>("  "void foo::operator>\\(foo &\\);"

    info_func "operator<=("  "void foo::operator<=\\(foo &\\);"

    info_func "operator<<("  "void foo::operator<<\\(foo &\\);"

    info_func "operator<("  "void foo::operator<\\(foo &\\);"

    info_func "operator%("  "void foo::operator%\\(foo &\\);"

    info_func "operator-("  "void foo::operator-\\(foo &\\);"

    # There doesn't appear to be anyway to get '*' treated as a character

    # to match, rather than as a regex special character.

    setup_xfail "*-*-*"

    info_func "operator\*("  "void foo::operator\\*\\(foo &\\);"

    info_func "operator--("  "void foo::operator--\\(int\\);"

    info_func "operator!=("  "void foo::operator!=\\(foo &\\);"

    info_func "operator!("  "void foo::operator!\\(void\\);"

    info_func "operator new("  "void \\*foo::operator new\\(.*\\)(| static);"

    info_func "operator||("  "void foo::operator\\|\\|\\(foo &\\);"

    info_func "operator char \\*("  "char \\*foo::operator char \\*\\(void\\);"

    info_func "operator int("  "int foo::operator int\\(void\\);"

    info_func "operator|("  "void foo::operator\\|\\(foo &\\);"

    info_func "operator+("  "void foo::operator\\+\\(foo &\\);"

    info_func "operator++("  "void foo::operator\\+\\+\\(int\\);"

    info_func "operator->("  "foo \\*foo::operator->\\(void\\);"

    info_func "operator->\\*("  "void foo::operator->\\*\\(foo &\\);"

    info_func "operator>>("  "void foo::operator\>\>\\(foo &\\);"

    # GDB says "`operator \[\](' not supported".  I don't know why.

    setup_xfail "*-*-*"

    info_func "operator\\\[\\\](" "void foo::operator\\\[\\\]\\(foo &\\);"

    # But this works, for some reason.

    info_func ".perator\\\[\\\](" "void foo::operator\\\[\\\]\\(foo &\\);"

}

proc test_paddr_operator_functions {} {

    global hex

    global hp_aCC_compiler

    print_addr_of "foo::operator&&(foo &)"

    print_addr_of "foo::operator&=(foo &)"

    print_addr_of "foo::operator&(foo &)"

    print_addr_of "foo::operator/=(foo &)"

    print_addr_of "foo::operator^=(foo &)"

    print_addr_of "foo::operator<<=(foo &)"

    print_addr_of "foo::operator%=(foo &)"

    print_addr_of "foo::operator-=(foo &)"

    print_addr_of "foo::operator*=(foo &)"

    print_addr_of "foo::operator|=(foo &)"

    print_addr_of "foo::operator+=(foo &)"

    print_addr_of "foo::operator>>=(foo &)"

    print_addr_of "foo::operator=(foo &)"

    print_addr_of "foo::operator()(foo &)"

    print_addr_of "foo::operator, (foo &)"

    print_addr_of "foo::operator~(void)"

    if { !$hp_aCC_compiler } {

        print_addr_of "foo::operator delete(void *)"

    } else {

        gdb_test "print &'foo::operator delete(void *) static'" \

            " = .*(0x\[0-9a-f\]+|) "

    }

    print_addr_of "foo::operator/(foo &)"

    print_addr_of "foo::operator==(foo &)"

    print_addr_of "foo::operator^(foo &)"

    print_addr_of "foo::operator>=(foo &)"

    print_addr_of "foo::operator>(foo &)"

    print_addr_of "foo::operator<=(foo &)"

    print_addr_of "foo::operator<<(foo &)"

    print_addr_of "foo::operator<(foo &)"

    print_addr_of "foo::operator%(foo &)"

    print_addr_of "foo::operator-(foo &)"

    print_addr_of "foo::operator*(foo &)"

    print_addr_of "foo::operator--(int)"

    print_addr_of "foo::operator!=(foo &)"

    print_addr_of "foo::operator!(void)"

    gdb_test "print &'foo::operator new'" \

        " = .* $hex "

    print_addr_of "foo::operator||(foo &)"

    print_addr_of "foo::operator char *(void)"

    print_addr_of "foo::operator int(void)"

    print_addr_of "foo::operator|(foo &)"

    print_addr_of "foo::operator+(foo &)"

    print_addr_of "foo::operator++(int)"

    print_addr_of "foo::operator->(void)"

    print_addr_of "foo::operator->*(foo &)"

    print_addr_of "foo::operator>>(foo &)"

    gdb_test "print &'foo::operator\[\](foo &)'" \

        " = .*0x\[0-9a-f\]+ "

}

#

# Test overloaded functions (1 arg).

#

proc test_paddr_overloaded_functions {} {

    print_addr_of "overload1arg(signed char)"

    print_addr_of "overload1arg(unsigned char)"

    print_addr_of "overload1arg(unsigned int)"

    print_addr_of "overload1arg(unsigned long)"

    print_addr_of "overload1arg(unsigned short)"

    print_addr_of "overload1arg(char)"

    print_addr_of "overload1arg(double)"

    print_addr_of "overload1arg(float)"

    print_addr_of "overload1arg(int)"

    print_addr_of "overload1arg(long)"

    print_addr_of "overload1arg(short)"

    print_addr_of "overload1arg(void)"

    print_addr_of "overloadargs(int)"

    print_addr_of "overloadargs(int, int)"

    print_addr_of "overloadargs(int, int, int)"

    print_addr_of "overloadargs(int, int, int, int)"

    print_addr_of "overloadargs(int, int, int, int, int)"

    print_addr_of "overloadargs(int, int, int, int, int, int)"

    print_addr_of "overloadargs(int, int, int, int, int, int, int)"

    print_addr_of "overloadargs(int, int, int, int, int, int, int, int)"

    print_addr_of "overloadargs(int, int, int, int, int, int, int, int, int)"

    print_addr_of "overloadargs(int, int, int, int, int, int, int, int, int, int)"

    print_addr_of "overloadargs(int, int, int, int, int, int, int, int, int, int, int)"

}

proc test_paddr_hairy_functions {} {

    print_addr_of "hairyfunc1(int)"

    print_addr_of "hairyfunc2(int (*)(char *))"

    print_addr_of "hairyfunc3(int (*)(short (*)(long *)))"

    print_addr_of "hairyfunc4(int (*)(short (*)(char *)))"

    print_addr_of "hairyfunc5(int (*(*)(char *))(long))"

    print_addr_of "hairyfunc6(int (*(*)(int *))(long))"

    print_addr_of "hairyfunc7(int (*(*)(int (*)(char *)))(long))"

}

proc do_tests {} {

    global prms_id

    global bug_id

    global subdir

    global objdir

    global srcdir

    global binfile

    global gdb_prompt

    set prms_id 0

    set bug_id 0

    # Start with a fresh gdb.

    gdb_exit

    gdb_start

    gdb_reinitialize_dir $srcdir/$subdir

    gdb_load $binfile

    send_gdb "set language c++\n"

    gdb_expect -re "$gdb_prompt $"

    send_gdb "set width 0\n"

    gdb_expect -re "$gdb_prompt $"

    # Get the debug format for the compiled test case.  If that

    # format is DWARF 1 then just skip all the tests since none of

    # them will pass.

    if [ runto_main] then {

        get_debug_format

        if [ setup_xfail_format "DWARF 1" ] then {

            fail "C++ tests skipped due to limited C++ support in DWARF 1 debug format"

            return

        }

        clear_xfail "*-*-*"

    }

    test_paddr_overloaded_functions

    test_paddr_operator_functions

    test_paddr_hairy_functions

    test_lookup_operator_functions

}

do_tests