OSDN Git Service

config/
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.target / mips / mips.exp
1 #   Copyright (C) 1997, 2007 Free Software Foundation, Inc.
2
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.
7
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.
12
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/>.
16
17 # GCC testsuite that uses the `dg.exp' driver.
18
19 # Exit immediately if this isn't a MIPS target.
20 if ![istarget mips*-*-*] {
21   return
22 }
23
24 # Load support procs.
25 load_lib gcc-dg.exp
26
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).
30 #
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"
36 #
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 #    $mips_forced_le     true if the command line uses -EL or -mel
41 #    $mips_forced_gp     true if the command line forces a particular GP mode
42 #    $mips_forced_no_er  true if the command line contains -mno-explicit-relocs
43 proc setup_mips_tests {} {
44     global mips_isa
45     global mips_arch
46     global mips_mips16
47     global mips_mips64
48     global mips_float
49
50     global mips_forced_isa
51     global mips_forced_abi
52     global mips_forced_float
53     global mips_forced_le
54     global mips_forced_gp
55     global mips_forced_no_er
56
57     global compiler_flags
58     global tool
59
60     set src dummy[pid].c
61     set f [open $src "w"]
62     puts $f {
63         int isa = __mips;
64         const char *arch = _MIPS_ARCH;
65         #ifdef __mips16
66         int mips16 = 1;
67         #endif
68         #ifdef __mips64
69         int mips64 = 1;
70         #endif
71         #ifdef __mips_hard_float
72         const char *float = "hard";
73         #else
74         const char *float = "soft";
75         #endif
76     }
77     close $f
78     set output [${tool}_target_compile $src "" preprocess ""]
79     file delete $src
80
81     regexp {isa = ([^;]*)} $output dummy mips_isa
82     regexp {arch = "([^"]*)} $output dummy mips_arch
83     set mips_mips16 [regexp {mips16 = 1} $output]
84     set mips_mips64 [regexp {mips64 = 1} $output]
85     regexp {float = "([^"]*)} $output dummy mips_float
86
87     set mips_forced_isa [regexp -- {(-mips|-march)} $compiler_flags]
88     set mips_forced_abi [regexp -- {(-mgp|-mfp|-mabi)} $compiler_flags]
89     set mips_forced_float [regexp -- {-m(hard|soft)-float} $compiler_flags]
90     set mips_forced_le [regexp -- {-(EL|mel)[[:>:]]} $compiler_flags]
91     set mips_forced_gp [regexp -- {-(G|m(|no-)((extern|local)-sdata|gpopt)|mabicalls|mrtp)} $compiler_flags]
92     set mips_forced_no_er [regexp -- {-mno-explicit-relocs} $compiler_flags]
93 }
94
95 # Return true if command-line option FLAG forces 32-bit code.
96 proc is_gp32_flag {flag} {
97     switch -glob -- $flag {
98         -msmartmips -
99         -march=mips32* -
100         -mgp32 { return 1 }
101         default { return 0 }
102     }
103 }
104
105 # Like dg-options, but treats certain MIPS-specific options specially:
106 #
107 #    -mgp32
108 #    -march=mips32*
109 #       Force 32-bit code.  Skip the test if the multilib flags force
110 #       a 64-bit ABI.
111 #
112 #    -mgp64
113 #       Force 64-bit code.  Also force a 64-bit target architecture
114 #       if the other flags don't do so.  Skip the test if the multilib
115 #       flags force a 32-bit ABI or a 32-bit architecture.
116 #
117 #    -mno-mips16
118 #       Skip the test for MIPS16 targets.
119 #
120 #    -march=*
121 #    -mips*
122 #       Select the target architecture.  Skip the test for MIPS16 targets
123 #       or if the multilib flags force a different architecture.
124 #
125 #    -msoft-float
126 #    -mhard-float
127 #       Select the given floating-point mode.  Skip the test if the
128 #       multilib flags force a different selection.
129 #
130 #    -EB
131 #       Select big-endian code.  Skip the test if the multilib flags
132 #       force a little-endian target.
133 #
134 #    -G*
135 #    -m(no-)extern-sdata
136 #    -m(no-)local-sdata
137 #    -m(no-)gpopt
138 #       Select the small-data mode, and -mno-abcialls.  Skip the test if
139 #       the multilib flags already contain such an option, or specify
140 #       something that might be incompatible with them.
141 #
142 #    -mexplicit-relocs
143 #       Select explicit relocations.  Skip the test if the multilib flags
144 #       force -mno-explicit-relocs.
145 proc dg-mips-options {args} {
146     upvar dg-extra-tool-flags extra_tool_flags
147     upvar dg-do-what do_what
148
149     global mips_isa
150     global mips_arch
151     global mips_mips16
152     global mips_mips64
153     global mips_float
154
155     global mips_forced_isa
156     global mips_forced_abi
157     global mips_forced_float
158     global mips_forced_le
159     global mips_forced_gp
160     global mips_forced_no_er
161
162     set flags [lindex $args 1]
163     set matches 1
164
165     # First handle the -mgp* options.  Add an architecture option if necessary.
166     foreach flag $flags {
167         if {[is_gp32_flag $flag] && $mips_mips64} {
168             if {$mips_forced_abi} {
169                 set matches 0
170             } else {
171                 append flags " -mabi=32"
172             }
173         } elseif {$flag == "-mgp64" && !$mips_mips64} {
174             if {$mips_forced_abi} {
175                 set matches 0
176             } else {
177                 append flags " -mabi=o64"
178                 if {[lsearch -regexp $flags {^(-mips|-march)}] < 0} {
179                     append flags " -mips3"
180                 }
181             }
182         }
183     }
184     # Handle the other options.
185     foreach flag $flags {
186         if {$flag == "-mno-mips16"} {
187             if {$mips_mips16} {
188                 set matches 0
189             }
190         } elseif {$flag == "-mfp64"} {
191             if {$mips_isa < 33 || $mips_float != "hard"} {
192                 set matches 0
193             }
194         } elseif {[regexp -- {^-march=(.*)} $flag dummy arch]} {
195             if {$mips_mips16 || ($arch != $mips_arch && $mips_forced_isa)} {
196                 set matches 0
197             }
198         } elseif {[regexp -- {^-mips(.*)} $flag dummy isa] && $isa != 16} {
199             if {$mips_mips16 || ($isa != $mips_isa && $mips_forced_isa)} {
200                 set matches 0
201             }
202         } elseif {[regexp -- {^-m(hard|soft)-float} $flag dummy float]} {
203             if {$mips_float != $float && $mips_forced_float} {
204                 set matches 0
205             }
206         } elseif {[regexp -- {^-(EB|meb)$} $flag]} {
207             if {$mips_forced_le} {
208                 set matches 0
209             }
210         } elseif {[regexp -- {^-(G|m(|no-)((extern|local)-sdata|gpopt))} $flag]} {
211             append flags " -mno-abicalls"
212             if {$mips_forced_gp} {
213                 set matches 0
214             }
215         } elseif {[regexp -- {^-mexplicit-relocs$} $flag]} {
216             if {$mips_forced_no_er} {
217                 set matches 0
218             }
219         }
220     }
221     if {$matches} {
222         set extra_tool_flags $flags
223     } else {
224         set do_what [list [lindex $do_what 0] "N" "P"]
225     }
226 }
227
228 setup_mips_tests
229
230 dg-init
231 dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] "" ""
232 dg-finish