* gcc.target/mips/mips.exp (is_gp32_flag): New procedure.
(dg-mips-options): Use it.
From-SVN: r101847
+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.
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.
#
# 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 {