Subversion Repositories openrisc

# Copyright (C) 1993, 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2007

# 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.

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

# dejagnu@gnu.org

# Written by the Center for Software Science at the University of Utah

# and by Cygnus Support.

proc do_string_tests {} {

    set testname "stringer.s: Test embedded quotes and octal escapes in strings"

    set x 0

    gas_start "stringer.s" "-al"

    # Instead of having a variable for each match string just increment the

    # total number of matches seen.  That's simpler when testing large numbers

    # of instructions (as these tests to).

    while 1 {

        expect {

            -re "^ +\[0-9\]+ 0000 23696E63\[^\n\]*\n"   { set x [expr $x+1] }

            -re "^ +\[0-9\]+      6C756465\[^\n\]*\n"   { set x [expr $x+1] }

            -re "^ +\[0-9\]+      6B2E6465\[^\n\]*\n"   { set x [expr $x+1] }

            -re "^ +\[0-9\]+      66220A00\[^\n\]*\n"   { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 0014 09307831\[^\n\]*\n"   { set x [expr $x+1] }

            -re "^ +\[0-9\]+      3233\[^\n\]*\n"       { set x [expr $x+1] }

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

            timeout                             { perror "timeout\n"; break }

            eof                                 { break }

        }

    }

    # This was intended to do any cleanup necessary.  It kinda looks like it

    # isn't needed, but just in case, please keep it in for now.

    gas_finish

    # Did we find what we were looking for?  If not, flunk it.

    if [expr $x==6] then { pass $testname } else { fail $testname }

}

proc do_lsel_test {} {

    set testname "lselbugs.s: lselbug"

    set x 0

    gas_start "lselbug.s" "-al"

    # Make sure we correctly handle field selectors.

    while 1 {

        expect {

            -re "^ +\[0-9\]+ 0000 22A04000\[^\n\]*\n"   { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 0004 36B50100\[^\n\]*\n"   { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 0008 22A04000\[^\n\]*\n"   { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 000c 36B50100\[^\n\]*\n"   { set x [expr $x+1] }

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

            timeout                             { perror "timeout\n"; break }

            eof                                 { break }

        }

    }

    # This was intended to do any cleanup necessary.  It kinda looks like it

    # isn't needed, but just in case, please keep it in for now.

    gas_finish

    # Did we find what we were looking for?  If not, flunk it.

    if [expr $x==4] then { pass $testname } else { fail $testname }

}

proc do_valid_align_tests {} {

    set testname "align1.s: valid alignment tests"

    set x 0

    gas_start "align1.s" "-al"

    # Make sure we correctly handle field selectors.

    while 1 {

        expect {

            -re "^ +\[0-9\]+ 0000 08000240\[^\n\]*\n"   { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 0008 08000240\[^\n\]*\n"   { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 1000 08000240\[^\n\]*\n"   { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 0000\[^\n\]*BLOCK\[^\n\]*1024\[^\n\]*\n"

                { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 0400\[^\n\]*BLOCK\[^\n\]*1024\[^\n\]*\n"

                { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 0800\[^\n\]*BLOCK\[^\n\]*4\[^\n\]*\n"

                { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 0804\[^\n\]*ALIGN\[^\n\]*8\[^\n\]*\n"

                { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 0808\[^\n\]*BLOCK\[^\n\]*30\[^\n\]*\n"

                { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 0826\[^\n\]*ALIGN\[^\n\]*4\[^\n\]*\n"

                { set x [expr $x+1] }

            -re "^ +\[0-9\]+ 0828\[^\n\]*BLOCK\[^\n\]*4\[^\n\]*\n"

                { set x [expr $x+1] }

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

            timeout                             { perror "timeout\n"; break }

            eof                                 { break }

        }

    }

    # This was intended to do any cleanup necessary.  It kinda looks like it

    # isn't needed, but just in case, please keep it in for now.

    gas_finish

    # Did we find what we were looking for?  If not, flunk it.

    if [expr $x==10] then { pass $testname } else { fail $testname }

}

if [istarget hppa*-*-*] then {

    if { ![istarget hppa*-*-linux*]

         && ![istarget hppa*-*-netbsd*] } {

        # GAS-2.0 does not always parse ! as a line separator when it should.

        setup_xfail hppa*-*-*

    }

    gas_test "linesepbug.s" "" "" "line separator bug"

    # Make sure GAS accepts syntax for accessing static data.

    gas_test "global.s" "" "" "check for sym-\$global\$ acceptance"

    # GAS-2.0 (and 1.36 for that matter) can not handle a .proc which

    # has no label before it.

    gas_test "procbug.s" "" "" "Label following .proc"

    # One is required to explicitly IMPORT any non-local symbol used

    # in an assembly file.  Make sure we give an error if we use

    # an undefined symbol.

    setup_xfail hppa*-*-*

    gas_test_error "undefbug.s" "" "Check for error when using undefined symbol"

    # This file has code and assembler directives before switching into any

    # space/subspace pair.  This should report an error for SOM (it is not

    # an error for ELF.  The file also has mismatched entry/exit and

    # proc/procend pairs which are errors for both SOM and ELF.

    gas_test_error "nosubspace.s" "" "Check for error(s) in input file "

    # This file should return errors for both the ENTRY_GR and ENTRY_FR

    # directives (they are out-of-range)

    gas_test_error "entrybug.s" "" "Check for error on entry_gr and entry_fr"

    # Make sure embedded quotes and octal escapes in strings work

    do_string_tests

    # Make sure we do not die on a .version directive

    gas_test "versionbug.s" "" "" ".version directive"

    # Make sure we give an error on a bogus .space directive.

    # recent version of gas2 went into infinite loops printing

    # errors on this test.

    gas_test_error "spacebug.s" "" "Check for error on bogus .space directive"

    # GAS should give an error for this test.

    gas_test_error "calldatabug.s" "" "Check for invalid aguments on .call"

    # Old versions of gas incorrectly gave errors on some valid .EXPORT lines

    gas_test "exportbug.s" "" "" "syntax check for an old .EXPORT bug"

    # Old versions of gas choked on this file for some reason

    gas_test "fixup7bug.s" "" "" "check for old \"fixup7\" gas bug"

    # Test an L% selector parsing bug which existed in gas-1.36

    do_lsel_test

    # First check how some valid alignments are handled.

    do_valid_align_tests

    # Now check to make sure an invalid argument is flagged as an error.

    gas_test_error "align2.s" "" "Check for error on bogus argument to .align"

    # GAS can't handle upper bound for a PA .block[z] directive

    setup_xfail hppa*-*-*

    gas_test "block1.s" "" "" "Check min/max values for .block"

    # Now check for an invalid argument

    gas_test_error "block2.s" "" "Check for error on bogus argument to .block"

    # GAS-1.36 choked on this file.

    # FIXME.  Should check relocations made for this test!

    gas_test "exprbug.s" "" "" "Check for sym1-sym2 acceptance"

    # Bad things happen in the PA ELF backend (others too?) if a non-default

    # section is created...

    setup_xfail "hppa*-*-*elf*" "hppa*-*-linux*" "hppa*64*-*-*"

    gas_test "ssbug.s" "" "" "Check for acceptance of non-default subspaces"

    # To be compatable with certain "features" of the HP compiler

    # non-existant registers should default to %r0.

    gas_test "defbug.s" "" "" "Missing register should default to %%r0"

    # Make sure GAS understands a reasonable set of standard predefined

    # registers.  eg %rp, %dp, %sp, etc.

    gas_test "stdreg.s" "" "" "Test standard predefined registers"

    # Make sure GAS will accept a label without a colon.

    setup_xfail "hppa*-*-linux*"

    gas_test "labelbug.s" "" "" "Test label without colon"

    # Make sure we grok # line directives.

    gas_test "appbug.s" "" "" "Test acceptance of #line directives"

    # Make sure we give errors if a floating point format is specified

    # for an xmpyu instruction (integer multiple)

    gas_test_error "xmpyubug.s" "" "Check for error on bogus argument to xmpyu"

    # Make sure gas handles various kinds of .reg pseudo-ops

    gas_test "regpopbug.s" "" "" "Test for bugs in .reg pseudo-op"

    # Check some bugs that have appeared in parsing .callinfo directives

    gas_test "callinfobug.s" "" "" "Test for bugs in .callinfo directive"

    # Check for bogus registers in single precision fmpyadd/fmpysub

    # instructions

    gas_test_error "badfmpyadd.s" "" "Check for error on bad fmpyadd insn"

    # Make sure we grok spaces in directives.

    gas_test "space.s" "" "" "Test acceptance of spaces in directives"

}