X-Git-Url: http://review.tizen.org/git/?a=blobdiff_plain;f=gas%2Ftestsuite%2Fgas%2Fmips%2Fmips.exp;h=ad11f0225ec6cb60a74961db618eafcd9f002c92;hb=ce70d90a3e5e00fd49b46164a43e3dfbcf1cf404;hp=ae0276d7d18a962966b975d03733af648da023b6;hpb=8b082fb134d844804676e8a0f5ab08738952793c;p=platform%2Fupstream%2Fbinutils.git diff --git a/gas/testsuite/gas/mips/mips.exp b/gas/testsuite/gas/mips/mips.exp index ae0276d..ad11f02 100644 --- a/gas/testsuite/gas/mips/mips.exp +++ b/gas/testsuite/gas/mips/mips.exp @@ -85,7 +85,7 @@ proc mips_arch_init {} { global mips_arches - # Catch becuase the variable won't be set the first time through. + # Catch because the variable won't be set the first time through. catch {unset mips_arches} } @@ -146,6 +146,19 @@ proc mips_arch_create {arch gprsize extends props as_flags objdump_flags } } +# mips_arch_destroy ARCH +# +# The opposite of the above. This function removes an entry from +# the architecture data array, for the architecture or CPU named ARCH. + +proc mips_arch_destroy {arch} { + global mips_arches + + if { [info exists mips_arches($arch)] } { + unset mips_arches($arch) + } +} + # mips_arch_list_all # # This function returns the list of all names of entries in the @@ -181,9 +194,12 @@ proc mips_arch_displayname {arch} { # mips_arch_properties ARCH (optional:) INCLUDE_GPRSIZE # # This function returns the property list associated with ARCH in the -# architecture data array. If INCLUDE_GPRSIZE is non-zero, an additional -# "gpr32" or "gpr64" property will be returned as part of the list based -# on the architecture's GPR size. +# architecture data array, including the "canonical" target name as the +# first element. +# +# If INCLUDE_GPRSIZE is non-zero, an additional "gpr32" or "gpr64" +# property will be returned as part of the list based on the +# architecture's GPR size. proc mips_arch_properties {arch {include_gprsize 1}} { array set archdata [mips_arch_data $arch] set props $archdata(props) @@ -270,8 +286,31 @@ proc mips_arch_list_matching {args} { # # Invoke "run_dump_test" for test NAME, with extra assembler and # disassembler flags to test architecture ARCH. +# +# You can override the expected output for particular architectures +# and file formats. The possible test names are, in order of preference: +# +# 1. CARCH@FORMAT@NAME.d +# 2. CARCH@NAME.d +# 3. FORMAT@NAME.d +# 4. NAME.d +# +# where CARCH is the "canonical" name of architecture ARCH as recorded +# in its associated property list, and where FORMAT is the target's +# file format (one of "elf", "ecoff" or "aout"). proc run_dump_test_arch { name arch } { - global subdir + upvar elf elf ecoff ecoff aout aout + global subdir srcdir + + set format [expr { $elf ? "elf" : $ecoff ? "ecoff" : "aout" }] + set proparch [lindex [mips_arch_properties $arch 0] 0] + foreach prefix [list ${proparch}@${format}@ ${proparch}@ ${format}@] { + set archname ${prefix}${name} + if { [file exists "$srcdir/$subdir/${archname}.d"] } { + set name $archname + break + } + } if [catch {run_dump_test $name \ "{name {([mips_arch_displayname $arch])}} @@ -287,32 +326,12 @@ proc run_dump_test_arch { name arch } { # Invoke "run_dump_test_arch" for test NAME, for each architecture # listed in ARCH_LIST. proc run_dump_test_arches { name arch_list } { + upvar elf elf ecoff ecoff aout aout foreach arch $arch_list { run_dump_test_arch "$name" "$arch" } } -# run_list_test NAME OPTS (optional): TESTNAME -# -# Assemble the file "NAME.d" and compare the assembler standard error -# output against the regular expressions given in the file "NAME.l". -# The assembler is passed the flags given in OPTS. If TESTNAME is -# provided, it will be used as the name of the test. -proc run_list_test { name opts {testname {}} } { - global srcdir subdir - if { [string length $testname] == 0 } then { - set testname "MIPS $name" - } - set file $srcdir/$subdir/$name - gas_run ${name}.s $opts ">&dump.out" - if { [regexp_diff "dump.out" "${file}.l"] } then { - fail $testname - verbose "output is [file_contents "dump.out"]" 2 - return - } - pass $testname -} - # run_list_test_arch NAME OPTS ARCH # # Invoke "run_list_test" for test NAME with options OPTS, with extra @@ -370,6 +389,8 @@ mips_arch_create mips64r2 64 mips64 { mips32r2 ror } \ { -march=mips64r2 -mtune=mips64r2 } \ { -mmips:isa64r2 } \ { mipsisa64r2-*-* mipsisa64r2el-*-* } +mips_arch_create mips16 32 {} {} \ + { -march=mips1 -mips16 } { -mmips:16 } mips_arch_create r3000 32 mips1 {} \ { -march=r3000 -mtune=r3000 } { -mmips:3000 } mips_arch_create r3900 32 mips1 { gpr_ilocks } \ @@ -382,6 +403,11 @@ mips_arch_create vr5400 64 mips4 { ror } \ mips_arch_create sb1 64 mips64 { mips3d } \ { -march=sb1 -mtune=sb1 } { -mmips:sb1 } \ { mipsisa64sb1-*-* mipsisa64sb1el-*-* } +mips_arch_create octeon 64 mips64r2 {} \ + { -march=octeon -mtune=octeon } { -mmips:octeon } \ + { mips64octeon*-*-* } +mips_arch_create xlr 64 mips64 {} \ + { -march=xlr -mtune=xlr } { -mmips:xlr } # # And now begin the actual tests! VxWorks uses RELA rather than REL @@ -393,14 +419,12 @@ if { [istarget mips*-*-vxworks*] } { run_dump_test "vxworks1-el" run_dump_test "vxworks1-xgot-el" } elseif { [istarget mips*-*-*] } { - set no_mips16 0 set elf [expr [istarget *-*-elf*] || [istarget *-*-irix5*] || [istarget *-*-irix6* ] || [istarget *-*-linux*] || [istarget *-*-netbsd*] ] set ecoff [expr [istarget *-*-ecoff*] || [istarget *-*-ultrix*] || [istarget *-*-irix\[1-4\]*] ] set aout [expr [istarget *-*-bsd*] || [istarget *-*-openbsd*] ] - set ilocks [istarget mipstx39*-*-*] - set gpr_ilocks [expr [istarget mipstx39*-*-*]] - set addr32 [expr [istarget mipstx39*-*-*] || [istarget mips-*-linux*] || [istarget mipsel-*-linux*]] + set addr32 [expr [istarget mipstx39*-*-*] || [istarget mips-*-linux*] || [istarget mipsel-*-linux*] || [istarget mips*-*-ecoff]] set has_newabi [expr [istarget *-*-irix6*] || [istarget mips64*-*-linux*]] + set no_mips16 [expr !$elf] if { [istarget "mips*-*-*linux*"] || [istarget "mips*-sde-elf*"] } then { set tmips "t" @@ -412,10 +436,16 @@ if { [istarget mips*-*-vxworks*] } { } { set el "" } - + if { $no_mips16 } { + mips_arch_destroy mips16 + } + run_dump_test_arches "abs" [mips_arch_list_matching mips1] run_dump_test_arches "add" [mips_arch_list_matching mips1] run_dump_test_arches "and" [mips_arch_list_matching mips1] + run_dump_test_arches "mips1-fp" [mips_arch_list_matching mips1] + run_list_test_arches "mips1-fp" "-32 -msoft-float" \ + [mips_arch_list_matching mips1] run_dump_test "break20" run_dump_test "trap20" @@ -423,13 +453,12 @@ if { [istarget mips*-*-vxworks*] } { # See http://sources.redhat.com/ml/binutils/2001-10/msg00418.html for # more information. Not sure if the fixes there are correct; should # branches to external labels be allowed for ECOFF? - # XXX FIXME: the following tests require -mips2 disasm for - # branch-likely instructions. They should be split. - run_dump_test_arches "beq" [mips_arch_list_matching mips2] - run_dump_test_arches "bge" [mips_arch_list_matching mips2] - run_dump_test_arches "bgeu" [mips_arch_list_matching mips2] - run_dump_test_arches "blt" [mips_arch_list_matching mips2] - run_dump_test_arches "bltu" [mips_arch_list_matching mips2] + run_dump_test_arches "beq" [mips_arch_list_matching mips1] + run_dump_test_arches "bge" [mips_arch_list_matching mips1] + run_dump_test_arches "bgeu" [mips_arch_list_matching mips1] + run_dump_test_arches "blt" [mips_arch_list_matching mips1] + run_dump_test_arches "bltu" [mips_arch_list_matching mips1] + run_dump_test_arches "branch-likely" [mips_arch_list_matching mips2] run_dump_test_arches "branch-misc-1" [mips_arch_list_matching mips1] run_dump_test_arches "branch-misc-2" [mips_arch_list_matching mips1] run_dump_test_arches "branch-misc-2pic" [mips_arch_list_matching mips1] @@ -437,12 +466,8 @@ if { [istarget mips*-*-vxworks*] } { run_dump_test_arches "branch-misc-2pic-64" [mips_arch_list_matching mips3] run_dump_test "branch-misc-3" run_dump_test "branch-swap" + run_dump_test "div" - if $ilocks { - run_dump_test "div-ilocks" - } else { - run_dump_test "div" - } if { !$addr32 } { run_dump_test_arches "dli" [mips_arch_list_matching mips3] } @@ -451,7 +476,16 @@ if { [istarget mips*-*-vxworks*] } { } else { run_dump_test "jal" } - if $elf { run_dump_test "jal-svr4pic" } + run_dump_test "eret-1" + run_dump_test "eret-2" + run_dump_test "eret-3" + + if $elf { + run_dump_test_arches "jal-svr4pic" \ + [mips_arch_list_matching mips1] + run_dump_test_arches "jal-svr4pic-noreorder" \ + [mips_arch_list_matching mips1] + } if $elf { run_dump_test "jal-xgot" } run_list_test_arches "jal-range" "-32" [mips_arch_list_matching mips1] if $has_newabi { run_dump_test "jal-newabi" } @@ -463,10 +497,11 @@ if { [istarget mips*-*-vxworks*] } { if !$aout { # XXX FIXME: Has mips2 and later insns with mips1 disassemblies. # (Should split and then use appropriate arch lists.) - run_dump_test_arches "lb" [mips_arch_list_matching !mips2] + run_dump_test_arches "lb" [mips_arch_list_matching mips1 !mips2] } if $elf { - run_dump_test_arches "lb-svr4pic" [mips_arch_list_matching !gpr_ilocks] + run_dump_test_arches "lb-svr4pic" \ + [mips_arch_list_matching mips1 !gpr_ilocks] run_dump_test_arches "lb-svr4pic-ilocks" [mips_arch_list_matching gpr_ilocks] } if $elf { @@ -476,15 +511,74 @@ if { [istarget mips*-*-vxworks*] } { run_dump_test "lb-xgot-ilocks" } if !$aout { - if !$gpr_ilocks { - run_dump_test "ld" - } else { - if !$addr32 { - run_dump_test "ld-ilocks" - } else { - run_dump_test "ld-ilocks-addr32" - } - } + run_dump_test_arches "ld" [mips_arch_list_matching mips1] + run_dump_test_arches "ld-forward" \ + [mips_arch_list_matching mips1] + run_dump_test_arches "sd" [mips_arch_list_matching mips1] + run_dump_test_arches "sd-forward" \ + [mips_arch_list_matching mips1] + run_dump_test_arches "l_d" [mips_arch_list_matching mips1] + run_dump_test_arches "l_d-forward" \ + [mips_arch_list_matching mips1] + run_dump_test_arches "s_d" [mips_arch_list_matching mips1] + run_dump_test_arches "s_d-forward" \ + [mips_arch_list_matching mips1] + run_dump_test_arches "ldc1" [mips_arch_list_matching mips2] + run_dump_test_arches "ldc1-forward" \ + [mips_arch_list_matching mips2] + run_dump_test_arches "sdc1" [mips_arch_list_matching mips2] + run_dump_test_arches "sdc1-forward" \ + [mips_arch_list_matching mips2] + if $has_newabi { + run_dump_test_arches "ld-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "ld-forward-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "sd-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "sd-forward-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "l_d-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "l_d-forward-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "s_d-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "s_d-forward-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "ldc1-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "ldc1-forward-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "sdc1-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "sdc1-forward-n32" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "ld-n64" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "ld-forward-n64" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "sd-n64" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "sd-forward-n64" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "l_d-n64" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "l_d-forward-n64" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "s_d-n64" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "s_d-forward-n64" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "ldc1-n64" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "ldc1-forward-n64" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "sdc1-n64" \ + [mips_arch_list_matching mips3] + run_dump_test_arches "sdc1-forward-n64" \ + [mips_arch_list_matching mips3] + } } if $elf { run_dump_test "ld-svr4pic" } if $elf { run_dump_test "ld-xgot" } @@ -493,14 +587,17 @@ if { [istarget mips*-*-vxworks*] } { if $elf { run_dump_test "lif-svr4pic" } if $elf { run_dump_test "lif-xgot" } run_dump_test_arches "mips4" [mips_arch_list_matching mips4] + run_dump_test_arches "mips4-fp" [mips_arch_list_matching mips4] + run_list_test_arches "mips4-fp" "-32 -msoft-float" \ + [mips_arch_list_matching mips4] + run_dump_test_arches "mips4-branch-likely" \ + [mips_arch_list_matching mips4] + run_list_test_arches "mips4-branch-likely" "-32 -msoft-float" \ + [mips_arch_list_matching mips4] run_dump_test_arches "mips5" [mips_arch_list_matching mips5] - if $ilocks { - run_dump_test "mul-ilocks" - } else { - run_dump_test "mul" - } + run_dump_test "mul" - run_dump_test_arches "rol" [mips_arch_list_matching !ror] + run_dump_test_arches "rol" [mips_arch_list_matching mips1 !ror] run_dump_test_arches "rol-hw" [mips_arch_list_matching ror] run_dump_test_arches "rol64" [mips_arch_list_matching gpr64 !ror] @@ -520,9 +617,11 @@ if { [istarget mips*-*-vxworks*] } { run_dump_test "usw" run_dump_test "usd" } - run_dump_test_arches "ulw2-eb" [mips_arch_list_matching !gpr_ilocks] + run_dump_test_arches "ulw2-eb" \ + [mips_arch_list_matching mips1 !gpr_ilocks] run_dump_test_arches "ulw2-eb-ilocks" [mips_arch_list_matching gpr_ilocks] - run_dump_test_arches "ulw2-el" [mips_arch_list_matching !gpr_ilocks] + run_dump_test_arches "ulw2-el" \ + [mips_arch_list_matching mips1 !gpr_ilocks] run_dump_test_arches "ulw2-el-ilocks" [mips_arch_list_matching gpr_ilocks] run_dump_test_arches "uld2-eb" [mips_arch_list_matching mips3] @@ -538,13 +637,14 @@ if { [istarget mips*-*-vxworks*] } { # Check jalx handling run_dump_test "mips16-jalx" run_dump_test "mips-jalx" + run_dump_test "mips-jalx-2" # Check MIPS16 HI16/LO16 relocations run_dump_test "mips16-hilo" if $has_newabi { run_dump_test "mips16-hilo-n32" } + run_dump_test "mips16-hilo-match" } - run_list_test "mips-no-jalx" "-32" run_dump_test "delay" run_dump_test "nodelay" run_dump_test "mips4010" @@ -564,14 +664,28 @@ if { [istarget mips*-*-vxworks*] } { run_dump_test_arches "mips32" [mips_arch_list_matching mips32] run_dump_test_arches "mips32-sf32" [mips_arch_list_matching mips32] + run_list_test_arches "mips32-sf32" "-32 -msoft-float" \ + [mips_arch_list_matching mips32] + run_dump_test_arches "mips32-cp2" [mips_arch_list_matching mips32 \ + !octeon] run_dump_test_arches "mips32r2" [mips_arch_list_matching mips32r2] + run_dump_test_arches "mips32r2-cp2" [mips_arch_list_matching mips32r2 \ + !octeon] + run_dump_test_arches "mips32r2-fp32" \ + [mips_arch_list_matching mips32r2] + run_list_test_arches "mips32r2-fp32" "-32 -msoft-float" \ + [mips_arch_list_matching mips32r2] run_list_test_arches "mips32r2-ill" "-32" \ - [mips_arch_list_matching mips32r2 gpr32] + [mips_arch_list_matching mips32r2 gpr32] run_list_test_arches "mips32r2-ill-fp64" "-mabi=o64" \ - [mips_arch_list_matching mips32r2 gpr64] + [mips_arch_list_matching mips32r2 gpr64] + run_list_test_arches "mips32r2-ill-nofp" "-32 -msoft-float" \ + [mips_arch_list_matching mips32r2] run_dump_test_arches "mips64" [mips_arch_list_matching mips64] + run_dump_test_arches "mips64-cp2" [mips_arch_list_matching mips64 \ + !octeon] run_dump_test_arches "mips64r2" [mips_arch_list_matching mips64r2] run_list_test_arches "mips64r2-ill" "" [mips_arch_list_matching mips64r2] @@ -585,6 +699,7 @@ if { [istarget mips*-*-vxworks*] } { run_dump_test "mips64-mdmx" run_dump_test "sb1-ext-mdmx" run_dump_test "sb1-ext-ps" + run_dump_test "xlr-ext" } run_dump_test "relax" @@ -594,6 +709,7 @@ if { [istarget mips*-*-vxworks*] } { run_list_test "illegal" "-32" run_list_test "baddata1" "-32" + run_list_test "jalr" "" # LOSE: As of 2002-02-08, the next 4 tests fail for target mips-ecoff. # It's unknown whether they _should_ pass as-is, or whether different @@ -627,7 +743,10 @@ if { [istarget mips*-*-vxworks*] } { run_dump_test "elf_arch_mips64r2" # Verify that ASE markings are handled properly. - if { !$no_mips16 } { run_dump_test "elf_ase_mips16" } + if { !$no_mips16 } { + run_dump_test "elf_ase_mips16" + run_dump_test "elf_ase_mips16-2" + } run_dump_test "mips-gp32-fp32-pic" run_dump_test "mips-gp32-fp64-pic" @@ -652,13 +771,16 @@ if { [istarget mips*-*-vxworks*] } { } run_dump_test "elf-rel7" run_dump_test "elf-rel8" + run_dump_test "elf-rel8-mips16" run_dump_test "elf-rel9" + run_dump_test "elf-rel9-mips16" if $has_newabi { run_dump_test "elf-rel10" run_dump_test "elf-rel11" } run_dump_test "elf-rel12" run_dump_test "elf-rel13" + run_dump_test "elf-rel13-mips16" run_dump_test "elf-rel14" if $has_newabi { @@ -689,6 +811,13 @@ if { [istarget mips*-*-vxworks*] } { run_dump_test "elf-rel25a" run_dump_test "elf-rel26" + run_dump_test_arches "elf-rel27" [mips_arch_list_all] + + if $has_newabi { + run_dump_test "elf-rel28-n32" + run_dump_test "elf-rel28-n64" + } + if { !$no_mips16 } { run_dump_test "${tmips}mips${el}16-e" run_dump_test "${tmips}mips${el}16-f" @@ -698,6 +827,14 @@ if { [istarget mips*-*-vxworks*] } { run_list_test "tls-ill" "-32" run_dump_test "tls-o32" + run_dump_test "jalr2" + + run_dump_test_arches "aent" [mips_arch_list_matching mips1] + + run_dump_test_arches "branch-misc-4" \ + [mips_arch_list_matching mips1] + run_dump_test_arches "branch-misc-4-64" \ + [mips_arch_list_matching mips3] } if $has_newabi { @@ -717,6 +854,11 @@ if { [istarget mips*-*-vxworks*] } { run_dump_test "fpr-names-64" run_dump_test "cp0-names-numeric" + run_dump_test "cp0-names-r3000" + run_dump_test "cp0-names-r4000" \ + { { {name} {(r4000)} } { {objdump} {-M cp0-names=r4000} } } + run_dump_test "cp0-names-r4000" \ + { { {name} {(r4400)} } { {objdump} {-M cp0-names=r4400} } } run_dump_test "cp0-names-mips32" run_dump_test "cp0-names-mips32r2" run_dump_test "cp0-names-mips64" @@ -770,11 +912,28 @@ if { [istarget mips*-*-vxworks*] } { run_list_test "noat-6" "" run_list_test "noat-7" "" - run_dump_test_arches "smartmips" [mips_arch_list_matching mips32 !gpr64] - run_dump_test_arches "mips32-dsp" [mips_arch_list_matching mips32r2] - run_dump_test_arches "mips32-dspr2" [mips_arch_list_matching mips32r2] - run_dump_test_arches "mips64-dsp" [mips_arch_list_matching mips64r2] - run_dump_test_arches "mips32-mt" [mips_arch_list_matching mips32r2 !gpr64] + run_dump_test "at-1" + run_list_test "at-2" "-32 -mips1" "MIPS at-2" + + run_dump_test "loongson-2e" + run_dump_test "loongson-2f" + run_dump_test "loongson-2f-2" + run_dump_test "loongson-2f-3" + + run_dump_test "loongson-3a" + run_dump_test "loongson-3a-2" + run_dump_test "loongson-3a-3" + + run_dump_test_arches "octeon" [mips_arch_list_matching octeon] + run_list_test_arches "octeon-ill" "" \ + [mips_arch_list_matching octeon] + run_dump_test_arches "octeon-pref" [mips_arch_list_matching octeon] + + run_dump_test "smartmips" + run_dump_test "mips32-dsp" + run_dump_test "mips32-dspr2" + run_dump_test "mips64-dsp" + run_dump_test "mips32-mt" if { $elf && !$no_mips16 } { run_dump_test "mips16-dwarf2" @@ -795,4 +954,28 @@ if { [istarget mips*-*-vxworks*] } { run_dump_test "vxworks1-xgot-el" run_dump_test "noreorder" + run_dump_test "align" + run_dump_test "align2" + run_dump_test "align2-el" + run_dump_test "odd-float" + + run_list_test_arches "mips-macro-ill-sfp" "-32 -msingle-float" \ + [mips_arch_list_matching mips2] + run_list_test_arches "mips-macro-ill-nofp" "-32 -msoft-float" \ + [mips_arch_list_matching mips2] + + run_list_test_arches "mips-hard-float-flag" \ + "-32 -msoft-float -mhard-float" \ + [mips_arch_list_matching mips1] + run_list_test_arches "mips-double-float-flag" \ + "-32 -msingle-float -mdouble-float" \ + [mips_arch_list_matching mips1] + + run_dump_test "mips16-vis-1" + run_dump_test "call-nonpic-1" + run_dump_test "mips32-sync" + run_dump_test_arches "mips32r2-sync" \ + [mips_arch_list_matching mips32r2] + + if $has_newabi { run_dump_test "cfi-n64-1" } }