aboutsummaryrefslogtreecommitdiff
path: root/gas
diff options
context:
space:
mode:
authorRichard Sandiford <rdsandiford@googlemail.com>2011-12-03 10:29:53 +0000
committerRichard Sandiford <rdsandiford@googlemail.com>2011-12-03 10:29:53 +0000
commit725fc8eddf130fd9f06a13f0167766ca269ebd75 (patch)
treef795b2bdbad579fa2bd317a37a8d95aa800c95fb /gas
parentbe7b303d27c7f45f989ac6f2b348c5311a66119d (diff)
downloadgdb-725fc8eddf130fd9f06a13f0167766ca269ebd75.zip
gdb-725fc8eddf130fd9f06a13f0167766ca269ebd75.tar.gz
gdb-725fc8eddf130fd9f06a13f0167766ca269ebd75.tar.bz2
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.
Diffstat (limited to 'gas')
-rw-r--r--gas/testsuite/ChangeLog9
-rw-r--r--gas/testsuite/gas/mips/mips.exp72
2 files changed, 56 insertions, 25 deletions
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 <rdsandiford@googlemail.com>
+
+ * 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 <apinski@cavium.com>
* 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"