From 725fc8eddf130fd9f06a13f0167766ca269ebd75 Mon Sep 17 00:00:00 2001 From: Richard Sandiford Date: Sat, 3 Dec 2011 10:29:53 +0000 Subject: gas/testsuite/ * gas/mips/mips.exp (run_dump_test_arch): Add an opts parameter. (run_dump_test_arches): Allow additional options to be passed. (run_list_test_arch): Add opts to the name. (run_list_test_arches): Allow the options to be elided. (mips4-fp, mips5-fp): Run twice, one with -32 and once with -mabi=o64. (mips64r2-ill, octeon-ill): Remove empty options string. --- gas/testsuite/ChangeLog | 9 ++++++ gas/testsuite/gas/mips/mips.exp | 72 +++++++++++++++++++++++++++-------------- 2 files changed, 56 insertions(+), 25 deletions(-) (limited to 'gas/testsuite') diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index 6d0688b..d5d8ae8 100644 --- a/gas/testsuite/ChangeLog +++ b/gas/testsuite/ChangeLog @@ -1,3 +1,12 @@ +2011-12-03 Richard Sandiford + + * gas/mips/mips.exp (run_dump_test_arch): Add an opts parameter. + (run_dump_test_arches): Allow additional options to be passed. + (run_list_test_arch): Add opts to the name. + (run_list_test_arches): Allow the options to be elided. + (mips4-fp, mips5-fp): Run twice, one with -32 and once with -mabi=o64. + (mips64r2-ill, octeon-ill): Remove empty options string. + 2011-11-29 Andrew Pinski * gas/mips/mips.exp: Add octeon+ for an architecture. diff --git a/gas/testsuite/gas/mips/mips.exp b/gas/testsuite/gas/mips/mips.exp index 047c038..d47ebc6 100644 --- a/gas/testsuite/gas/mips/mips.exp +++ b/gas/testsuite/gas/mips/mips.exp @@ -286,10 +286,11 @@ proc mips_arch_list_matching {args} { # The functions below facilitate running various types of tests. -# run_dump_test_arch NAME ARCH +# run_dump_test_arch NAME OPTS ARCH # -# Invoke "run_dump_test" for test NAME, with extra assembler and -# disassembler flags to test architecture ARCH. +# Invoke "run_dump_test" for test NAME with additional assembler options OPTS. +# Add the assembler and disassembler flags that are associated with +# architecture ARCH. # # You can override the expected output for particular architectures # and file formats. The possible test names are, in order of preference: @@ -302,7 +303,7 @@ proc mips_arch_list_matching {args} { # 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 } { +proc run_dump_test_arch { name opts arch } { upvar elf elf ecoff ecoff aout aout global subdir srcdir @@ -323,45 +324,61 @@ proc run_dump_test_arch { name arch } { } if [catch {run_dump_test $name \ - "{name {([mips_arch_displayname $arch])}} - {objdump {[mips_arch_objdump_flags $arch]}} - {as {[mips_arch_as_flags $arch]}}"} rv] { + "{name {([concat $opts [mips_arch_displayname $arch]])}} + {objdump {[mips_arch_objdump_flags $arch]}} + {as {[concat $opts [mips_arch_as_flags $arch]]}}"} rv] { perror "$rv" untested "$subdir/$name ($arch)" } } -# run_dump_test_arches NAME ARCH_LIST +# run_dump_test_arches NAME [OPTS] ARCH_LIST # # Invoke "run_dump_test_arch" for test NAME, for each architecture -# listed in ARCH_LIST. -proc run_dump_test_arches { name arch_list } { +# listed in ARCH_LIST. OPTS, if specified, is a list of additional +# assembler options that should be used for all architectures. +proc run_dump_test_arches { name args } { upvar elf elf ecoff ecoff aout aout + set opts "" + if { [llength $args] > 1 } { + set opts [lindex $args 0] + set args [lrange $args 1 end] + } + set arch_list [lindex $args 0] foreach arch $arch_list { - run_dump_test_arch "$name" "$arch" + run_dump_test_arch $name $opts $arch } } # run_list_test_arch NAME OPTS ARCH # -# Invoke "run_list_test" for test NAME with options OPTS, with extra -# assembler flags to test architecture ARCH. +# Invoke "run_list_test" for test NAME with additional assembler options OPTS. +# Add the assembler flags that are associated with architecture ARCH. proc run_list_test_arch { name opts arch } { global subdir - set testname "MIPS $name ([mips_arch_displayname $arch])" - if [catch {run_list_test "$name" "$opts [mips_arch_as_flags $arch]" \ - "$testname"} rv] { + set testname "MIPS $name ([concat $opts [mips_arch_displayname $arch]])" + if [catch {run_list_test \ + $name \ + [concat $opts [mips_arch_as_flags $arch]] \ + $testname} rv] { perror "$rv" untested "$testname" } } -# run_list_test_arches NAME OPTS ARCH_LIST +# run_list_test_arches NAME [OPTS] ARCH_LIST # -# Invoke "run_list_test_arch" for test NAME with options OPTS, for each -# architecture listed in ARCH_LIST. -proc run_list_test_arches { name opts arch_list } { +# Invoke "run_list_test_arch" for test NAME, for each architecture listed +# in ARCH_LIST. OPTS, if specified, is a list of additional assembler +# options that should be used for all architectures. +proc run_list_test_arches { name args } { + set opts "" + if { [llength $args] > 1 } { + set opts [lindex $args 0] + set args [lrange $args 1 end] + } + set arch_list [lindex $args 0] foreach arch $arch_list { run_list_test_arch "$name" "$opts" "$arch" } @@ -636,14 +653,20 @@ 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 fpisa4] + run_dump_test_arches "mips4-fp" "-32" \ + [mips_arch_list_matching fpisa4] + run_dump_test_arches "mips4-fp" "-mabi=o64" \ + [mips_arch_list_matching fpisa4 gpr64] run_list_test_arches "mips4-fp" "-32 -msoft-float" \ [mips_arch_list_matching fpisa4] 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-fp" [mips_arch_list_matching fpisa5] + run_dump_test_arches "mips5-fp" "-32" \ + [mips_arch_list_matching fpisa5] + run_dump_test_arches "mips5-fp" "-mabi=o64" \ + [mips_arch_list_matching fpisa5 gpr64] run_dump_test "mul" run_dump_test_arches "rol" [mips_arch_list_matching mips1 !ror] @@ -739,7 +762,7 @@ if { [istarget mips*-*-vxworks*] } { !octeon] run_dump_test_arches "mips64r2" [mips_arch_list_matching mips64r2] - run_list_test_arches "mips64r2-ill" "" [mips_arch_list_matching mips64r2] + run_list_test_arches "mips64r2-ill" [mips_arch_list_matching mips64r2] run_dump_test "set-arch" @@ -991,8 +1014,7 @@ if { [istarget mips*-*-vxworks*] } { run_dump_test_arches "octeon" [mips_arch_list_matching octeon] run_dump_test_arches "octeon-saa-saad" [mips_arch_list_matching octeonp] - run_list_test_arches "octeon-ill" "" \ - [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" -- cgit v1.1