1 # Copyright (C) 1997, 2007 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with GCC; see the file COPYING3. If not see
15 # <http://www.gnu.org/licenses/>.
17 # GCC testsuite that uses the `dg.exp' driver.
19 # Exit immediately if this isn't a MIPS target.
20 if ![istarget mips*-*-*] {
27 # Find out which target is selected by the default compiler flags.
28 # Also remember which aspects of the target are forced on the command
29 # line (as opposed to being overridable defaults).
31 # $mips_isa: the ISA level specified by __mips
32 # $mips_arch: the architecture specified by _MIPS_ARCH
33 # $mips_mips16: true if MIPS16 mode is selected
34 # $mips_mips64: true if 64-bit output is selected
35 # $mips_float: "hard" or "soft"
37 # $mips_forced_isa: true if the command line uses -march=* or -mips*
38 # $mips_forced_abi: true if the command line uses -mabi=* or -mgp*
39 # $mips_forced_float: true if the command line uses -mhard/soft-float
40 proc setup_mips_tests {} {
47 global mips_forced_isa
48 global mips_forced_abi
49 global mips_forced_float
58 const char *arch = _MIPS_ARCH;
65 #ifdef __mips_hard_float
66 const char *float = "hard";
68 const char *float = "soft";
72 set output [${tool}_target_compile $src "" preprocess ""]
75 regexp {isa = ([^;]*)} $output dummy mips_isa
76 regexp {arch = "([^"]*)} $output dummy mips_arch
77 set mips_mips16 [regexp {mips16 = 1} $output]
78 set mips_mips64 [regexp {mips64 = 1} $output]
79 regexp {float = "([^"]*)} $output dummy mips_float
81 set mips_forced_isa [regexp -- {(-mips|-march)} $compiler_flags]
82 set mips_forced_abi [regexp -- {(-mgp|-mfp|-mabi)} $compiler_flags]
83 set mips_forced_float [regexp -- {-m(hard|soft)-float} $compiler_flags]
86 # Return true if command-line option FLAG forces 32-bit code.
87 proc is_gp32_flag {flag} {
88 switch -glob -- $flag {
96 # Like dg-options, but treats certain MIPS-specific options specially:
100 # Force 32-bit code. Skip the test if the multilib flags force
104 # Force 64-bit code. Also force a 64-bit target architecture
105 # if the other flags don't do so. Skip the test if the multilib
106 # flags force a 32-bit ABI or a 32-bit architecture.
109 # Skip the test for MIPS16 targets.
113 # Select the target architecture. Skip the test for MIPS16 targets
114 # or if the multilib flags force a different architecture.
118 # Select the given floating-point mode. Skip the test if the
119 # multilib flags force a different selection.
120 proc dg-mips-options {args} {
121 upvar dg-extra-tool-flags extra_tool_flags
122 upvar dg-do-what do_what
130 global mips_forced_isa
131 global mips_forced_abi
132 global mips_forced_float
134 set flags [lindex $args 1]
137 # First handle the -mgp* options. Add an architecture option if necessary.
138 foreach flag $flags {
139 if {[is_gp32_flag $flag] && $mips_mips64} {
140 if {$mips_forced_abi} {
143 append flags " -mabi=32"
145 } elseif {$flag == "-mgp64" && !$mips_mips64} {
146 if {$mips_forced_abi} {
149 append flags " -mabi=o64"
150 if {[lsearch -regexp $flags {^(-mips|-march)}] < 0} {
151 append flags " -mips3"
156 # Handle the other options.
157 foreach flag $flags {
158 if {$flag == "-mno-mips16"} {
162 } elseif {$flag == "-mfp64"} {
163 if {$mips_isa < 33 || $mips_float != "hard"} {
166 } elseif {[regexp -- {^-march=(.*)} $flag dummy arch]} {
167 if {$mips_mips16 || ($arch != $mips_arch && $mips_forced_isa)} {
170 } elseif {[regexp -- {^-mips(.*)} $flag dummy isa] && $isa != 16} {
171 if {$mips_mips16 || ($isa != $mips_isa && $mips_forced_isa)} {
174 } elseif {[regexp -- {^-m(hard|soft)-float} $flag dummy float]} {
175 if {$mips_float != $float && $mips_forced_float} {
181 set extra_tool_flags $flags
183 set do_what [list [lindex $do_what 0] "N" "P"]
190 dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] "" ""