Subversion Repositories openrisc_me

#

# Solaris on SPARC tests

#

if [istarget sparc*-*-solaris2*] then {

    set x1 0

    set x2 0

    set x3 0

    set x4 0

    set x5 0

    set x6 0

    set testname "addends (part 2)"

    if [gas_test_old "addend.s" "" "addends (part 1)"] then {

        objdump_start_no_subdir "a.out" "-r"

        while 1 {

            # These are what we get using the Solaris assembler.

            expect {

                -re "08 R_SPARC_WDISP22 +foo1\[+\]+0x0+04\[^\n\]*\n"    { incr x1 }

                -re "0c R_SPARC_WDISP22 +foo1\[+\]+0x0+04\[^\n\]*\n"    { incr x2 }

                -re "10 R_SPARC_WDISP22 +foo1\[^\n\]*\n"                { incr x3 }

                -re "14 R_SPARC_WDISP22 +foo1\[^\n\]*\n"                { incr x4 }

                -re "1c R_SPARC_32 +foo1\[^\n\]*\n"                     { incr x5 }

                -re "20 R_SPARC_32 +foo1\[+\]+0x0+04\[^\n\]*\n"         { incr x6 }

                -re "\[^\n\]*\n"                                        { }

                timeout                         { perror "timeout\n"; break }

                eof                             { break }

            }

        }

        objdump_finish

        if [all_ones $x1 $x2 $x3 $x4 $x5 $x6] then {

            pass $testname

        } else {

            fail $testname

        }

    }

}