Subversion Repositories openrisc

# Copyright (C) 2001, 2002 Free Software Foundation, Inc.

# Contributed by Red Hat

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

#

#

# Aix on PowerPC tests

#

proc do_align_test {} {

    set testname "align.s: Alignment of symbols part 1"

    set x0 0

    set x1 0

    set x2 0

    set x3 0

    set x4 0

    set testname "align.s (part 2)"

    if [gas_test_old "align.s" "" "Alignment of symbols part 1"] {

        objdump_start_no_subdir "a.out" "-t"

        while 1 {

            expect {

                -re "AUX val    16 prmhsh 0 snhsh 0 typ 3 algn 2 clss 5 stb 0 snstb 0" { set x0 1 }

                -re "AUX val    32 prmhsh 0 snhsh 0 typ 3 algn 1 clss 5 stb 0 snstb 0" { set x1 1 }

                -re "AUX val    64 prmhsh 0 snhsh 0 typ 3 algn 2 clss 5 stb 0 snstb 0" { set x2 1 }

                -re "AUX val   128 prmhsh 0 snhsh 0 typ 3 algn 3 clss 5 stb 0 snstb 0" { set x3 1 }

                -re "AUX val   256 prmhsh 0 snhsh 0 typ 3 algn 4 clss 5 stb 0 snstb 0" { set x4 1 }

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

                timeout                         { perror "timeout\n"; break }

                eof                             { break }

            }

        }

        objdump_finish

        if [all_ones $x0 $x1 $x2 $x3 $x4] then {

            pass $testname

        } else {

            fail $testname

        }

    }

}

if [istarget powerpc-ibm-aix*] then {

    # Make sure that symbols are correctly aligned

    do_align_test

    run_dump_test "textalign-xcoff-001"

    run_dump_test "textalign-xcoff-002"

}