From 4cc93d9984a19dfeb89de04c6c5c01b2cb3b3c41 Mon Sep 17 00:00:00 2001 From: Richard Sandiford Date: Sun, 10 Jul 2005 09:40:11 +0000 Subject: [PATCH] mips.exp (is_gp32_flag): New procedure. * gcc.target/mips/mips.exp (is_gp32_flag): New procedure. (dg-mips-options): Use it. From-SVN: r101847 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gcc.target/mips/mips.exp | 12 +++++++++++- 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 96d0a0badcd..3f48f2272e7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-07-10 Richard Sandiford + + * gcc.target/mips/mips.exp (is_gp32_flag): New procedure. + (dg-mips-options): Use it. + 2005-07-09 Diego Novillo * 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 ee1c4f593be..d88a867db1b 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 { -- 2.30.2