1 # Copyright (C) 1997, 2007, 2008, 2009 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 # A MIPS version of the GCC dg.exp driver.
19 # There are many MIPS features that we want to test, and many of those
20 # features are specific to certain architectures, certain ABIs and so on.
21 # There are therefore many cases in which we want to test something that
22 # is incompatible with the user's chosen test options.
24 # In most dg testsuites, the options added by dg-options have a lower
25 # priority than the options chosen by the user. For example, if a test
28 # { dg-options "-mips1" }
30 # and the user passes the following option to runtest:
32 # --target_board unix/-mips3
34 # the test would be compiled as MIPS III rather than MIPS I. If the
35 # test really wouldn't work with -mips3, normal practice would be to
36 # have something like:
38 # { dg-do compile { target can_force_mips1 } }
40 # so that the test is skipped when an option like -mips3 is passed.
42 # Sticking to the same approach here would cause us to skip many tests,
43 # even though the toolchain can generate the required code. For example,
44 # there are 6 MIPS ABIs, plus variants. Some configurations support
45 # more than one ABI, so it is natural to use something like:
47 # --target_board unix{-mabi=n32,-mabi=32,-mabi=64}
49 # when testing them. But these -mabi=* options would normally prevent any
50 # EABI and o64 tests from running.
52 # This testsuite therefore defines a local version of dg-options that
53 # overrides any user options that are incompatible with the test options.
54 # It tries to keep the other user options intact.
57 # Most of the tests in this testsuite are scan-assembler tests, but
58 # sometimes we need a link test instead. In these cases, we must not
59 # try to link code with options that are incompatible with the current
60 # multilib, because xgcc is passed -L and -B options that are specific
63 # Normal GCC practice would be to skip incompatible link tests as
64 # unsupported, but in this particular case, it seems better to downgrade
65 # them to an assemble test instead. At least that way we get some
66 # test-for-ICE and code-sanity coverage.
68 # The same problem applies to run tests. If a test requires runtime
69 # support for a particular feature, and if the current target does not
70 # provide that support, normal practice would be to skip the test.
71 # But in this case it seems better to downgrade it to a link test instead.
72 # (We might then have to downgrade it to an assembler test according to
73 # the constraints just mentioned.)
75 # The local dg-options therefore checks whether the new options are
76 # link-compatiable with the user's options. If not, it automatically
77 # downgrades link tests to assemble tests. It does the same for run
78 # tests, but in addition, it downgrades run tests to link tests if the
79 # target does not provide runtime support for a required feature or ASE.
82 # Another problem is that many of the options we want to test require
83 # certain other features. For example, -mips3d requires both 64-bit
84 # FPRs and a MIPS32 or MIPS64 target; -mfix-r10000 requires branch-
85 # likely instructions; and so on. We could handle this by specifying
86 # a set of options that are guaranteed to give us what we want, such as:
88 # dg-options "-mips3d -mpaired-single -mhard-float -mgp64 -mfp64 -mabi=n32 -march=mips64 -mips64"
90 # With the new dg-options semantics, this would override any troublesome
91 # user options like -mips3, -march=vr4100, -mfp32, -mgp32, -msoft-float,
92 # -mno-paired-single and so on. But there are three major problems with
95 # - It is easy to forget options.
97 # - If a new option is added, all tests that are incompatible with that
98 # option must be updated.
100 # - We want to be able to test MIPS-3D with things like -march=mips32,
101 # -march=mips64r2, -march=sb1, and so on.
103 # The local version of dg-options therefore works out the requirements
104 # of each test option. As with the test options themselves, the local
105 # dg-options overrides any user options that incompatible with these
106 # requirements, but it keeps the other user options the same.
108 # For example, if the user passes -mips3, a MIPS-3D test will choose
109 # a different architecture like -mips64 instead. But if the user
110 # passes -march=sb1, MIPS-3D tests will be run with that option.
113 # Sometimes it is useful to say "I want an environment that is compatible
114 # with option X, but I don't want to pass option X itself". The main example
115 # of this is -mips16: we want to be able to test __attribute__((mips16))
116 # without requiring the test itself to be compiled as -mips16. The local
117 # version of dg-options lets you do this by putting X in parentheses.
120 # { dg-options "(-mips16)" }
122 # selects a MIPS16-compatible target without passing -mips16 itself.
124 # It is also useful to say "any architecture within this ISA range is fine".
125 # This can be done using special pseudo-options of the form:
127 # PROP=VALUE PROP<=VALUE PROP>=VALUE
132 # the value of the __mips macro.
135 # the value of the __mips_isa_rev macro, or 0 if it isn't defined.
137 # For example, "isa_rev>=1" selects a MIPS32 or MIPS64 processor,
138 # "isa=4" selects a MIPS IV processor, and so on.
140 # There are also the following special pseudo-options:
143 # select a Loongson processor
145 # addressing=absolute
146 # force absolute addresses to be used
149 # forbid processors that match the given regexp; choose a
150 # generic ISA instead.
155 # (1) Try to avoid { target ... } requirements wherever possible.
156 # Specify the requirements as dg-options instead.
158 # (2) Don't worry about the consequences of (1) for link and run tests.
159 # If the test uses { dg-do link } or { dg-do run }, and its
160 # dg-options are incompatible with the current target, the
161 # testsuite will downgrade them where necessary.
163 # (3) Try to use the bare minimum of options and leave dg-options
164 # to work out the dependencies. For example, if you want
165 # a MIPS-3D test, you should generally just specify -mips3d.
166 # Don't specify an architecture option like -mips64 unless
167 # the test really doesn't work with -mips32r2, -mips64r2,
170 # (4) If you want something compatible with a particular option,
171 # but don't want to pass the option itself, wrap that option
172 # in parentheses. In particular, pass '(-mips16)' if you
173 # want to use "mips16" attributes.
175 # (5) When testing a feature of a generic ISA (as opposed to a
176 # processor-specific extension), try to use the "isa" and
177 # "isa_rev" pseudo-options instead of specific architecture
178 # options. For example, if the feature is present on revision 2
179 # processors and above, try to use "isa_rev>=2" instead of
180 # "-mips32r2" or "-mips64r2".
182 # (6) If you need to disable processor-specific extensions use
183 # forbid_cpu=REGEXP instead of forcing a generic ISA.
188 # Option group or just group:
189 # See comment before mips_option_groups.
192 # The options specified in dg-options.
195 # The options that were either passed to runtest as "multilib" options
196 # (e.g. -mips4 in --target_board=mips-sim-idt/-mips4) or specified as
197 # test options. Note that options in parenthesis (i.e. (-mips16)) are
198 # not explicit and can be omitted depending on the base options.
201 # Options that are on by default without being specified in dg-options,
202 # e.g. -march=mips64r2 for mipsisa64r2-elf or because they've been
203 # passed to runtest as "multilib" options.
206 # Many functions in this file work with option arrays. These are
207 # two-dimensional Tcl arrays where the first dimension can have three
208 # values: option, explicit_p or test_option_p. The second dimension is
209 # the name of the option group. "option" contains the name of the
210 # option that is in effect from this group. If no option is active it
211 # contains the empty string. The flags "explicit_p" and "test_option_p"
212 # are set for explicit and test options.
214 # Exit immediately if this isn't a MIPS target.
215 if ![istarget mips*-*-*] {
219 # Load support procs.
222 # A list of GROUP REGEXP pairs. Each GROUP represents a logical group of
223 # options from which only one option should be chosen. REGEXP matches all
224 # the options in that group; it is implicitly wrapped in "^(...)$".
225 set mips_option_groups {
227 addressing "addressing=.*"
228 arch "-mips([1-5]|32.*|64.*)|-march=.*|isa(|_rev)(=|<=|>=).*"
230 endianness "-E(L|B)|-me(l|b)"
231 float "-m(hard|soft)-float"
232 forbid_cpu "forbid_cpu=.*"
236 mips16 "-mips16|-mno-mips16"
237 mips3d "-mips3d|-mno-mips3d"
238 optimization "-O(|[0-3s])"
239 pic "-f(no-|)(pic|PIC)"
241 small-data "-G[0-9]+"
245 # Add -mfoo/-mno-foo options to mips_option_groups.
266 lappend mips_option_groups $option "-m(no-|)$option"
269 # Add -mfoo= options to mips_option_groups.
276 lappend mips_option_groups $option "-m$option=.*"
279 # Add -ffoo/-fno-foo options to mips_option_groups.
286 lax-vector-conversions
290 lappend mips_option_groups $option "-f(no-|)$option"
293 # A list of option groups that have an impact on the ABI.
294 set mips_abi_groups {
308 # mips_option_tests(OPTION) is some assembly code that will run to completion
309 # on a target that supports OPTION.
310 set mips_option_tests(-mips16) {
322 set mips_option_tests(-mpaired-single) {
328 set mips_option_tests(-mips3d) {
338 madd.s $f4,$f2,$f2,$f4
340 set mips_option_tests(-mdsp) {
345 set mips_option_tests(-mdspr2) {
351 # Canonicalize command-line option OPTION.
352 proc mips_canonicalize_option { option } {
353 regsub {^-mips([1-5]|32*|64*)$} $option {-march=mips\1} option
355 regsub {^-mel$} $option {-EL} option
356 regsub {^-meb$} $option {-EB} option
358 regsub {^-O$} $option {-O1} option
360 # MIPS doesn't use -fpic and -fPIC to distinguish between code models.
361 regsub {^-f(no-|)PIC} $option {-f\1pic} option
366 # Return true if OPTION1 and OPTION2 represent the same command-line option.
367 proc mips_same_option_p { option1 option2 } {
368 return [string equal \
369 [mips_canonicalize_option $option1] \
370 [mips_canonicalize_option $option2]]
373 # Preprocess CODE using target_compile options OPTIONS. Return the
375 proc mips_preprocess { options code } {
379 set f [open $src "w"]
382 set output [${tool}_target_compile $src "" preprocess $options]
388 # Set the target board's command-line options to NEW_OPTIONS, storing the
389 # old values in UPVAR.
390 proc mips_push_test_options { upvar new_options } {
395 set var(name) board_info([target_info name],multilib_flags)
396 if { [info exists $var(name)] } {
397 set var(old_options) [set $var(name)]
398 set $var(name) [join $new_options " "]
402 # Undo the effects of [mips_push_test_options UPVAR ...]
403 proc mips_pop_test_options { upvar } {
407 if { [info exists var(old_options)] } {
408 set $var(name) $var(old_options)
412 # Return property PROP for architecture option ARCH (which belongs to
413 # the "arch" group in mips_option_groups). See the comment at the
414 # top of the file for the valid property names.
416 # Cache the results in mips_arch_info (which can be reused between test
418 proc mips_arch_info { arch prop } {
419 global mips_arch_info
422 set arch [mips_canonicalize_option $arch]
423 if { ![info exists mips_arch_info($arch,$prop)] } {
424 mips_push_test_options saved_options {}
425 set output [mips_preprocess [list "additional_flags=$arch -mabi=32"] {
427 #ifdef __mips_isa_rev
428 int isa_rev = __mips_isa_rev;
433 foreach lhs { isa isa_rev } {
434 regsub ".*$lhs = (\[^;\]*).*" $output {\1} rhs
435 verbose -log "Architecture $arch has $lhs $rhs"
436 set mips_arch_info($arch,$lhs) $rhs
438 mips_pop_test_options saved_options
440 return $mips_arch_info($arch,$prop)
443 # Return the option group associated with OPTION, or "" if none.
444 proc mips_option_maybe_group { option } {
445 global mips_option_groups
447 foreach { group regexp } $mips_option_groups {
448 if { [regexp -- "^($regexp)\$" $option] } {
455 # Return the option group associated with OPTION. Raise an error if
457 proc mips_option_group { option } {
458 set group [mips_option_maybe_group $option]
459 if { [string equal $group ""] } {
460 error "Unrecognised option: $option"
465 # Return the option for option group GROUP, or "" if no option in that
466 # group has been chosen. UPSTATUS describes the option status.
467 proc mips_option { upstatus group } {
468 upvar $upstatus status
470 return $status(option,$group)
473 # If the base options for this test run include an option in group GROUP,
474 # return that option, otherwise return "".
475 proc mips_original_option { group } {
476 global mips_base_options
478 return [mips_option mips_base_options $group]
481 # Return true if the test described by UPSTATUS requires a specific
482 # option in group GROUP. UPSTATUS describes the option status.
483 proc mips_test_option_p { upstatus group } {
484 upvar $upstatus status
486 return $status(test_option_p,$group)
489 # If the test described by UPSTATUS requires a particular option in group
490 # GROUP, return that option, otherwise return "".
491 proc mips_test_option { upstatus group } {
492 upvar $upstatus status
494 if { [mips_test_option_p status $group] } {
495 return [mips_option status $group]
501 # Return true if the options described by UPSTATUS include OPTION.
502 proc mips_have_option_p { upstatus option } {
503 upvar $upstatus status
505 return [mips_same_option_p \
506 [mips_option status [mips_option_group $option]] \
510 # Return true if the test described by UPSTATUS requires option OPTION.
511 proc mips_have_test_option_p { upstatus option } {
512 upvar $upstatus status
514 set group [mips_option_group $option]
515 return [mips_same_option_p [mips_test_option status $group] $option]
518 # If the test described by UPSTATUS does not specify an option in
519 # OPTION's group, act as though it had specified OPTION.
521 # The first optional argument indicates whether the option should be
522 # treated as though it were wrapped in parentheses; see the comment at
523 # the top of the file for details about this convention. The default is 0.
524 proc mips_make_test_option { upstatus option args } {
525 upvar $upstatus status
527 set group [mips_option_group $option]
528 if { ![mips_test_option_p status $group] } {
529 set status(option,$group) $option
530 set status(test_option_p,$group) 1
531 if { [llength $args] == 0 || ![lindex $args 0] } {
532 set status(explicit_p,$group) 1
537 # If the test described by UPSTATUS requires option FROM, assume that
538 # it implicitly requires option TO.
539 proc mips_option_dependency { upstatus from to } {
540 upvar $upstatus status
542 if { [mips_have_test_option_p status $from] } {
543 mips_make_test_option status $to
547 # Return true if the given arch-group option specifies a 32-bit ISA.
548 proc mips_32bit_arch_p { option } {
549 set isa [mips_arch_info $option isa]
550 return [expr { $isa < 3 || $isa == 32 }]
553 # Return true if the given arch-group option specifies a 64-bit ISA.
554 proc mips_64bit_arch_p { option } {
555 return [expr { ![mips_32bit_arch_p $option] }]
558 # Return true if the given abi-group option implicitly requires -mgp32.
559 proc mips_32bit_abi_p { option } {
560 switch -glob -- $option {
568 # Return true if the given abi-group option implicitly requires -mgp64.
569 proc mips_64bit_abi_p { option } {
570 switch -glob -- $option {
580 # Check whether the current target supports all the options that the
581 # current test requires. Return "" if so, otherwise return one of
582 # the incompatible options. UPSTATUS describes the option status.
583 proc mips_first_unsupported_option { upstatus } {
584 global mips_option_tests
585 upvar $upstatus status
587 foreach { option code } [array get mips_option_tests] {
588 if { [mips_have_test_option_p status $option] } {
589 regsub -all "\n" $code "\\n\\\n" asm
590 # Use check_runtime from target-supports.exp, which caches
592 if { ![check_runtime mips_option_$option [subst {
593 __attribute__((nomips16)) int
609 # Initialize this testsuite for a new test variant.
610 proc mips-dg-init {} {
611 # Invariant information.
612 global mips_option_groups
614 # Internally-generated information about this run.
615 global mips_base_options
616 global mips_extra_options
618 # Override dg-options with our mips-dg-options routine.
619 rename dg-options mips-old-dg-options
620 rename mips-dg-options dg-options
622 # Start with a fresh option status.
623 array unset mips_base_options
624 foreach { group regexp } $mips_option_groups {
625 set mips_base_options(option,$group) ""
626 set mips_base_options(explicit_p,$group) 0
627 set mips_base_options(test_option_p,$group) 0
630 # Use preprocessor macros to work out as many implicit options as we can.
631 set output [mips_preprocess "" {
632 const char *options[] = {
633 #if !defined _MIPS_SIM
635 #elif _MIPS_SIM==_ABIO32
637 #elif _MIPS_SIM==_ABIO64
639 #elif _MIPS_SIM==_ABIN32
645 "-march=" _MIPS_ARCH,
653 #ifdef __mips_hard_float
671 #if _MIPS_SZLONG == 64
689 #ifdef __mips_paired_single_float
692 "-mno-paired-single",
701 #if __mips_dsp_rev >= 2
707 #if __mips_dsp_rev >= 1
714 "addressing=absolute",
717 #ifdef __mips_smartmips
726 foreach line [split $output "\r\n"] {
727 # Poor man's string concatenation.
728 regsub -all {" "} $line "" line
729 if { [regexp {"(.*)",} $line dummy option] } {
730 set group [mips_option_group $option]
731 set mips_base_options(option,$group) $option
735 # Process the target's multilib options, saving any unrecognized
736 # ones in mips_extra_options.
737 set mips_extra_options {}
738 foreach option [split [board_info target multilib_flags]] {
739 set group [mips_option_maybe_group $option]
740 if { ![string equal $group ""] } {
741 set mips_base_options(option,$group) $option
742 set mips_base_options(explicit_p,$group) 1
744 lappend mips_extra_options $option
749 # Finish a test run started by mips-dg-init.
750 proc mips-dg-finish {} {
751 rename dg-options mips-dg-options
752 rename mips-old-dg-options dg-options
755 # Override dg-options so that we can do some MIPS-specific processing.
756 # All options used in this testsuite must appear in mips_option_groups.
758 # Test options override multilib options. Certain test options can
759 # also imply other test options, which also override multilib options.
760 # These dependencies are ordered as follows:
764 # -mips16 -mno-mips16
766 # -mips3d -mno-mips3d
768 # -mpaired-single -mno-paired-single
772 # -mhard-float -msoft-float
778 # -mshared -mno-shared
782 # addressing=unknown addressing=absolute
784 # -mabicalls -mno-abicalls
788 # <other value> -mr10k-cache-barrier=none
790 # -mfix-r10000 -mno-fix-r10000
792 # -mbranch-likely -mno-branch-likely
794 # -msmartmips -mno-smartmips
798 # -mexplicit-relocs -mno-explicit-relocs
800 # +-- gp, abi & arch ---------+
802 # For these purposes, the "gp", "abi" & "arch" option groups are treated
804 proc mips-dg-options { args } {
806 upvar dg-extra-tool-flags extra_tool_flags
807 upvar dg-do-what do_what
809 # Invariant information.
810 global mips_option_groups
811 global mips_abi_groups
813 # Information about this run.
814 global mips_base_options
816 # Start out with the default option state.
817 array set options [array get mips_base_options]
819 # Record the options that this test explicitly needs.
820 foreach option [lindex $args 1] {
821 set all_but_p [regexp {^\((.*)\)$} $option dummy option]
822 set group [mips_option_group $option]
823 if { [mips_test_option_p options $group] } {
824 set old [mips_option options $group]
825 error "Inconsistent $group option: $old vs. $option"
827 mips_make_test_option options $option $all_but_p
831 # Handle dependencies between options on the left of the
832 # dependency diagram.
833 mips_option_dependency options "-mips3d" "-mpaired-single"
834 mips_option_dependency options "-mpaired-single" "-mfp64"
835 mips_option_dependency options "-mfp64" "-mhard-float"
836 mips_option_dependency options "-fpic" "-mshared"
837 mips_option_dependency options "-mshared" "-mno-plt"
838 mips_option_dependency options "-mno-plt" "addressing=unknown"
839 mips_option_dependency options "-mabicalls" "-G0"
840 mips_option_dependency options "-mno-gpopt" "-mexplicit-relocs"
842 # Work out information about the current ABI.
843 set abi_test_option_p [mips_test_option_p options abi]
844 set abi [mips_option options abi]
845 set eabi_p [mips_same_option_p $abi "-mabi=eabi"]
847 # If the test forces a particular ABI, set the register size
849 if { $abi_test_option_p } {
850 if { [mips_32bit_abi_p $abi] } {
851 mips_make_test_option options "-mgp32"
852 } elseif { [mips_64bit_abi_p $abi] } {
853 mips_make_test_option options "-mgp64"
857 # See whether forbid_cpu forces us to choose a new architecture.
858 set arch [mips_option mips_base_options arch]
859 set force_generic_isa_p [expr {
860 [regexp "forbid_cpu=(.*)" [mips_option options forbid_cpu] dummy spec]
861 && [regexp -- "^-march=$spec\$" $arch]
864 # Interpret the special "isa" and "isa_rev" options. If we have
865 # a choice of a 32-bit or a 64-bit architecture, prefer to keep
866 # the -mgp setting the same.
867 set spec [mips_option options arch]
868 if { [regexp {^[^-]} $spec] } {
869 if { [string equal $spec "isa=loongson"] } {
870 if { ![regexp {^-march=loongson} $arch] } {
871 set arch "-march=loongson2f"
874 if { ![regexp {^(isa(?:|_rev))(=|<=|>=)([0-9]*)$} \
875 $spec dummy prop relation value nocpus] } {
876 error "Unrecognized isa specification: $spec"
878 set current [mips_arch_info $arch $prop]
879 if { $force_generic_isa_p
880 || ($current < $value && ![string equal $relation "<="])
881 || ($current > $value && ![string equal $relation ">="])
882 || ([mips_have_test_option_p options "-mgp64"]
883 && [mips_32bit_arch_p $arch]) } {
884 # The current setting is out of range; it cannot
885 # possibly be used. Find a replacement that can.
886 if { [string equal $prop "isa"] } {
887 set arch "-mips$value"
888 } elseif { $value == 0 } {
891 if { [mips_have_option_p options "-mgp32"] } {
897 append arch "r$value"
902 set options(option,arch) $arch
905 # Work out information about the current architecture.
906 set arch_test_option_p [mips_test_option_p options arch]
907 set arch [mips_option options arch]
908 set isa [mips_arch_info $arch isa]
909 set isa_rev [mips_arch_info $arch isa_rev]
911 # If the test forces a 32-bit architecture, force -mgp32.
912 # Force the current -mgp setting otherwise; if we don't,
913 # some configurations would make a 64-bit architecture
915 if { $arch_test_option_p } {
916 if { [mips_32bit_arch_p $arch] } {
917 mips_make_test_option options "-mgp32"
919 mips_make_test_option options [mips_option options gp]
923 # We've now fixed the GP register size. Make it easily available.
924 set gp_size [expr { [mips_have_option_p options "-mgp32"] ? 32 : 64 }]
926 # Handle dependencies between the pre-arch options and the arch option.
927 # This should mirror the arch and post-arch code below.
928 if { !$arch_test_option_p } {
929 # We need a revision 2 or better ISA for:
931 # - the combination of -mgp32 -mfp64
934 && (($gp_size == 32 && [mips_have_test_option_p options "-mfp64"])
935 || [mips_have_test_option_p options "-mdsp"]
936 || [mips_have_test_option_p options "-mdspr2"]) } {
937 if { $gp_size == 32 } {
938 mips_make_test_option options "-mips32r2"
940 mips_make_test_option options "-mips64r2"
942 # We need a MIPS32 or MIPS64 ISA for:
944 # - paired-single instructions(*)
946 # (*) Note that we don't support MIPS V at the moment.
947 } elseif { $isa_rev < 1
948 && [mips_have_test_option_p options "-mpaired-single"] } {
949 if { $gp_size == 32 } {
950 mips_make_test_option options "-mips32"
952 mips_make_test_option options "-mips64"
954 # We need MIPS III or higher for:
956 # - the "cache" instruction
958 && ([mips_have_test_option_p options \
959 "-mr10k-cache-barrier=load-store"]
960 || [mips_have_test_option_p options \
961 "-mr10k-cache-barrier=store"]) } {
962 mips_make_test_option options "-mips3"
963 # We need MIPS II or higher for:
965 # - branch-likely instructions(*)
967 # (*) needed by both -mbranch-likely and -mfix-r10000
969 && ([mips_have_test_option_p options "-mbranch-likely"]
970 || [mips_have_test_option_p options "-mfix-r10000"]) } {
971 mips_make_test_option options "-mips2"
972 # Check whether we need to switch from a 32-bit processor to the
973 # "nearest" 64-bit processor.
974 } elseif { $gp_size == 64 && [mips_32bit_arch_p $arch] } {
975 if { $isa_rev == 0 } {
976 mips_make_test_option options "-mips3"
977 } elseif { $isa_rev == 1 } {
978 mips_make_test_option options "-mips64"
980 mips_make_test_option options "-mips64r$isa_rev"
982 # Otherwise, if the current choice of architecture is unacceptable,
983 # choose the equivalent generic architecture.
984 } elseif { $force_generic_isa_p } {
985 set arch "-mips[mips_arch_info $arch isa]"
986 if { $isa_rev > 1 } {
987 append arch "r$isa_rev"
989 mips_make_test_option options $arch
996 # Set an appropriate ABI, handling dependencies between the pre-abi
997 # options and the abi options. This should mirror the abi and post-abi
999 if { !$abi_test_option_p } {
1001 && ([mips_have_option_p options "-mabicalls"]
1003 && [mips_have_option_p options "-mfp64"]))) } {
1004 # EABI doesn't support -mabicalls.
1005 # EABI doesn't support the combination -mgp32 -mfp64.
1007 } elseif { [mips_have_option_p options "-mips16"]
1008 && ![mips_same_option_p $abi "-mabi=32"]
1009 && ![mips_same_option_p $abi "-mabi=o64"]
1010 && (![mips_have_option_p options "addressing=absolute"]
1011 || [mips_have_option_p options "-mhard-float"]) } {
1012 # -mips16 -mhard-float requires o32 or o64.
1013 # -mips16 PIC requires o32 or o64.
1018 if { $gp_size == 32 } {
1019 if { $force_abi || [mips_64bit_abi_p $abi] } {
1020 mips_make_test_option options "-mabi=32"
1023 if { $force_abi || [mips_32bit_abi_p $abi] } {
1024 # All configurations should have an assembler that
1025 # supports o64, since it requires the same BFD target
1026 # vector as o32. In contrast, many assembler
1027 # configurations do not have n32 or n64 support.
1028 mips_make_test_option options "-mabi=o64"
1035 # Handle dependencies between the abi options and the post-abi options.
1036 # This should mirror the abi and pre-abi code above.
1037 if { $abi_test_option_p } {
1039 mips_make_test_option options "-mno-abicalls"
1040 if { $gp_size == 32 } {
1041 mips_make_test_option options "-mfp32"
1044 if { [mips_have_option_p options "-mips16"]
1045 && ![mips_same_option_p $abi "-mabi=32"]
1046 && ![mips_same_option_p $abi "-mabi=o64"]
1047 && (![mips_have_option_p options "addressing=absolute"]
1048 || [mips_have_option_p options "-mhard-float"]) } {
1049 if { [mips_test_option_p options mips16] } {
1050 mips_make_test_option options "addressing=absolute"
1051 mips_make_test_option options "-msoft-float"
1053 mips_make_test_option options "-mno-mips16"
1060 # Handle dependencies between the arch option and the post-arch options.
1061 # This should mirror the arch and pre-arch code above.
1062 if { $arch_test_option_p } {
1064 mips_make_test_option options "-mno-branch-likely"
1065 mips_make_test_option options "-mno-fix-r10000"
1068 mips_make_test_option options "-mr10k-cache-barrier=none"
1070 if { $isa_rev < 1 } {
1071 mips_make_test_option options "-mno-paired-single"
1073 if { $isa_rev < 2 } {
1074 if { $gp_size == 32 } {
1075 mips_make_test_option options "-mfp32"
1077 mips_make_test_option options "-mno-dsp"
1078 mips_make_test_option options "-mno-dspr2"
1085 # Handle dependencies between options on the right of the diagram.
1086 mips_option_dependency options "-mno-explicit-relocs" "-mgpopt"
1087 switch -- [mips_test_option options small-data] {
1091 mips_make_test_option options "-mno-abicalls"
1094 if { [mips_have_option_p options "-mabicalls"] } {
1095 mips_option_dependency options "addressing=absolute" "-mplt"
1097 mips_option_dependency options "-mplt" "-msym32"
1098 mips_option_dependency options "-mplt" "-mno-shared"
1099 mips_option_dependency options "-mno-shared" "-fno-pic"
1100 mips_option_dependency options "-mfp32" "-mno-paired-single"
1101 mips_option_dependency options "-msoft-float" "-mno-paired-single"
1102 mips_option_dependency options "-mno-paired-single" "-mno-mips3d"
1104 # If the test requires an unsupported option, change run tests
1107 switch -- [lindex $do_what 0] {
1109 set option [mips_first_unsupported_option options]
1110 if { ![string equal $option ""] } {
1111 set do_what [lreplace $do_what 0 0 link]
1112 verbose -log "Downgraded to a 'link' test due to unsupported option '$option'"
1117 # If the test has overridden a option that changes the ABI,
1118 # downgrade a link or execution test to an assembler test.
1119 foreach group $mips_abi_groups {
1120 set old_option [mips_original_option $group]
1121 set new_option [mips_option options $group]
1122 if { ![mips_same_option_p $old_option $new_option] } {
1123 switch -- [lindex $do_what 0] {
1126 set do_what [lreplace $do_what 0 0 assemble]
1127 verbose -log "Downgraded to an 'assemble' test due to incompatible $group option ($old_option changed to $new_option)"
1134 # Add all options to the dg variable.
1135 set options(explicit_p,addressing) 0
1136 set options(explicit_p,forbid_cpu) 0
1137 foreach { group regexp } $mips_option_groups {
1138 if { $options(explicit_p,$group) } {
1139 append extra_tool_flags " " $options(option,$group)
1143 # If the test is MIPS16-compatible, provide a counterpart to the
1144 # NOMIPS16 convenience macro.
1145 if { [mips_have_test_option_p options "-mips16"] } {
1146 append extra_tool_flags " -DMIPS16=__attribute__((mips16))"
1149 # Use our version of gcc-dg-test for this test.
1150 if { ![string equal [info procs "mips-gcc-dg-test"] ""] } {
1151 rename gcc-dg-test mips-old-gcc-dg-test
1152 rename mips-gcc-dg-test gcc-dg-test
1156 # A version of gcc-dg-test that is used by dg-options tests.
1157 proc mips-gcc-dg-test { prog do_what extra_tool_flags } {
1159 global mips_extra_options
1161 # Override the user's chosen test options with the combined test/user
1163 mips_push_test_options saved_options $mips_extra_options
1164 set result [gcc-dg-test-1 gcc_target_compile $prog \
1165 $do_what $extra_tool_flags]
1166 mips_pop_test_options saved_options
1168 # Restore the usual gcc-dg-test.
1169 rename gcc-dg-test mips-gcc-dg-test
1170 rename mips-old-gcc-dg-test gcc-dg-test
1177 # MIPS16 is defined by "-mips16" or "(-mips16)" in dg-options.
1178 dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] "" \
1179 "-DNOMIPS16=__attribute__((nomips16))"