1 # Copyright
(C
) 1997-2024 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
146 # select a P5600 processor
148 # addressing=absolute
149 # force absolute addresses to be used
152 # forbid processors that match the given regexp; choose a
153 # generic ISA instead.
158 # (1) Try to avoid { target ... } requirements wherever possible.
159 # Specify the requirements as dg-options instead.
161 # (2) Don't worry about the consequences of
(1) for link and run tests.
162 #
If the test uses
{ dg
-do link
} or
{ dg
-do run
}, and its
163 # dg
-options are incompatible with the current target
, the
164 # testsuite will downgrade them where necessary.
166 #
(3) Try to use the bare minimum of options and leave dg
-options
167 # to work out the dependencies.
For example
, if you want
168 # a MIPS
-3D test
, you should generally just specify
-mips3d.
169 # Don
't specify an architecture option like -mips64 unless
170 # the test really doesn't work with
-mips32r2
, -mips64r2
,
173 #
(4) If you want something compatible with a particular option
,
174 # but don
't want to pass the option itself, wrap that option
175 # in parentheses. In particular, pass '(-mips16
)' if you
176 # want to use "mips16" attributes.
178 # (5) When testing a feature of a generic ISA (as opposed to a
179 # processor-specific extension), try to use the "isa" and
180 # "isa_rev" pseudo-options instead of specific architecture
181 # options. For example, if the feature is present on revision 2
182 # processors and above, try to use "isa_rev>=2" instead of
183 # "-mips32r2" or "-mips64r2".
185 # (6) If you need to disable processor-specific extensions use
186 # forbid_cpu=REGEXP instead of forcing a generic ISA.
191 # Option group or just group:
192 # See comment before mips_option_groups.
195 # The options specified in dg-options.
198 # The options that were either passed to runtest as "multilib" options
199 # (e.g. -mips4 in --target_board=mips-sim-idt/-mips4) or specified as
200 # test options. Note that options in parenthesis (i.e. (-mips16)) are
201 # not explicit and can be omitted depending on the base options.
204 # Options that are on by default without being specified in dg-options,
205 # e.g. -march=mips64r2 for mipsisa64r2-elf or because they've been
206 # passed to runtest as
"multilib" options.
209 # Many functions in this file work with option arrays. These are
210 # two
-dimensional Tcl arrays where the first
dimension can have three
211 #
values: option
, explicit_p or test_option_p. The second
dimension is
212 # the
name of the option group.
"option" contains the name of the
213 # option that is in effect from this group.
If no option is active it
214 # contains the empty string. The flags
"explicit_p" and "test_option_p"
215 # are
set for explicit and test options.
217 # Exit immediately
if this isn
't a MIPS target.
218 if ![istarget mips*-*-*] {
222 # Load support procs.
225 # A list of GROUP REGEXP pairs. Each GROUP represents a logical group of
226 # options from which only one option should be chosen. REGEXP matches all
227 # the options in that group; it is implicitly wrapped in "^(...)$".
229 # Note that -O* is deliberately omitted from this list. Tests in this
230 # directory are run at various optimisation levels and should use
231 # dg-skip-if to skip any incompatible levels.
232 set mips_option_groups {
234 addressing "addressing=.*"
235 arch "-mips([1-5]|32.*|64.*)|-march=.*|isa(|_rev)(=|<=|>=).*"
238 endianness "-E(L|B)|-me(l|b)"
239 float "-m(hard|soft)-float"
240 fpu "-m(double|single)-float"
241 forbid_cpu "forbid_cpu=.*"
245 micromips "-mmicromips|-mno-micromips"
246 mips16 "-mips16|-mno-mips16|-mflip-mips16"
247 mips3d "-mips3d|-mno-mips3d"
248 pic "-f(no-|)(pic|PIC)"
249 cb "-mcompact-branches=.*"
251 small-data "-G[0-9]+"
260 madd4_ghost "HAS_MADD4"
264 section_start "-Wl,--section-start=.*"
265 frame-header "-mframe-header-opt|-mno-frame-header-opt"
266 stack-protector "-fstack-protector"
267 stdlib "REQUIRES_STDLIB"
268 unaligned-access "-m(no-|)unaligned-access"
272 for { set option 0 } { $option < 32 } { incr option } {
273 lappend mips_option_groups "fixed-f$option" "-ffixed-f$option"
276 # Add -mfoo/-mno-foo options to mips_option_groups.
307 lappend mips_option_groups $option "-m(no-|)$option"
310 # Add -mfoo= options to mips_option_groups.
319 lappend mips_option_groups $option "-m$option=.*"
322 # Add -ffoo/-fno-foo options to mips_option_groups.
326 expensive-optimizations
333 lax-vector-conversions
335 optimize-sibling-calls
346 lappend mips_option_groups $option "-f(no-|)$option"
349 # A list of option groups that have an impact on the ABI.
350 set mips_abi_groups {
364 # mips_option_tests(OPTION) is some assembly code that will run to completion
365 # on a target that supports OPTION.
366 set mips_option_tests(-mips16) {
378 set mips_option_tests(-mmicromips) {
391 set mips_option_tests(-mpaired-single) {
397 set mips_option_tests(-mips3d) {
407 madd.s $f4,$f2,$f2,$f4
409 set mips_option_tests(-mdsp) {
414 set mips_option_tests(-mdspr2) {
419 set mips_option_tests(-mcode-readable=yes) {
441 # Canonicalize command-line option OPTION.
442 proc mips_canonicalize_option { option } {
443 regsub {^-mips([1-5]|32*|64*)$} $option {-march=mips\1} option
445 regsub {^-mel$} $option {-EL} option
446 regsub {^-meb$} $option {-EB} option
448 regsub {^-O$} $option {-O1} option
450 # MIPS doesn't use
-fpic and
-fPIC to distinguish between code models.
451 regsub
{^
-f
(no
-|
)PIC
} $option
{-f\
1pic
} option
456 #
Return true
if OPTION1 and OPTION2 represent the same command
-line option.
457 proc mips_same_option_p
{ option1 option2
} {
458 return [string equal \
459 [mips_canonicalize_option $option1
] \
460 [mips_canonicalize_option $option2
]]
463 # Preprocess CODE using target_compile options OPTIONS.
Return the
465 proc mips_preprocess
{ options code ignore_output
} {
469 set f
[open $src
"w"]
472 if { $ignore_output
} {
473 set output
[$
{tool
}_target_compile $src dummy
[pid
].i preprocess $options
]
474 file
delete dummy
[pid
].i
476 set output
[$
{tool
}_target_compile $src
"" preprocess $options]
483 #
Set the target board
's command-line options to NEW_OPTIONS, storing the
484 # old values in UPVAR.
485 proc mips_push_test_options { upvar new_options } {
490 set var(name) board_info([target_info name],multilib_flags)
491 if { [info exists $var(name)] } {
492 set var(old_options) [set $var(name)]
493 set $var(name) [join $new_options " "]
497 # Undo the effects of [mips_push_test_options UPVAR ...]
498 proc mips_pop_test_options { upvar } {
502 if { [info exists var(old_options)] } {
503 set $var(name) $var(old_options)
507 # Return property PROP for architecture option ARCH (which belongs to
508 # the "arch" group in mips_option_groups). See the comment at the
509 # top of the file for the valid property names.
511 # Cache the results in mips_arch_info (which can be reused between test
513 proc mips_arch_info { arch prop } {
514 global mips_arch_info
517 set arch [mips_canonicalize_option $arch]
518 if { ![info exists mips_arch_info($arch,$prop)] } {
519 mips_push_test_options saved_options {}
520 set output [mips_preprocess [list "additional_flags=$arch -mabi=32"] {
522 #ifdef __mips_isa_rev
523 int isa_rev = __mips_isa_rev;
528 foreach lhs { isa isa_rev } {
529 regsub ".*$lhs = (\[^;\]*).*" $output {\1} rhs
530 verbose -log "Architecture $arch has $lhs $rhs"
531 set mips_arch_info($arch,$lhs) $rhs
533 mips_pop_test_options saved_options
535 return $mips_arch_info($arch,$prop)
538 # Return the option group associated with OPTION, or "" if none.
539 proc mips_option_maybe_group { option } {
540 global mips_option_groups
542 foreach { group regexp } $mips_option_groups {
543 if { [regexp -- "^($regexp)\$" $option] } {
550 # Return the option group associated with OPTION. Raise an error if
552 proc mips_option_group { option } {
553 set group [mips_option_maybe_group $option]
554 if { [string equal $group ""] } {
555 error "Unrecognised option: $option"
560 # Return the option for option group GROUP, or "" if no option in that
561 # group has been chosen. UPSTATUS describes the option status.
562 proc mips_option { upstatus group } {
563 upvar $upstatus status
565 return $status(option,$group)
568 # If the base options for this test run include an option in group GROUP,
569 # return that option, otherwise return "".
570 proc mips_original_option { group } {
571 global mips_base_options
573 return [mips_option mips_base_options $group]
576 # Return true if the test described by UPSTATUS requires a specific
577 # option in group GROUP. UPSTATUS describes the option status.
578 proc mips_test_option_p { upstatus group } {
579 upvar $upstatus status
581 return $status(test_option_p,$group)
584 # If the test described by UPSTATUS requires a particular option in group
585 # GROUP, return that option, otherwise return "".
586 proc mips_test_option { upstatus group } {
587 upvar $upstatus status
589 if { [mips_test_option_p status $group] } {
590 return [mips_option status $group]
596 # Return true if the options described by UPSTATUS include OPTION.
597 proc mips_have_option_p { upstatus option } {
598 upvar $upstatus status
600 return [mips_same_option_p \
601 [mips_option status [mips_option_group $option]] \
605 # Return true if the options described by UPSTATUS require MIPS16 support.
606 proc mips_using_mips16_p { upstatus } {
607 upvar $upstatus status
609 return [expr { [mips_have_option_p status "-mips16"]
610 || [mips_have_option_p status "-mflip-mips16"] }]
613 # Return true if the test described by UPSTATUS requires option OPTION.
614 proc mips_have_test_option_p { upstatus option } {
615 upvar $upstatus status
617 set group [mips_option_group $option]
618 return [mips_same_option_p [mips_test_option status $group] $option]
621 # If the test described by UPSTATUS does not specify an option in
622 # OPTION's group
, act as though it had specified OPTION.
624 # The first optional
argument indicates whether the option should be
625 # treated as though it were wrapped in parentheses
; see the comment at
626 # the top of the file
for details about this convention. The default is
0.
627 proc mips_make_test_option
{ upstatus option
args } {
628 upvar $upstatus
status
630 set group
[mips_option_group $option
]
631 if { ![mips_test_option_p
status $group
] } {
632 set status(option
,$group
) $option
633 set status(test_option_p
,$group
) 1
634 if { [llength $
args] == 0 ||
![lindex $
args 0] } {
635 set status(explicit_p
,$group
) 1
640 #
If the test described by UPSTATUS requires option FROM
, assume that
641 # it implicitly requires option TO.
642 proc mips_option_dependency
{ upstatus from to
} {
643 upvar $upstatus
status
645 if { [mips_have_test_option_p
status $from
] } {
646 mips_make_test_option
status $to
650 #
Return true
if the given arch
-group option specifies a
32-bit ISA.
651 proc mips_32bit_arch_p
{ option
} {
652 set isa
[mips_arch_info $option isa
]
653 return [expr
{ $isa
< 3 || $isa
== 32 }]
656 #
Return true
if the given arch
-group option specifies a
64-bit ISA.
657 proc mips_64bit_arch_p
{ option
} {
658 return [expr
{ ![mips_32bit_arch_p $option
] }]
661 #
Return true
if the given abi
-group option implicitly requires
-mgp32.
662 proc mips_32bit_abi_p
{ option
} {
663 switch -glob
-- $option
{
671 #
Return true
if the given abi
-group option implicitly requires
-mgp64.
672 proc mips_64bit_abi_p
{ option
} {
673 switch -glob
-- $option
{
683 #
Return true
if the given abi
-group option implicitly requires
-mlong32.
684 # o64 requires this
for -mabicalls
, but not otherwise
; pick the conservative
685 # case
for simplicity.
686 proc mips_long32_abi_p
{ option
} {
687 switch -glob
-- $option
{
697 #
Return true
if the given abi
-group option implicitly requires
-mlong64.
698 proc mips_long64_abi_p
{ option
} {
699 switch -glob
-- $option
{
707 # Check whether the current target supports all the options that the
708 # current test requires.
Return "" if so, otherwise return one of
709 # the incompatible options. UPSTATUS describes the option
status.
710 proc mips_first_unsupported_option
{ upstatus
} {
711 global mips_option_tests
712 upvar $upstatus
status
714 foreach
{ option code
} [array
get mips_option_tests
] {
715 if { [mips_have_test_option_p
status $option
] } {
716 regsub
-all
"\n" $code "\\n\\\n" asm
717 # Use check_runtime from target
-supports.exp
, which caches
719 if { ![check_runtime mips_option_$option
[subst
{
720 __attribute__
((nomips16
)) int
736 # Initialize this testsuite
for a new test variant.
737 proc mips
-dg
-init
{} {
738 # Invariant information.
739 global mips_option_groups
741 # Internally
-generated information about this run.
742 global mips_base_options
743 global mips_extra_options
745 # Override dg
-options with our mips
-dg
-options routine.
746 rename dg
-options mips
-old
-dg
-options
747 rename mips
-dg
-options dg
-options
749 # Start with a fresh option
status.
750 array unset mips_base_options
751 foreach
{ group regexp
} $mips_option_groups
{
752 set mips_base_options
(option
,$group
) ""
753 set mips_base_options
(explicit_p
,$group
) 0
754 set mips_base_options
(test_option_p
,$group
) 0
757 # Use preprocessor macros to work out as many implicit options as we can.
758 set output
[mips_preprocess
"" {
759 const char
*options
[] = {
760 #
if !defined _MIPS_SIM
762 #elif _MIPS_SIM
==_ABIO32
764 #elif _MIPS_SIM
==_ABIO64
766 #elif _MIPS_SIM
==_ABIN32
772 "-march=" _MIPS_ARCH,
780 #ifdef __mips_hard_float
786 #ifdef __mips_abs2008
792 #ifdef __mips_nan2008
814 #
if _MIPS_SZLONG
== 64
826 #ifdef __mips_mips16e2
838 #ifdef __mips_paired_single_float
841 "-mno-paired-single",
844 #
if _MIPS_SPFPSET
== 32
856 #
if __mips_dsp_rev
>= 2
862 #
if __mips_dsp_rev
>= 1
869 "addressing=absolute",
872 #ifdef __mips_smartmips
878 #ifdef __mips_no_lxc1_sxc1
884 #ifdef __mips_no_madd4
902 #ifdef __mips_loongson_mmi
911 foreach line
[split $output
"\r\n"] {
912 # Poor man
's string concatenation.
913 regsub -all {" "} $line "" line
914 if { [regexp {"(.*)",} $line dummy option] } {
915 set group [mips_option_group $option]
916 set mips_base_options(option,$group) $option
920 # Process the target's multilib options
, saving
any unrecognized
921 # ones in mips_extra_options.
922 set mips_extra_options
{}
923 foreach option
[split
[board_info target multilib_flags
]] {
924 set group
[mips_option_maybe_group $option
]
925 if { ![string equal $group
""] } {
926 set mips_base_options
(option
,$group
) $option
927 set mips_base_options
(explicit_p
,$group
) 1
929 lappend mips_extra_options $option
934 # Finish a test run started by mips
-dg
-init.
935 proc mips
-dg
-finish
{} {
936 rename dg
-options mips
-dg
-options
937 rename mips
-old
-dg
-options dg
-options
940 # Override dg
-options so that we can
do some MIPS
-specific processing.
941 # All options used in this testsuite must appear in mips_option_groups.
943 # Test options override multilib options. Certain test options can
944 # also imply other test options
, which also override multilib options.
945 # These dependencies are ordered as follows
:
949 #
-mips16
/-mflip
-mips16
-mno
-mips16
951 #
-micromips
-mno
-micromips
953 #
-mips3d
-mno
-mips3d
955 #
-mpaired
-single
-mno
-paired
-single
959 #
-modd
-spreg
-mno
-odd
-spreg
961 #
-mdouble
-float
-msingle
-float
963 #
-mabs
=2008/-mabs
=legacy
<no option
>
965 #
-mhard
-float
-msoft
-float
969 #
-mrelax
-pic
-calls
-mno
-relax
-pic
-calls
973 #
-mshared
-mno
-shared
977 # addressing
=unknown addressing
=absolute
979 #
-mabicalls
-mno
-abicalls
983 #
<other value
> -mr10k
-cache-barrier
=none
985 #
-mfix
-r10000
-mno
-fix
-r10000
987 #
-mbranch
-likely
-mno
-branch
-likely
989 #
-msmartmips
-mno
-smartmips
993 #
-mexplicit
-relocs
-mno
-explicit
-relocs
1001 #
+-- gp
, abi
& arch
---------+
1003 #
For these purposes
, the
"gp", "abi" & "arch" option groups are treated
1005 proc mips
-dg
-options
{ args } {
1007 upvar dg
-extra
-tool
-flags extra_tool_flags
1008 upvar dg
-do-what do_what
1010 # Invariant information.
1011 global mips_option_groups
1012 global mips_abi_groups
1014 # Information about this run.
1015 global mips_base_options
1017 if { [llength $
args] >= 3 } {
1018 switch { [dg
-process
-target
[lindex $
args 2]] } {
1021 "F" { error "[lindex $args 0]: `xfail' not allowed here" }
1022 "P" { error "[lindex $args 0]: `xfail' not allowed here" }
1026 # Start out with the default option state.
1027 array
set options
[array
get mips_base_options
]
1029 # Record the options that this test explicitly needs.
1030 foreach option
[lindex $
args 1] {
1031 set all_but_p
[regexp
{^\
((.
*)\
)$
} $option dummy option
]
1032 set group
[mips_option_group $option
]
1033 if { [mips_test_option_p options $group
] } {
1034 set old
[mips_option options $group
]
1035 error
"Inconsistent $group option: $old vs. $option"
1037 mips_make_test_option options $option $all_but_p
1041 # Handle dependencies between the test options and the optimization ones.
1042 mips_option_dependency options
"-fno-unroll-loops" "-fno-unroll-all-loops"
1043 mips_option_dependency options
"-pg" "-fno-omit-frame-pointer"
1045 # Handle dependencies between options
on the left of the
1046 # dependency diagram.
1047 mips_option_dependency options
"-mips16" "-mno-micromips"
1048 mips_option_dependency options
"-mmicromips" "-mno-mips16"
1049 mips_option_dependency options
"-mmicromips" "-mno-mips16e2"
1050 mips_option_dependency options
"-mips3d" "-mpaired-single"
1051 mips_option_dependency options
"-mips3d" "-mno-micromips"
1052 mips_option_dependency options
"-mpaired-single" "-mfp64"
1053 mips_option_dependency options
"-mfp64" "-mhard-float"
1054 mips_option_dependency options
"-mfp32" "-mhard-float"
1055 mips_option_dependency options
"-mfpxx" "-mhard-float"
1056 mips_option_dependency options
"-mfp64" "-modd-spreg"
1057 mips_option_dependency options
"-mfp64" "-mdouble-float"
1058 mips_option_dependency options
"-mfp32" "-mdouble-float"
1059 mips_option_dependency options
"-mfpxx" "-mdouble-float"
1060 mips_option_dependency options
"-mabs=2008" "-mhard-float"
1061 mips_option_dependency options
"-mabs=legacy" "-mhard-float"
1062 mips_option_dependency options
"-mrelax-pic-calls" "-mno-plt"
1063 mips_option_dependency options
"-mrelax-pic-calls" "-mabicalls"
1064 mips_option_dependency options
"-mrelax-pic-calls" "-mexplicit-relocs"
1065 mips_option_dependency options
"-fpic" "-mshared"
1066 mips_option_dependency options
"-mshared" "-mno-plt"
1067 mips_option_dependency options
"-mshared" "-mabicalls"
1068 mips_option_dependency options
"-mno-plt" "addressing=unknown"
1069 mips_option_dependency options
"-mabicalls" "-G0"
1070 mips_option_dependency options
"-mno-gpopt" "-mexplicit-relocs"
1072 if { [check_configured_with
"with-arch=loongson3a"]
1073 ||
[check_configured_with
"with-arch=gs464"]
1074 ||
[check_configured_with
"with-arch=gs464e"]
1075 ||
[check_configured_with
"with-arch=gs264e"] } {
1076 mips_option_dependency options
"-msoft-float" "-mno-loongson-mmi"
1077 mips_option_dependency options
"-mips16" "-mno-loongson-mmi"
1078 mips_option_dependency options
"-mips16" "-mno-loongson-ext"
1079 mips_option_dependency options
"-mips16" "-mno-loongson-ext2"
1080 mips_option_dependency options
"-mmicromips" "-mno-loongson-mmi"
1081 mips_option_dependency options
"-mmicromips" "-mno-loongson-ext"
1082 mips_option_dependency options
"-mmicromips" "-mno-loongson-ext2"
1085 # Work out information about the current ABI.
1086 set abi_test_option_p
[mips_test_option_p options abi
]
1087 set abi
[mips_option options abi
]
1088 set eabi_p
[mips_same_option_p $abi
"-mabi=eabi"]
1090 #
If the test forces a particular ABI
, set the register size
1092 if { $abi_test_option_p
} {
1093 if { [mips_32bit_abi_p $abi
] } {
1094 mips_make_test_option options
"-mgp32"
1095 } elseif
{ [mips_64bit_abi_p $abi
] } {
1096 mips_make_test_option options
"-mgp64"
1100 # See whether forbid_cpu forces us to choose a new architecture.
1101 set arch
[mips_option mips_base_options arch
]
1102 set force_generic_isa_p
[expr
{
1103 [regexp
"forbid_cpu=(.*)" [mips_option options forbid_cpu] dummy spec]
1104 && [regexp
-- "^-march=$spec\$" $arch]
1107 # Interpret the special
"isa" and "isa_rev" options. If we have
1108 # a choice of a
32-bit or a
64-bit architecture
, prefer to keep
1109 # the
-mgp setting the same.
1110 set spec
[mips_option options arch
]
1111 if { [regexp
{^
[^
-]} $spec
] } {
1112 if { [string equal $spec
"isa=loongson"] } {
1113 if { ![regexp
{^
-march
=loongson
} $arch
] } {
1114 set arch
"-march=loongson2f"
1116 } elseif
{ [string equal $spec
"isa=p5600"] } {
1117 if { ![regexp
{^
-march
=p5600
} $arch
] } {
1118 set arch
"-march=p5600"
1121 if { ![regexp
{^
(isa
(?
:|_rev
))(=|
<=|
>=)([0-9]*)$
} \
1122 $spec dummy prop
relation value nocpus
] } {
1123 error
"Unrecognized isa specification: $spec"
1125 set current
[mips_arch_info $arch $prop
]
1126 if { $force_generic_isa_p
1127 ||
($current
< $value
&& ![string equal $
relation "<="])
1128 ||
($current
> $value
&& ![string equal $
relation ">="])
1129 ||
([mips_have_test_option_p options
"-mgp64"]
1130 && [mips_32bit_arch_p $arch
]) } {
1131 # The current setting is out of range
; it cannot
1132 # possibly be used. Find a replacement that can.
1133 if { [string equal $prop
"isa"] } {
1134 set arch
"-mips$value"
1135 } elseif
{ $value
== 0 } {
1138 if { [mips_have_option_p options
"-mgp32"] } {
1144 append arch
"r$value"
1149 set options
(option
,arch
) $arch
1152 # Work out information about the current architecture.
1153 set arch_test_option_p
[mips_test_option_p options arch
]
1154 set arch
[mips_option options arch
]
1155 set isa
[mips_arch_info $arch isa
]
1156 set isa_rev
[mips_arch_info $arch isa_rev
]
1157 set orig_isa_rev $isa_rev
1159 #
If the test forces a
32-bit architecture
, force
-mgp32.
1160 # Force the current
-mgp setting otherwise
; if we don
't,
1161 # some configurations would make a 64-bit architecture
1163 if { $arch_test_option_p } {
1164 if { [mips_32bit_arch_p $arch] } {
1165 mips_make_test_option options "-mgp32"
1167 mips_make_test_option options [mips_option options gp]
1171 # We've now fixed the GP register size. Make it easily available.
1172 set gp_size
[expr
{ [mips_have_option_p options
"-mgp32"] ? 32 : 64 }]
1174 # Handle dependencies between the pre
-arch options and the arch option.
1175 # This should mirror the arch and post
-arch code below.
1176 if { !$arch_test_option_p
} {
1177 # We need a revision
6 or better ISA
for:
1179 #
- When the LSA instruction is required
1181 && ([mips_have_test_option_p options
"HAS_LSA"]) } {
1182 if { $gp_size
== 32 } {
1183 mips_make_test_option options
"-mips32r6"
1185 mips_make_test_option options
"-mips64r6"
1187 # We need a revision
2 or better ISA
for:
1189 #
- the combination of
-mgp32
-mfp64
1191 } elseif
{ $isa_rev
< 2
1192 && (($gp_size
== 32 && [mips_have_test_option_p options
"-mfp64"])
1193 ||
[mips_have_test_option_p options
"-msynci"]
1194 ||
[mips_have_test_option_p options
"-mdsp"]
1195 ||
[mips_have_test_option_p options
"HAS_INS"]
1196 ||
[mips_have_test_option_p options
"HAS_MADD"]
1197 ||
[mips_have_test_option_p options
"HAS_MADDPS"]
1198 ||
[mips_have_test_option_p options
"-mdspr2"]
1199 ||
[mips_have_test_option_p options
"-mnan=2008"]
1200 ||
[mips_have_test_option_p options
"-mabs=2008"]
1201 ||
[mips_have_test_option_p options
"-mmicromips"]) } {
1202 if { $gp_size
== 32 } {
1203 mips_make_test_option options
"-mips32r2"
1205 mips_make_test_option options
"-mips64r2"
1207 # We need a MIPS32 or MIPS64 ISA
for:
1209 #
- paired
-single instructions
(*)
1210 #
- odd numbered single precision registers
1211 #
- clz clo instructions
1213 #
(*) Note that we don
't support MIPS V at the moment.
1214 } elseif { $isa_rev < 1
1215 && ([mips_have_test_option_p options "-mpaired-single"]
1216 || ([mips_have_test_option_p options "-modd-spreg"]
1217 || [mips_have_test_option_p options "HAS_CLZ"]
1218 && ![mips_have_test_option_p options "-mfp64"]))} {
1219 if { $gp_size == 32 } {
1220 mips_make_test_option options "-mips32"
1222 mips_make_test_option options "-mips64"
1224 # We need MIPS IV or higher for:
1228 && ([mips_have_test_option_p options "HAS_LXC1"]
1229 || [mips_have_test_option_p options "HAS_MADD4"]
1230 || [mips_have_test_option_p options "HAS_MOVN"]) } {
1231 mips_make_test_option options "-mips4"
1232 # We need MIPS III or higher for:
1234 # - the "cache" instruction
1236 && ([mips_have_test_option_p options \
1237 "-mr10k-cache-barrier=load-store"]
1238 || [mips_have_test_option_p options \
1239 "-mr10k-cache-barrier=store"]) } {
1240 mips_make_test_option options "-mips3"
1241 # We need MIPS II or higher for:
1243 # - branch-likely instructions(*)
1245 # (*) needed by both -mbranch-likely and -mfix-r10000
1247 && ([mips_have_test_option_p options "-mbranch-likely"]
1248 || [mips_have_test_option_p options "-mfix-r10000"]
1250 && ([mips_have_test_option_p options "-mfpxx"]
1251 || [mips_have_test_option_p options "HAS_LDC"]))) } {
1252 mips_make_test_option options "-mips2"
1253 # We need to use octeon's base ISA
if a test must not run with an
1254 # architecture that supports dmul.
1255 } elseif
{ [regexp
-- "^-march=octeon.*\$" $arch]
1256 && [mips_have_test_option_p options
"NOT_HAS_DMUL"] } {
1257 mips_make_test_option options
"-mips${isa}r${isa_rev}"
1258 # Check whether we need to
switch from mips
*r6 down to mips
*r5 due
1259 # to options that are incompatible with mips
*r6.
If we
do, use
1260 #
-mnan
=2008 because r6 is nan2008 by default and without this flag
1261 # tests that
include stdlib.h will fail due to not finding
1262 # stubs
-o32_hard.h
(r6 compilers only have stubs
-o32_hard_2008.h
)
1263 } elseif
{ $isa_rev
> 5
1264 && ([mips_have_test_option_p options
"-mdsp"]
1265 ||
[mips_have_test_option_p options
"-mdspr2"]
1266 ||
[mips_have_test_option_p options
"-mips16"]
1267 ||
[mips_have_test_option_p options
"-mmicromips"]
1268 ||
[mips_have_test_option_p options
"-mfp32"]
1269 ||
[mips_have_test_option_p options
"-mfix-r10000"]
1270 ||
[mips_have_test_option_p options
"NOT_HAS_DMUL"]
1271 ||
[mips_have_test_option_p options
"HAS_LXC1"]
1272 ||
[mips_have_test_option_p options
"HAS_MADD"]
1273 ||
[mips_have_test_option_p options
"HAS_MADD4"]
1274 ||
[mips_have_test_option_p options
"HAS_MOVN"]
1275 ||
[mips_have_test_option_p options
"-mpaired-single"]
1276 ||
[mips_have_test_option_p options
"-mnan=legacy"]
1277 ||
[mips_have_test_option_p options
"-mabs=legacy"]
1278 ||
[mips_have_test_option_p options
"!HAS_LSA"]
1279 ||
[mips_have_test_option_p options
"-mbranch-likely"]) } {
1280 if { $gp_size
== 32 } {
1281 mips_make_test_option options
"-mips32r5"
1283 mips_make_test_option options
"-mips64r5"
1285 mips_make_test_option options
"-mnan=2008"
1286 if { [mips_have_option_p options
"-mcompact-branches=always"] } {
1287 mips_make_test_option options
"-mcompact-branches=optimal"
1289 # Check whether we need to
switch from a
32-bit processor to the
1290 #
"nearest" 64-bit processor.
1291 } elseif
{ $gp_size
== 64 && [mips_32bit_arch_p $arch
] } {
1292 if { $isa_rev
== 0 } {
1293 mips_make_test_option options
"-mips3"
1294 } elseif
{ $isa_rev
== 1 } {
1295 mips_make_test_option options
"-mips64"
1297 mips_make_test_option options
"-mips64r$isa_rev"
1299 # Otherwise
, if the current choice of architecture is unacceptable
,
1300 # choose the equivalent generic architecture.
1301 } elseif
{ $force_generic_isa_p
} {
1302 set arch
"-mips[mips_arch_info $arch isa]"
1303 if { $isa_rev
> 1 } {
1304 append arch
"r$isa_rev"
1306 mips_make_test_option options $arch
1313 # Re
-calculate the isa_rev
for use in the abi handling code below
1314 set arch
[mips_option options arch
]
1315 set isa
[mips_arch_info $arch isa
]
1316 set isa_rev
[mips_arch_info $arch isa_rev
]
1318 #
Set an appropriate ABI
, handling dependencies between the pre
-abi
1319 # options and the abi options. This should mirror the abi and post
-abi
1321 if { !$abi_test_option_p
} {
1323 && ([mips_have_option_p options
"-mabicalls"]
1325 && [mips_have_option_p options
"-mfp64"]))) } {
1326 # EABI doesn
't support -mabicalls.
1327 # EABI doesn't support the combination
-mgp32
-mfp64.
1329 } elseif
{ [mips_using_mips16_p options
]
1330 && ![mips_same_option_p $abi
"-mabi=32"]
1331 && ![mips_same_option_p $abi
"-mabi=o64"]
1332 && (![mips_have_option_p options
"addressing=absolute"]
1333 ||
[mips_have_option_p options
"-mhard-float"]) } {
1334 #
-mips16
-mhard
-float requires o32 or o64.
1335 #
-mips16 PIC requires o32 or o64.
1337 } elseif
{ [mips_have_test_option_p options
"-mlong32"]
1338 && [mips_long64_abi_p $abi
] } {
1340 } elseif
{ [mips_have_test_option_p options
"-mlong64"]
1341 && [mips_long32_abi_p $abi
] } {
1343 } elseif
{ [mips_have_test_option_p options
"-mfpxx"]
1344 && ![mips_same_option_p $abi
"-mabi=32"] } {
1349 if { $gp_size
== 32 } {
1350 if { $force_abi ||
[mips_64bit_abi_p $abi
] } {
1351 if { [mips_have_test_option_p options
"-mlong64"] } {
1352 mips_make_test_option options
"-mabi=eabi"
1353 mips_make_test_option options
"-mgp32"
1355 mips_make_test_option options
"-mabi=32"
1359 if { $force_abi ||
[mips_32bit_abi_p $abi
] } {
1360 if { [mips_have_test_option_p options
"-mlong64"] } {
1361 mips_make_test_option options
"-mabi=eabi"
1362 mips_make_test_option options
"-mgp64"
1364 # All configurations should have an assembler that
1365 # supports o64
, since it requires the same BFD target
1366 # vector as o32. In contrast
, many assembler
1367 # configurations
do not have n32 or n64 support.
1368 mips_make_test_option options
"-mabi=o64"
1372 set abi_test_option_p
[mips_test_option_p options abi
]
1373 set abi
[mips_option options abi
]
1374 set eabi_p
[mips_same_option_p $abi
"-mabi=eabi"]
1377 # Handle dependencies between the abi options and the post
-abi options.
1378 # This should mirror the abi and pre
-abi code above.
1379 if { $abi_test_option_p
} {
1381 mips_make_test_option options
"-mno-abicalls"
1382 if { $isa_rev
< 6 && $gp_size
== 32 } {
1383 mips_make_test_option options
"-mfp32"
1386 if { [mips_using_mips16_p options
]
1387 && ![mips_same_option_p $abi
"-mabi=32"]
1388 && ![mips_same_option_p $abi
"-mabi=o64"]
1389 && ([mips_have_option_p options
"-mabicalls"]
1390 ||
[mips_have_option_p options
"-mhard-float"]) } {
1391 if { [mips_test_option_p options mips16
] } {
1392 mips_make_test_option options
"addressing=absolute"
1393 mips_make_test_option options
"-msoft-float"
1395 mips_make_test_option options
"-mno-mips16"
1398 if { [mips_long32_abi_p $abi
] } {
1399 mips_make_test_option options
"-mlong32"
1400 } elseif
{ [mips_long64_abi_p $abi
] } {
1401 mips_make_test_option options
"-mlong64"
1405 # Handle dependencies between the arch option and the post
-arch options.
1406 # This should mirror the arch and pre
-arch code above.
For pre
-r6
1407 # architectures this only needs to be done when we
've moved down
1408 # to a lower architecture and might need to turn features off,
1409 # but moving up from pre-r6 to r6 can remove features too.
1410 if { $arch_test_option_p || ($orig_isa_rev < 6 && $isa_rev >= 6) } {
1412 mips_make_test_option options "-mno-branch-likely"
1413 mips_make_test_option options "-mno-fix-r10000"
1416 mips_make_test_option options "-mr10k-cache-barrier=none"
1418 if { $isa_rev < 1 } {
1419 mips_make_test_option options "-mno-paired-single"
1420 if { ![mips_have_test_option_p options "-mgp64"] } {
1421 mips_make_test_option options "-mno-odd-spreg"
1424 if { $isa_rev < 2 } {
1425 if { $gp_size == 32 } {
1426 mips_make_test_option options "-mfp32"
1428 mips_make_test_option options "-mno-dsp"
1429 mips_make_test_option options "-mno-mips16e2"
1430 mips_make_test_option options "-mno-synci"
1431 mips_make_test_option options "-mno-micromips"
1432 mips_make_test_option options "-mnan=legacy"
1434 if { $isa_rev < 6 } {
1435 if { [mips_have_option_p options "-mcompact-branches=always"] } {
1436 mips_make_test_option options "-mcompact-branches=optimal"
1439 if { $isa_rev > 5 } {
1440 mips_make_test_option options "-mno-dsp"
1441 mips_make_test_option options "-mno-mips16"
1442 if { [mips_have_test_option_p options "-mdsp"] } {
1443 mips_make_test_option options "-mfp64"
1445 mips_make_test_option options "-mno-fix-r10000"
1446 mips_make_test_option options "-mno-paired-single"
1447 mips_make_test_option options "-mnan=2008"
1448 mips_make_test_option options "-mabs=2008"
1449 mips_make_test_option options "-mno-branch-likely"
1451 if { [regexp {^-march=(octeon|loongson)} $arch] } {
1452 mips_make_test_option options "-mno-micromips"
1460 # Handle dependencies between options on the right of the diagram.
1461 mips_option_dependency options "-mno-dsp" "-mno-dspr2"
1462 mips_option_dependency options "-mno-mips16" "-mno-mips16e2"
1463 mips_option_dependency options "-mno-explicit-relocs" "-mgpopt"
1464 switch -- [mips_test_option options small-data] {
1468 mips_make_test_option options "-mno-abicalls"
1471 if { [mips_have_option_p options "-mabicalls"] } {
1472 mips_option_dependency options "addressing=absolute" "-mplt"
1474 mips_option_dependency options "-mplt" "-msym32"
1475 mips_option_dependency options "-mplt" "-mno-shared"
1476 mips_option_dependency options "-mno-shared" "-fno-pic"
1477 mips_option_dependency options "-mfp32" "-mno-paired-single"
1478 mips_option_dependency options "-mfpxx" "-mno-paired-single"
1479 mips_option_dependency options "-msoft-float" "-mno-paired-single"
1480 mips_option_dependency options "-mno-paired-single" "-mno-mips3d"
1481 mips_option_dependency options "-mmsa" "-mno-micromips"
1482 mips_option_dependency options "-mmsa" "-mno-mips16"
1484 # If the test requires an unsupported option, change run tests
1487 switch -- [lindex $do_what 0] {
1489 set option [mips_first_unsupported_option options]
1490 if { ![string equal $option ""] } {
1491 set do_what [lreplace $do_what 0 0 link]
1492 verbose -log "Downgraded to a 'link
' test due to unsupported option '$option
'"
1497 # If the test has overridden a option that changes the ABI,
1498 # downgrade a link or execution test to an assembler test.
1499 foreach group $mips_abi_groups {
1500 set old_option [mips_original_option $group]
1501 set new_option [mips_option options $group]
1502 if { ![mips_same_option_p $old_option $new_option]
1503 && ![mips_same_option_p $old_option "-mfpxx"]
1504 && ![mips_same_option_p $new_option "-mfpxx"] } {
1505 switch -- [lindex $do_what 0] {
1508 set do_what [lreplace $do_what 0 0 assemble]
1509 verbose -log "Downgraded to an 'assemble
' test due to incompatible $group option ($old_option changed to $new_option)"
1516 # Add all options to the dg variable.
1517 set options(explicit_p,addressing) 0
1518 set options(explicit_p,forbid_cpu) 0
1519 foreach { group regexp } $mips_option_groups {
1520 if { $options(explicit_p,$group) } {
1521 append extra_tool_flags " " $options(option,$group)
1525 # If the test is marked as requiring standard libraries check
1526 # that the sysroot has support for the current set of test options.
1527 if { [mips_have_test_option_p options "REQUIRES_STDLIB"] } {
1528 mips_push_test_options saved_options $extra_tool_flags
1529 set output [mips_preprocess "" {
1532 mips_pop_test_options saved_options
1534 # If the preprocessing of the stdlib.h file produced errors,
1535 # mark the test as unsupported by changing the second element of
1537 # The second element of do_what holds information about test selection
1538 # and it can have one of two values:
1539 # "S" - the test is selected and will be run
1540 # "N" - the test is not selected and will not be run
1541 # This mirrors the format of dg-do-what from lib/dg.exp in DejaGNU.
1542 if { ![string equal $output ""] } {
1543 set do_what [lreplace $do_what 1 1 "N"]
1547 # If the test is MIPS16-compatible, provide a counterpart to the
1548 # NOMIPS16 convenience macro.
1549 if { [mips_have_test_option_p options "-mips16"] } {
1550 append extra_tool_flags " -DMIPS16=__attribute__((mips16))"
1553 if { [mips_have_test_option_p options "-mmicromips"] } {
1554 append extra_tool_flags " -DMICROMIPS=__attribute__((micromips))"
1557 # Use our version of gcc-dg-test for this test.
1558 if { ![string equal [info procs "mips-gcc-dg-test"] ""] } {
1559 rename gcc-dg-test mips-old-gcc-dg-test
1560 rename mips-gcc-dg-test gcc-dg-test
1564 # A version of gcc-dg-test that is used by dg-options tests.
1565 proc mips-gcc-dg-test { prog do_what extra_tool_flags } {
1567 global mips_extra_options
1569 # Override the user's chosen test options with the combined test
/user
1571 mips_push_test_options saved_options $mips_extra_options
1572 set result
[gcc
-dg
-test
-1 gcc_target_compile $prog \
1573 $do_what $extra_tool_flags
]
1574 mips_pop_test_options saved_options
1576 # Restore the usual gcc
-dg
-test.
1577 rename gcc
-dg
-test mips
-gcc
-dg
-test
1578 rename mips
-old
-gcc
-dg
-test gcc
-dg
-test
1585 gcc
-dg
-runtest
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.c
]] \
1586 "" "-DNOMIPS16=__attribute__((nomips16)) -DNOMICROMIPS=__attribute__((nomicromips)) -DNOCOMPRESSION=__attribute__((nocompression))"