diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gcc.target/mips/mips.exp | 12 |
2 files changed, 16 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 96d0a0b..3f48f22 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-07-10 Richard Sandiford <richard@codesourcery.com> + + * gcc.target/mips/mips.exp (is_gp32_flag): New procedure. + (dg-mips-options): Use it. + 2005-07-09 Diego Novillo <dnovillo@redhat.com> * gcc.dg/tree-ssa/pta-fp.c: Use -fdump-tree-alias1. diff --git a/gcc/testsuite/gcc.target/mips/mips.exp b/gcc/testsuite/gcc.target/mips/mips.exp index ee1c4f5..d88a867 100644 --- a/gcc/testsuite/gcc.target/mips/mips.exp +++ b/gcc/testsuite/gcc.target/mips/mips.exp @@ -83,9 +83,19 @@ proc setup_mips_tests {} { set mips_forced_float [regexp -- {-m(hard|soft)-float} $compiler_flags] } +# Return true if command-line option FLAG forces 32-bit code. +proc is_gp32_flag {flag} { + switch -glob -- $flag { + -march=mips32* - + -mgp32 { return 1 } + default { return 0 } + } +} + # Like dg-options, but treats certain MIPS-specific options specially: # # -mgp32 +# -march=mips32* # Force 32-bit code. Skip the test if the multilib flags force # a 64-bit ABI. # @@ -125,7 +135,7 @@ proc dg-mips-options {args} { # First handle the -mgp* options. Add an architecture option if necessary. foreach flag $flags { - if {$flag == "-mgp32" && $mips_mips64} { + if {[is_gp32_flag $flag] && $mips_mips64} { if {$mips_forced_abi} { set matches 0 } else { |