OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gas/] [testsuite/] [gas/] [ppc/] [aix.exp] - Rev 816

Compare with Previous | Blame | View Log

# 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"
}

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.