include/opcode/
[external/binutils.git] / gas / testsuite / gas / mips / mips.exp
1 #
2 # Some generic MIPS tests
3 #
4
5 # When adding a new test to this file, try to do the following things:
6 #
7 # * If testing assembly and disassembly of code, don't forget to test
8 # the actual bit encodings of the instructions (using the
9 # --show-raw-insn flag to objdump). 
10 #
11 # * Try to run the test for as many architectures as appropriate,
12 # using the "run_dump_test_arches" or "run_list_test_arches" functions,
13 # along with the output from a call to "mips_arch_list_matching."
14 #
15 # * Be sure to compare the test output before and after your testsuite
16 # changes, to verify that existing and new tests were run as expected.
17 # Look for expect ERROR messages in the testsuite .log file to make sure
18 # the new expect code did not contain errors.
19
20 # To add support for a new CPU to this file, add an appropriate entry
21 # to the sequence of "mips_arch_create" function calls below, and test
22 # the result.  The new CPU should automatically be used when running
23 # various tests.  If the new CPU is the default CPU for any tool
24 # targets, make sure the call to "mips_arch_create" reflects that fact.
25
26
27 # "LOSE" marks information about tests which fail at a particular point
28 # in time, but which are not XFAILed.  Either they used to pass
29 # and indicate either regressions or the need to tweak the tests to keep
30 # up the with code, or they are new tests and it is unknown whether or not
31 # they should pass as-is for the given object formats.
32
33
34 # The functions below create and manipulate an "architecture data
35 # array" which contains entries for each MIPS architecture (or CPU)
36 # known to these tests.  The array contains the following information
37 # for each architecture, indexed by the name of the architecture
38 # described by the entry:
39 #
40 # displayname: The name of the entry to be used for pretty-printing.
41 #
42 # gprsize: The size in bits of General Purpose Registers provided by
43 # the architecture (must be 32 or 64).
44 #
45 # props: A list of text strings which are associated with the
46 # architecture.  These include the architecture name as well as
47 # information about what instructions the CPU supports.  When matching
48 # based on properties, an additional property is added to the normal
49 # property list, "gpr<gprsize>" so that tests can match CPUs which
50 # have GPRs of a specific size.  The following properties are most
51 # useful when matching properties for generic (i.e., not CPU-specific)
52 # tests:
53 #
54 #       mips1, mips2, mips3, mips4, mips5, mips32, mips64
55 #               The architecture includes the instructions defined
56 #               by that MIPS ISA.
57 #
58 #       fpisa3, fpisa4, fpisa5
59 #               The architecture includes the floating-point
60 #               instructions defined by that MIPS ISA.
61 #
62 #       gpr_ilocks
63 #               The architecture interlocks GPRs accesses.  (That is,
64 #               there are no load delay slots.)
65 #
66 #       mips3d  The architecture includes the MIPS-3D ASE.
67 #
68 #       ror     The architecture includes hardware rotate instructions.
69 #
70 #       gpr32, gpr64
71 #               The architecture provides 32- or 64-bit General Purpose
72 #               Registers.
73 #
74 # as_flags: The assembler flags used when assembling tests for this
75 # architecture.
76 #
77 # objdump_flags: The objdump flags used when disassembling tests for
78 # this architecture.
79 #
80 # Most entries in the architecture array will have values in all of
81 # the fields above.  One entry, "default" represents the default CPU
82 # based on the target of the assembler being built.  If always has
83 # empty "as_flags" and "objdump_flags."
84
85 # mips_arch_init
86 #
87 # This function initializes the architecture data array ("mips_arches")
88 # to be empty.
89 proc mips_arch_init {} {
90     global mips_arches
91
92     # Catch because the variable won't be set the first time through.
93     catch {unset mips_arches}
94 }
95
96 # mips_arch_create ARCH GPRSIZE EXTENDS PROPS AS_FLAGS OBJDUMP_FLAGS \
97 #                  (optional:) DEFAULT_FOR_TARGETS
98 #
99 # This function creates a new entry in the architecture data array,
100 # for the architecture or CPU named ARCH, and fills in the entry
101 # according to the rest of the arguments.
102 #
103 # The new entry's property list is initialized to contain ARCH, any
104 # properties specified by PROPS, and the properties associated with
105 # the entry specified by EXTENDS.  (The new architecture is considered
106 # to extend the capabilities provided by that architecture.)
107 #
108 # If DEFAULT_FOR_TARGETS is specified, it is a list of targets for which
109 # this architecture is the default architecture.  If "istarget" returns
110 # true for any of the targets in the list, a "default" entry will be
111 # added to the architecture array which indicates that ARCH is the default
112 # architecture.
113 proc mips_arch_create {arch gprsize extends props as_flags objdump_flags
114                        {default_for_targets {}}} {
115     global mips_arches
116
117     if { [info exists mips_arches($arch)] } {
118              error "mips_arch_create: arch \"$arch\" already exists"
119     }
120     if { $gprsize != 32 && $gprsize != 64 } {
121         error "mips_arch_create: invalid GPR size $gprsize"
122     }
123
124     set archdata(displayname) $arch
125     set archdata(gprsize) $gprsize
126     set archdata(as_flags) $as_flags
127     set archdata(objdump_flags) $objdump_flags
128     set archdata(props) $arch
129     eval lappend archdata(props) $props
130     if { [string length $extends] != 0 } {
131         eval lappend archdata(props) [mips_arch_properties $extends 0]
132     }
133
134     set mips_arches($arch) [array get archdata]
135
136     # Set as default if appropriate.
137     foreach target $default_for_targets {
138         if { [istarget $target] } {
139             if { [info exists mips_arches(default)] } {
140                 error "mips_arch_create: default arch already exists"
141             }
142
143             set archdata(displayname) "default = $arch"
144             set archdata(as_flags) ""
145             set archdata(objdump_flags) ""
146
147             set mips_arches(default) [array get archdata]
148             break
149         }
150     }
151 }
152
153 # mips_arch_destroy ARCH
154 #
155 # The opposite of the above.  This function removes an entry from
156 # the architecture data array, for the architecture or CPU named ARCH.
157
158 proc mips_arch_destroy {arch} {
159     global mips_arches
160
161     if { [info exists mips_arches($arch)] } {
162         unset mips_arches($arch)
163     }
164 }
165
166 # mips_arch_list_all
167 #
168 # This function returns the list of all names of entries in the
169 # architecture data array (including the default entry, if a default
170 # is known).
171 proc mips_arch_list_all {} {
172     global mips_arches
173     return [lsort -dictionary [array names mips_arches]]
174 }
175
176 # mips_arch_data ARCH
177 #
178 # This function returns the information associated with ARCH
179 # in the architecture data array, in "array get" form.
180 proc mips_arch_data {arch} {
181     global mips_arches
182
183     if { ! [info exists mips_arches($arch)] } {
184         error "mips_arch_data: unknown arch \"$arch\""
185     }
186     return $mips_arches($arch)
187 }
188
189 # mips_arch_displayname ARCH
190 #
191 # This function returns the printable name associated with ARCH in
192 # the architecture data array.
193 proc mips_arch_displayname {arch} {
194     array set archdata [mips_arch_data $arch]
195     return $archdata(displayname)
196 }
197
198 # mips_arch_properties ARCH (optional:) INCLUDE_GPRSIZE
199 #
200 # This function returns the property list associated with ARCH in the
201 # architecture data array, including the "canonical" target name as the
202 # first element.
203 #
204 # If INCLUDE_GPRSIZE is non-zero, an additional "gpr32" or "gpr64"
205 # property will be returned as part of the list based on the
206 # architecture's GPR size.
207 proc mips_arch_properties {arch {include_gprsize 1}} {
208     array set archdata [mips_arch_data $arch]
209     set props $archdata(props)
210     if { $include_gprsize } {
211         lappend props gpr$archdata(gprsize)
212     }
213     return $props
214 }
215
216 # mips_arch_as_flags ARCH
217 #
218 # This function returns the assembler flags associated with ARCH in
219 # the architecture data array. 
220 proc mips_arch_as_flags {arch} {
221     array set archdata [mips_arch_data $arch]
222     return $archdata(as_flags)
223 }
224
225 # mips_arch_objdump_flags ARCH
226 #
227 # This function returns the objdump disassembly flags associated with
228 # ARCH in the architecture data array. 
229 proc mips_arch_objdump_flags {arch} {
230     array set archdata [mips_arch_data $arch]
231     return $archdata(objdump_flags)
232 }
233
234 # mips_arch_matches ARCH PROPMATCHLIST
235 #
236 # This function returns non-zero if ARCH matches the set of properties
237 # described by PROPMATCHLIST.  Each entry in PROPMATCHLIST can either
238 # be the name of a property which must be matched, or "!" followed by
239 # the name of a property which must not be matched.  ARCH matches
240 # PROPMATCHLIST if and only if all of the conditions specified by
241 # PROPMATCHLIST are satisfied.
242 proc mips_arch_matches {arch propmatchlist} {
243     foreach pm $propmatchlist {
244         if { [string match {!*} $pm] } {
245             # fail if present.
246             set inverted 1
247             set p [string range $pm 1 end]
248         } {
249             # fail if not present.
250             set inverted 0
251             set p $pm
252         }
253
254         set loc [lsearch -exact [mips_arch_properties $arch] $p]
255
256         # required-absent and found, or required-present and not found: fail.
257         if { ($inverted && $loc != -1) || (! $inverted && $loc == -1) } {
258             return 0
259         }
260     }
261     return 1
262 }
263
264 # mips_arch_list_matching ARGS
265 #
266 # This function returns a list of all architectures which match
267 # the conditions described by its arguments.  Its arguments are
268 # taken as a list and used as the PROPMATCHLIST in a call to
269 # "mips_arch_matches" for each known architecture.
270 proc mips_arch_list_matching {args} {
271     set l ""
272     foreach arch [mips_arch_list_all] {
273         # For now, don't match default arch until we know what its
274         # properties actually are.
275         if { [string compare $arch default] == 0
276              && [string length [mips_arch_properties default]] == 0} {
277             continue
278         }
279         if { [mips_arch_matches $arch $args] } {
280             lappend l $arch
281         }
282     }
283     return $l
284 }
285
286
287 # The functions below facilitate running various types of tests.
288
289 # run_dump_test_arch NAME OPTS ARCH
290 #
291 # Invoke "run_dump_test" for test NAME with additional assembler options OPTS.
292 # Add the assembler and disassembler flags that are associated with
293 # architecture ARCH.
294 #
295 # You can override the expected output for particular architectures
296 # and file formats.  The possible test names are, in order of preference:
297 #
298 # 1. CARCH@FORMAT@NAME.d
299 # 2. CARCH@NAME.d
300 # 3. FORMAT@NAME.d
301 # 4. NAME.d
302 #
303 # where CARCH is the "canonical" name of architecture ARCH as recorded
304 # in its associated property list, and where FORMAT is the target's
305 # file format (one of "elf", "ecoff" or "aout").
306 proc run_dump_test_arch { name opts arch } {
307     upvar elf elf ecoff ecoff aout aout
308     global subdir srcdir
309
310     set format [expr { $elf ? "elf" : $ecoff ? "ecoff" : "aout" }]
311     set proparch [lindex [mips_arch_properties $arch 0] 0]
312     set prefixes [list ${proparch}@${format}@ ${proparch}@ ]
313     if { [ string match "octeon*" $proparch ] && $proparch != "octeon" } {
314       lappend prefixes octeon@
315       lappend prefixes octeon@${format}@
316     }
317     lappend prefixes ${format}@
318     foreach prefix ${prefixes} {
319         set archname ${prefix}${name}
320         if { [file exists "$srcdir/$subdir/${archname}.d"] } {
321             set name $archname
322             break
323         }
324     }
325
326     if [catch {run_dump_test $name \
327                    "{name    {([concat $opts [mips_arch_displayname $arch]])}}
328                     {objdump {[mips_arch_objdump_flags $arch]}}
329                     {as      {[concat $opts [mips_arch_as_flags $arch]]}}"} rv] {
330         perror "$rv"
331         untested "$subdir/$name ($arch)"
332     }
333 }
334
335 # run_dump_test_arches NAME [OPTS] ARCH_LIST
336 #
337 # Invoke "run_dump_test_arch" for test NAME, for each architecture
338 # listed in ARCH_LIST.  OPTS, if specified, is a list of additional
339 # assembler options that should be used for all architectures.
340 proc run_dump_test_arches { name args } {
341     upvar elf elf ecoff ecoff aout aout
342     set opts ""
343     if { [llength $args] > 1 } {
344         set opts [lindex $args 0]
345         set args [lrange $args 1 end]
346     }
347     set arch_list [lindex $args 0]
348     foreach arch $arch_list {
349         run_dump_test_arch $name $opts $arch
350     }
351 }
352
353 # run_list_test_arch NAME OPTS ARCH
354 #
355 # Invoke "run_list_test" for test NAME with additional assembler options OPTS.
356 # Add the assembler flags that are associated with architecture ARCH.
357 proc run_list_test_arch { name opts arch } {
358     global subdir
359
360     set testname "MIPS $name ([concat $opts [mips_arch_displayname $arch]])"
361     if [catch {run_list_test \
362                    $name \
363                    [concat $opts [mips_arch_as_flags $arch]] \
364                    $testname} rv] {
365         perror "$rv"
366         untested "$testname"
367     }
368 }
369
370 # run_list_test_arches NAME [OPTS] ARCH_LIST
371 #
372 # Invoke "run_list_test_arch" for test NAME, for each architecture listed
373 # in ARCH_LIST.  OPTS, if specified, is a list of additional assembler
374 # options that should be used for all architectures.
375 proc run_list_test_arches { name args } {
376     set opts ""
377     if { [llength $args] > 1 } {
378         set opts [lindex $args 0]
379         set args [lrange $args 1 end]
380     }
381     set arch_list [lindex $args 0]
382     foreach arch $arch_list {
383         run_list_test_arch "$name" "$opts" "$arch"
384     }
385 }
386
387
388 # Create the architecture data array by providing data for all
389 # known architectures.
390 #
391 # Note that several targets pick default CPU based on ABI.  We
392 # can't easily handle that; do NOT list those targets as defaulting
393 # to any architecture.
394 mips_arch_init
395 mips_arch_create mips1  32      {}      {} \
396                         { -march=mips1 -mtune=mips1 } { -mmips:3000 }
397 mips_arch_create mips2  32      mips1   { gpr_ilocks } \
398                         { -march=mips2 -mtune=mips2 } { -mmips:6000 }
399 mips_arch_create mips3  64      mips2   { fpisa3 } \
400                         { -march=mips3 -mtune=mips3 } { -mmips:4000 }
401 mips_arch_create mips4  64      mips3   { fpisa4 } \
402                         { -march=mips4 -mtune=mips4 } { -mmips:8000 }
403 mips_arch_create mips5  64      mips4   { fpisa5 } \
404                         { -march=mips5 -mtune=mips5 } { -mmips:mips5 }
405 mips_arch_create mips32 32      mips2   {} \
406                         { -march=mips32 -mtune=mips32 } { -mmips:isa32 } \
407                         { mipsisa32-*-* mipsisa32el-*-* }
408 mips_arch_create mips32r2 32    mips32  { fpisa3 fpisa4 fpisa5 ror } \
409                         { -march=mips32r2 -mtune=mips32r2 } \
410                         { -mmips:isa32r2 } \
411                         { mipsisa32r2-*-* mipsisa32r2el-*-* }
412 mips_arch_create mips64 64      mips5   { mips32 } \
413                         { -march=mips64 -mtune=mips64 } { -mmips:isa64 } \
414                         { mipsisa64-*-* mipsisa64el-*-* }
415 mips_arch_create mips64r2 64    mips64  { mips32r2 ror } \
416                         { -march=mips64r2 -mtune=mips64r2 } \
417                         { -mmips:isa64r2 } \
418                         { mipsisa64r2-*-* mipsisa64r2el-*-* }
419 mips_arch_create mips16 32      {}      {} \
420                         { -march=mips1 -mips16 } { -mmips:16 }
421 mips_arch_create micromips 64   mips64r2 {} \
422                         { -march=mips64 -mmicromips } {}
423 mips_arch_create r3000  32      mips1   {} \
424                         { -march=r3000 -mtune=r3000 } { -mmips:3000 }
425 mips_arch_create r3900  32      mips1   { gpr_ilocks } \
426                         { -march=r3900 -mtune=r3900 } { -mmips:3900 } \
427                         { mipstx39-*-* mipstx39el-*-* }
428 mips_arch_create r4000  64      mips3   {} \
429                         { -march=r4000 -mtune=r4000 } { -mmips:4000 }
430 mips_arch_create vr5400 64      mips4   { ror } \
431                         { -march=vr5400 -mtune=vr5400 } { -mmips:5400 }
432 mips_arch_create sb1    64      mips64  { mips3d } \
433                         { -march=sb1 -mtune=sb1 } { -mmips:sb1 } \
434                         { mipsisa64sb1-*-* mipsisa64sb1el-*-* }
435 mips_arch_create octeon 64      mips64r2 {} \
436                         { -march=octeon -mtune=octeon } { -mmips:octeon } \
437                         { mips64octeon*-*-* }
438 mips_arch_create octeonp 64     octeon {} \
439                         { -march=octeon+ -mtune=octeon+ } { -mmips:octeon+ } \
440                         { }
441 mips_arch_create octeon2 64     octeonp {} \
442                         { -march=octeon2 -mtune=octeon2 } { -mmips:octeon2 } \
443                         { }
444 mips_arch_create xlr    64      mips64  {} \
445                         { -march=xlr -mtune=xlr } { -mmips:xlr }
446
447 #
448 # And now begin the actual tests!  VxWorks uses RELA rather than REL
449 # relocations, so most of the generic dump tests will not work there.
450 #
451 if { [istarget mips*-*-vxworks*] } {
452     run_dump_test "vxworks1"
453     run_dump_test "vxworks1-xgot"
454     run_dump_test "vxworks1-el"
455     run_dump_test "vxworks1-xgot-el"
456 } elseif { [istarget mips*-*-*] } {
457     set elf [expr [istarget *-*-elf*] || [istarget *-*-irix5*] || [istarget *-*-irix6* ] || [istarget *-*-linux*] || [istarget *-*-netbsd*] ]
458     set ecoff [expr [istarget *-*-ecoff*] || [istarget *-*-ultrix*] || [istarget *-*-irix\[1-4\]*] ]
459     set aout [expr [istarget *-*-bsd*] || [istarget *-*-openbsd*] ]
460     set addr32 [expr [istarget mipstx39*-*-*] || [istarget mips-*-linux*] || [istarget mipsel-*-linux*] || [istarget mips*-*-ecoff]]
461     set has_newabi [expr [istarget *-*-irix6*] || [istarget mips64*-*-linux*]]
462     set no_mips16 [expr !$elf]
463     set no_micromips [expr !$elf]
464
465     if { [istarget "mips*-*-*linux*"] || [istarget "mips*-sde-elf*"] } then {
466         set tmips "t"
467     } else {
468         set tmips ""
469     }
470     if [istarget mips*el-*-*] {
471         set el "el"
472     } {
473         set el ""
474     }
475     if { $no_mips16 } {
476         mips_arch_destroy mips16
477     }
478     if { $no_micromips } {
479         mips_arch_destroy micromips
480     }
481     
482     run_dump_test_arches "abs"          [mips_arch_list_matching mips1]
483     run_dump_test_arches "add"          [mips_arch_list_matching mips1]
484     run_dump_test_arches "and"          [mips_arch_list_matching mips1]
485     run_dump_test_arches "mips1-fp"     [mips_arch_list_matching mips1]
486     run_list_test_arches "mips1-fp" "-32 -msoft-float" \
487                                         [mips_arch_list_matching mips1]
488     run_dump_test "break20"
489     run_dump_test "trap20"
490
491     # LOSE: As of 2002-02-08, "beq" through "bltu" fail for target mips-ecoff.
492     # See http://sources.redhat.com/ml/binutils/2001-10/msg00418.html for
493     # more information.  Not sure if the fixes there are correct; should
494     # branches to external labels be allowed for ECOFF?
495     run_dump_test_arches "beq"          [mips_arch_list_matching mips1]
496     run_dump_test_arches "bge"          [mips_arch_list_matching mips1]
497     run_dump_test_arches "bgeu"         [mips_arch_list_matching mips1]
498     run_dump_test_arches "blt"          [mips_arch_list_matching mips1]
499     run_dump_test_arches "bltu"         [mips_arch_list_matching mips1]
500     run_dump_test_arches "branch-likely" [mips_arch_list_matching mips2]
501     run_dump_test_arches "branch-misc-1" [mips_arch_list_matching mips1]
502     run_dump_test_arches "branch-misc-2" [mips_arch_list_matching mips1]
503     run_dump_test_arches "branch-misc-2pic" [mips_arch_list_matching mips1]
504     run_dump_test_arches "branch-misc-2-64" [mips_arch_list_matching mips3]
505     run_dump_test_arches "branch-misc-2pic-64" [mips_arch_list_matching mips3]
506     run_dump_test "branch-misc-3"
507     run_dump_test "branch-swap"
508     run_dump_test "div"
509
510     if { !$addr32 } {
511         run_dump_test_arches "dli"              [mips_arch_list_matching mips3]
512     }
513     if $elf {
514         run_dump_test_arches "elf-jal"  [mips_arch_list_matching mips1]
515     } else {
516         run_dump_test "jal"
517     }
518     run_dump_test_arches "jal-mask-11"  [mips_arch_list_matching mips1]
519     run_dump_test_arches "jal-mask-12"  [mips_arch_list_matching mips1]
520     run_dump_test_arches "jal-mask-21"  [mips_arch_list_matching micromips]
521     run_dump_test_arches "jal-mask-22"  [mips_arch_list_matching micromips]
522     run_dump_test "eret-1"
523     run_dump_test "eret-2"
524     run_dump_test "eret-3"
525     run_dump_test_arches "24k-branch-delay-1" \
526                                         [mips_arch_list_matching mips1]
527     run_dump_test_arches "24k-triple-stores-1" \
528                                 [mips_arch_list_matching fpisa5 !octeon]
529     run_dump_test_arches "24k-triple-stores-2" \
530                                         [mips_arch_list_matching mips2]
531     run_dump_test_arches "24k-triple-stores-3" \
532                                         [mips_arch_list_matching mips2]
533     run_dump_test_arches "24k-triple-stores-4" \
534                                         [mips_arch_list_matching mips2]
535     run_dump_test_arches "24k-triple-stores-5" \
536                                         [mips_arch_list_matching mips1]
537     run_dump_test_arches "24k-triple-stores-6" \
538                                         [mips_arch_list_matching mips2]
539     run_dump_test_arches "24k-triple-stores-7" \
540                                         [mips_arch_list_matching mips2]
541     run_dump_test_arches "24k-triple-stores-8" \
542                                         [mips_arch_list_matching mips1]
543     run_dump_test_arches "24k-triple-stores-9" \
544                                         [mips_arch_list_matching mips1]
545     run_dump_test_arches "24k-triple-stores-10" \
546                                         [mips_arch_list_matching mips1]
547     if $elf {
548         run_dump_test_arches "24k-triple-stores-11" \
549                                         [mips_arch_list_matching mips1]
550     }
551
552     if $elf {
553         run_dump_test_arches "jal-svr4pic" \
554                                         [mips_arch_list_matching mips1]
555         run_dump_test_arches "jal-svr4pic-noreorder" \
556                                         [mips_arch_list_matching mips1]
557     }
558     if $elf { run_dump_test "jal-xgot" }
559     run_list_test_arches "jal-range" "-32" [mips_arch_list_matching mips1]
560     if $has_newabi { run_dump_test "jal-newabi" }
561     if !$aout { run_dump_test "la" }
562     if $elf { run_dump_test "la-svr4pic" }
563     if $elf { run_dump_test "la-xgot" }
564     if $elf { run_dump_test "lca-svr4pic" }
565     if $elf { run_dump_test "lca-xgot" }
566     if !$aout {
567         # XXX FIXME: Has mips2 and later insns with mips1 disassemblies.
568         # (Should split and then use appropriate arch lists.)
569         run_dump_test_arches "lb"       [mips_arch_list_matching mips1 !mips2]
570     }
571     if $elf {
572         run_dump_test_arches "lb-svr4pic" \
573                                 [mips_arch_list_matching mips1 !gpr_ilocks]
574         run_dump_test_arches "lb-svr4pic-ilocks" [mips_arch_list_matching gpr_ilocks]
575     }
576     if $elf {
577         # Both versions specify the cpu, so we can run both regardless of
578         # the interlocking in the configured default cpu.
579         run_dump_test "lb-xgot"
580         run_dump_test "lb-xgot-ilocks"
581     }
582     if !$aout {
583         run_dump_test_arches "ld"       [mips_arch_list_matching mips1]
584         run_dump_test_arches "ld-forward" \
585                                         [mips_arch_list_matching mips1]
586         run_dump_test_arches "sd"       [mips_arch_list_matching mips1]
587         run_dump_test_arches "sd-forward" \
588                                         [mips_arch_list_matching mips1]
589         run_dump_test_arches "l_d"      [mips_arch_list_matching mips1]
590         run_dump_test_arches "l_d-forward" \
591                                         [mips_arch_list_matching mips1]
592         run_dump_test_arches "s_d"      [mips_arch_list_matching mips1]
593         run_dump_test_arches "s_d-forward" \
594                                         [mips_arch_list_matching mips1]
595         run_dump_test_arches "ldc1"     [mips_arch_list_matching mips2]
596         run_dump_test_arches "ldc1-forward" \
597                                         [mips_arch_list_matching mips2]
598         run_dump_test_arches "sdc1"     [mips_arch_list_matching mips2]
599         run_dump_test_arches "sdc1-forward" \
600                                         [mips_arch_list_matching mips2]
601         if $has_newabi {
602             run_dump_test_arches "ld-n32" \
603                                         [mips_arch_list_matching mips3]
604             run_dump_test_arches "ld-forward-n32" \
605                                         [mips_arch_list_matching mips3]
606             run_dump_test_arches "sd-n32" \
607                                         [mips_arch_list_matching mips3]
608             run_dump_test_arches "sd-forward-n32" \
609                                         [mips_arch_list_matching mips3]
610             run_dump_test_arches "l_d-n32" \
611                                         [mips_arch_list_matching mips3]
612             run_dump_test_arches "l_d-forward-n32" \
613                                         [mips_arch_list_matching mips3]
614             run_dump_test_arches "s_d-n32" \
615                                         [mips_arch_list_matching mips3]
616             run_dump_test_arches "s_d-forward-n32" \
617                                         [mips_arch_list_matching mips3]
618             run_dump_test_arches "ldc1-n32" \
619                                         [mips_arch_list_matching mips3]
620             run_dump_test_arches "ldc1-forward-n32" \
621                                         [mips_arch_list_matching mips3]
622             run_dump_test_arches "sdc1-n32" \
623                                         [mips_arch_list_matching mips3]
624             run_dump_test_arches "sdc1-forward-n32" \
625                                         [mips_arch_list_matching mips3]
626             run_dump_test_arches "ld-n64" \
627                                         [mips_arch_list_matching mips3]
628             run_dump_test_arches "ld-forward-n64" \
629                                         [mips_arch_list_matching mips3]
630             run_dump_test_arches "sd-n64" \
631                                         [mips_arch_list_matching mips3]
632             run_dump_test_arches "sd-forward-n64" \
633                                         [mips_arch_list_matching mips3]
634             run_dump_test_arches "l_d-n64" \
635                                         [mips_arch_list_matching mips3]
636             run_dump_test_arches "l_d-forward-n64" \
637                                         [mips_arch_list_matching mips3]
638             run_dump_test_arches "s_d-n64" \
639                                         [mips_arch_list_matching mips3]
640             run_dump_test_arches "s_d-forward-n64" \
641                                         [mips_arch_list_matching mips3]
642             run_dump_test_arches "ldc1-n64" \
643                                         [mips_arch_list_matching mips3]
644             run_dump_test_arches "ldc1-forward-n64" \
645                                         [mips_arch_list_matching mips3]
646             run_dump_test_arches "sdc1-n64" \
647                                         [mips_arch_list_matching mips3]
648             run_dump_test_arches "sdc1-forward-n64" \
649                                         [mips_arch_list_matching mips3]
650         }
651     }
652     if $elf { run_dump_test "ld-svr4pic" }
653     if $elf { run_dump_test "ld-xgot" }
654     run_dump_test_arches "li"           [mips_arch_list_matching mips1]
655     if !$aout { run_dump_test "lifloat" }
656     if $elf { run_dump_test "lif-svr4pic" }
657     if $elf { run_dump_test "lif-xgot" }
658     run_dump_test_arches "mips4"        [mips_arch_list_matching mips4]
659     run_dump_test_arches "mips4-fp" "-32" \
660                                         [mips_arch_list_matching fpisa4]
661     run_dump_test_arches "mips4-fp" "-mabi=o64" \
662                                         [mips_arch_list_matching fpisa4 gpr64]
663     run_list_test_arches "mips4-fp" "-32 -msoft-float" \
664                                         [mips_arch_list_matching fpisa4]
665     run_dump_test_arches "mips4-branch-likely" \
666                                         [mips_arch_list_matching mips4]
667     run_list_test_arches "mips4-branch-likely" "-32 -msoft-float" \
668                                         [mips_arch_list_matching mips4]
669     run_dump_test_arches "mips5-fp" "-32" \
670                                         [mips_arch_list_matching fpisa5]
671     run_dump_test_arches "mips5-fp" "-mabi=o64" \
672                                         [mips_arch_list_matching fpisa5 gpr64]
673     run_dump_test "mul"
674
675     run_dump_test_arches "rol"          [mips_arch_list_matching mips1 !ror]
676     run_dump_test_arches "rol-hw"       [mips_arch_list_matching ror]
677
678     run_dump_test_arches "rol64"        [mips_arch_list_matching gpr64 !ror]
679     run_dump_test_arches "rol64-hw"     [mips_arch_list_matching gpr64 ror]
680
681     if !$aout { run_dump_test "sb" }
682     run_dump_test "trunc"
683     if !$aout { run_dump_test "ulh" }
684     run_dump_test_arches "ulh2-eb"      [mips_arch_list_matching mips1]
685     run_dump_test_arches "ulh2-el"      [mips_arch_list_matching mips1]
686     if $elf { run_dump_test "ulh-svr4pic" }
687     if $elf { run_dump_test "ulh-xgot" }
688     if !$aout {
689         run_dump_test "ulw"
690         run_dump_test "uld"
691         run_dump_test "ush"
692         run_dump_test "usw"
693         run_dump_test "usd"
694     }
695     run_dump_test_arches "ulw2-eb" \
696                                 [mips_arch_list_matching mips1 !gpr_ilocks]
697     run_dump_test_arches "ulw2-eb-ilocks" [mips_arch_list_matching gpr_ilocks]
698     run_dump_test_arches "ulw2-el" \
699                                 [mips_arch_list_matching mips1 !gpr_ilocks]
700     run_dump_test_arches "ulw2-el-ilocks" [mips_arch_list_matching gpr_ilocks]
701
702     run_dump_test_arches "uld2-eb" [mips_arch_list_matching mips3]
703     run_dump_test_arches "uld2-el" [mips_arch_list_matching mips3]
704
705     # The mips16 test can only be run on ELF, because only ELF
706     # supports the necessary mips16 reloc.
707     if { $elf && !$no_mips16 } {
708         run_dump_test "mips16"
709         run_dump_test "mips16-64"
710         # Check MIPS16e extensions
711         run_dump_test_arches "mips16e" \
712                                 [mips_arch_list_matching mips32 !micromips]
713         # Check jalx handling
714         run_dump_test "mips16-jalx"
715         run_dump_test "mips-jalx"
716         run_dump_test "mips-jalx-2"
717         # Check MIPS16 HI16/LO16 relocations
718         run_dump_test "mips16-hilo"
719         if $has_newabi {
720             run_dump_test "mips16-hilo-n32"
721         }
722         run_dump_test "mips16-hilo-match"
723     }
724     run_dump_test "delay"
725     run_dump_test "nodelay"
726     run_dump_test "mips4010"
727     run_dump_test "mips4650"
728     run_dump_test "mips4100"
729     run_dump_test "vr4111"
730     run_dump_test "vr4120"
731     run_dump_test "vr4120-2"
732     run_dump_test "vr4130"
733     run_dump_test "vr5400"
734     run_dump_test "vr5500"
735     run_dump_test "rm7000"
736     run_dump_test "perfcount"
737     run_dump_test "lineno"
738     run_dump_test "sync"
739
740     run_dump_test_arches "mips32"       [mips_arch_list_matching mips32]
741     run_dump_test_arches "mips32-imm"   [mips_arch_list_matching mips32]
742
743     run_dump_test_arches "mips32-sf32"  [mips_arch_list_matching mips32]
744     run_list_test_arches "mips32-sf32" "-32 -msoft-float" \
745                                         [mips_arch_list_matching mips32]
746     run_dump_test_arches "mips32-cp2"   [mips_arch_list_matching mips32 \
747                                             !octeon]
748
749     run_dump_test_arches "mips32r2"     [mips_arch_list_matching mips32r2]
750     run_dump_test_arches "mips32r2-cp2" [mips_arch_list_matching mips32r2 \
751                                             !octeon]
752     run_dump_test_arches "mips32r2-fp32" \
753                                         [mips_arch_list_matching mips32r2]
754     run_list_test_arches "mips32r2-fp32" "-32 -msoft-float" \
755                                         [mips_arch_list_matching mips32r2]
756     run_list_test_arches "mips32r2-ill" "-32" \
757                         [mips_arch_list_matching mips32r2 gpr32]
758     run_list_test_arches "mips32r2-ill-fp64" "-mabi=o64" \
759                         [mips_arch_list_matching mips32r2 gpr64]
760     run_list_test_arches "mips32r2-ill-nofp" "-32 -msoft-float" \
761                         [mips_arch_list_matching mips32r2]
762
763     run_dump_test_arches "mips64"       [mips_arch_list_matching mips64]
764     run_dump_test_arches "mips64-cp2"   [mips_arch_list_matching mips64 \
765                                             !octeon]
766
767     run_dump_test_arches "mips64r2"     [mips_arch_list_matching mips64r2]
768     run_list_test_arches "mips64r2-ill" [mips_arch_list_matching mips64r2]
769
770     run_dump_test "set-arch"
771
772     if { !$addr32 } {
773         run_dump_test "mips64-mips3d"
774         run_dump_test_arches "mips64-mips3d-incl" [mips_arch_list_matching mips3d]
775
776         run_dump_test "mips64-mdmx"
777         run_dump_test "sb1-ext-mdmx"
778         run_dump_test "sb1-ext-ps"
779         run_dump_test "xlr-ext"
780     }
781
782     run_dump_test_arches "relax"        [mips_arch_list_matching mips2]
783     run_dump_test_arches "relax-at"     [mips_arch_list_matching mips2]
784     run_dump_test "relax-swap1-mips1"
785     run_dump_test "relax-swap1-mips2"
786     run_dump_test "relax-swap2"
787     run_dump_test_arches "relax-swap3"  [mips_arch_list_all]
788     run_list_test_arches "relax-bposge" "-mdsp -relax-branch" \
789                                         [mips_arch_list_matching mips64r2 \
790                                             !micromips]
791
792     run_list_test "illegal" "-32"
793     run_list_test "baddata1" "-32"
794     run_list_test "jalr" ""
795
796     # LOSE: As of 2002-02-08, the next 4 tests fail for target mips-ecoff.
797     # It's unknown whether they _should_ pass as-is, or whether different
798     # variants are needed for ELF and ECOFF.
799     run_dump_test "mips-gp32-fp32"
800     run_dump_test "mips-gp32-fp64"
801     run_dump_test "mips-gp64-fp32"
802     run_dump_test "mips-gp64-fp64"
803
804     if $elf {
805         # Make sure that -mcpu=FOO and -mFOO are equivalent.  Assemble a file
806         # containing 4650-specific instructions with -m4650 and -mcpu=4650,
807         # and verify that they're the same.  Specifically, we're checking
808         # that the EF_MIPS_MACH field is set, and that the 4650 'mul'
809         # instruction does get used.  In previous versions of GAS,
810         # only -mcpu=4650 would set the EF_MIPS_MACH field; -m4650 wouldn't.
811         run_dump_test "elf_e_flags1"
812         run_dump_test "elf_e_flags2"
813         run_dump_test "elf_e_flags3"
814         run_dump_test "elf_e_flags4"
815
816         # Check EF_MIPS_ARCH markings for each supported architecture.
817         run_dump_test "elf_arch_mips1"
818         run_dump_test "elf_arch_mips2"
819         run_dump_test "elf_arch_mips3"
820         run_dump_test "elf_arch_mips4"
821         run_dump_test "elf_arch_mips5"
822         run_dump_test "elf_arch_mips32"
823         run_dump_test "elf_arch_mips32r2"
824         run_dump_test "elf_arch_mips64"
825         run_dump_test "elf_arch_mips64r2"
826
827         # Verify that ASE markings are handled properly.
828         if { !$no_mips16 } {
829             run_dump_test "elf_ase_mips16"
830             run_dump_test "elf_ase_mips16-2"
831         }
832         if { !$no_micromips } {
833             run_dump_test "elf_ase_micromips"
834             run_dump_test "elf_ase_micromips-2"
835         }
836
837         run_dump_test "mips-gp32-fp32-pic"
838         run_dump_test "mips-gp32-fp64-pic"
839         run_dump_test "mips-gp64-fp32-pic"
840         run_dump_test "mips-gp64-fp64-pic"
841
842         run_dump_test "mips-abi32"
843         run_dump_test "mips-abi32-pic"
844         run_dump_test "mips-abi32-pic2"
845
846         run_dump_test "elf${el}-rel"
847         run_dump_test_arches "elf${el}-rel2" [mips_arch_list_matching gpr64]
848         run_dump_test "e32${el}-rel2"
849         run_dump_test "elf${el}-rel3"
850         run_dump_test_arches "elf-rel4" [mips_arch_list_matching gpr64]
851         run_dump_test "e32-rel4"
852         run_dump_test "elf-rel5"
853         run_dump_test "elf-rel6"
854         if $has_newabi {
855             run_dump_test "elf-rel6-n32"
856             run_dump_test "elf-rel6-n64"
857         }
858         run_dump_test "elf-rel7"
859         run_dump_test "elf-rel8"
860         run_dump_test "elf-rel8-mips16"
861         run_dump_test "elf-rel9"
862         run_dump_test "elf-rel9-mips16"
863         if $has_newabi {
864             run_dump_test "elf-rel10"
865             run_dump_test "elf-rel11"
866         }
867         run_dump_test "elf-rel12"
868         run_dump_test "elf-rel13"
869         run_dump_test "elf-rel13-mips16"
870         run_dump_test "elf-rel14"
871
872         if $has_newabi {
873             run_dump_test "elf-rel15"
874             run_dump_test "elf-rel16"
875
876             run_dump_test "elf-rel-got-n32"
877             run_dump_test "elf-rel-xgot-n32"
878             run_dump_test "elf-rel-got-n64"
879             run_dump_test "elf-rel-xgot-n64"
880         }
881         run_dump_test "elf-rel17"
882         if $has_newabi {
883             run_dump_test "elf-rel18"
884         }
885         run_dump_test "elf-rel19"
886         run_dump_test "elf-rel20"
887         if $has_newabi {
888             run_dump_test "elf-rel21"
889             run_dump_test "elf-rel22"
890             run_dump_test "elf-rel23"
891             run_dump_test "elf-rel23a"
892             run_dump_test "elf-rel23b"
893             run_dump_test "elf-rel24"
894         }
895
896         run_dump_test "elf-rel25"
897         run_dump_test "elf-rel25a"
898         run_dump_test "elf-rel26"
899
900         run_dump_test_arches "elf-rel27" [mips_arch_list_all]
901
902         if $has_newabi {
903             run_dump_test "elf-rel28-n32"
904             run_dump_test "elf-rel28-n64"
905         }
906
907         if { !$no_mips16 } {
908             run_dump_test "${tmips}mips${el}16-e"
909             run_dump_test "${tmips}mips${el}16-f"
910         }
911         run_dump_test "elf-consthilo"
912         run_dump_test "expr1"
913
914         run_list_test "tls-ill" "-32"
915         run_dump_test "tls-o32"
916         run_dump_test "tls-relw"
917         run_dump_test "jalr2"
918
919         run_dump_test_arches "aent"     [mips_arch_list_matching mips1]
920
921         run_dump_test_arches "branch-misc-4" \
922                                         [mips_arch_list_matching mips1]
923         run_dump_test_arches "branch-misc-4-64" \
924                                         [mips_arch_list_matching mips3]
925
926         run_dump_test_arches "loc-swap" [mips_arch_list_all]
927         run_dump_test_arches "loc-swap-dis" \
928                                         [mips_arch_list_all]
929         run_dump_test_arches "loc-swap-2" [mips_arch_list_all]
930     }
931
932     if $has_newabi {
933         run_dump_test "n32-consec"
934     }
935
936     # tests of objdump's ability to disassemble using different
937     # register names.
938     run_dump_test "gpr-names-numeric"
939     run_dump_test "gpr-names-32"
940     run_dump_test "gpr-names-n32"
941     run_dump_test "gpr-names-64"
942
943     run_dump_test "fpr-names-numeric"
944     run_dump_test "fpr-names-32"
945     run_dump_test "fpr-names-n32"
946     run_dump_test "fpr-names-64"
947
948     run_dump_test "cp0-names-numeric"
949     run_dump_test "cp0-names-r3000"
950     run_dump_test "cp0-names-r4000" \
951                   { { {name} {(r4000)} } { {objdump} {-M cp0-names=r4000} } }
952     run_dump_test "cp0-names-r4000" \
953                   { { {name} {(r4400)} } { {objdump} {-M cp0-names=r4400} } }
954     run_dump_test "cp0-names-mips32"
955     run_dump_test "cp0-names-mips32r2"
956     run_dump_test "cp0-names-mips64"
957     run_dump_test "cp0-names-mips64r2"
958     run_dump_test "cp0-names-sb1"
959
960     run_dump_test "cp0sel-names-numeric"
961     run_dump_test "cp0sel-names-mips32"
962     run_dump_test "cp0sel-names-mips32r2"
963     run_dump_test "cp0sel-names-mips64"
964     run_dump_test "cp0sel-names-mips64r2"
965     run_dump_test "cp0sel-names-sb1"
966
967     run_dump_test "hwr-names-numeric"
968     run_dump_test "hwr-names-mips32r2"
969     run_dump_test "hwr-names-mips64r2"
970
971     run_dump_test "ldstla-32"
972     run_dump_test "ldstla-32-mips3"
973     run_dump_test "ldstla-32-shared"
974     run_dump_test "ldstla-32-mips3-shared"
975     run_list_test "ldstla-32-1" "-mabi=32" \
976         "MIPS ld-st-la bad constants (ABI o32)"
977     run_list_test "ldstla-32-mips3-1" "-mabi=32" \
978         "MIPS ld-st-la bad constants (ABI o32, mips3)"
979     run_list_test "ldstla-32-1" "-KPIC -mabi=32" \
980         "MIPS ld-st-la bad constants (ABI o32, shared)"
981     run_list_test "ldstla-32-mips3-1" "-KPIC -mabi=32" \
982         "MIPS ld-st-la bad constants (ABI o32, mips3, shared)"
983     run_dump_test "ldstla-eabi64"
984     if $has_newabi {
985         run_dump_test "ldstla-n64"
986         run_dump_test "ldstla-n64-shared"
987         run_dump_test "ldstla-n64-sym32"
988     }
989
990     run_dump_test "macro-warn-1"
991     run_dump_test "macro-warn-2"
992     run_dump_test "macro-warn-3"
993     run_dump_test "macro-warn-4"
994     if $has_newabi {
995         run_dump_test "macro-warn-1-n32"
996         run_dump_test "macro-warn-2-n32"
997     }
998
999     run_dump_test "noat-1"
1000     run_list_test "noat-2" ""
1001     run_list_test "noat-3" ""
1002     run_list_test "noat-4" ""
1003     run_list_test "noat-5" ""
1004     run_list_test "noat-6" ""
1005     run_list_test "noat-7" ""
1006
1007     run_dump_test "at-1"
1008     run_list_test "at-2" "-32 -mips1" "MIPS at-2"
1009
1010     run_dump_test "loongson-2e"
1011     run_dump_test "loongson-2f"
1012     run_dump_test "loongson-2f-2"
1013     run_dump_test "loongson-2f-3"
1014
1015     run_dump_test "loongson-3a"
1016     run_dump_test "loongson-3a-2"
1017     run_dump_test "loongson-3a-3"
1018
1019     run_dump_test_arches "octeon"       [mips_arch_list_matching octeon]
1020     run_dump_test_arches "octeon-saa-saad" [mips_arch_list_matching octeonp]
1021     run_list_test_arches "octeon-ill"   [mips_arch_list_matching octeon]
1022     run_dump_test_arches "octeon-pref"  [mips_arch_list_matching octeon]
1023     run_dump_test_arches "octeon2"      [mips_arch_list_matching octeon2]
1024
1025     run_dump_test "smartmips"
1026     run_dump_test_arches "mips32-dsp"   [mips_arch_list_matching mips32r2 \
1027                                             !octeon]
1028     run_dump_test_arches "mips32-dspr2" [mips_arch_list_matching mips32r2 \
1029                                             !octeon]
1030     run_dump_test "mips64-dsp"
1031     run_dump_test "mips32-mt"
1032
1033     if { $elf && !$no_mips16 } {
1034         run_dump_test "mips16-dwarf2"
1035         if $has_newabi {
1036             run_dump_test "mips16-dwarf2-n32"
1037         }
1038     }
1039     if { !$no_mips16 } { 
1040         run_dump_test "mips16e-jrc"
1041         run_dump_test "mips16e-save"
1042         run_dump_test "mips16e-64"
1043         run_list_test "mips16e-64" "-march=mips32 -32"
1044         run_dump_test "mips16-intermix"
1045     }
1046     run_dump_test "vxworks1"
1047     run_dump_test "vxworks1-xgot"
1048     run_dump_test "vxworks1-el"
1049     run_dump_test "vxworks1-xgot-el"
1050
1051     run_dump_test "noreorder"
1052     run_dump_test "align"
1053     run_dump_test "align2"
1054     run_dump_test "align2-el"
1055     run_dump_test "align3"
1056     run_dump_test "odd-float"
1057
1058     run_list_test_arches "mips-macro-ill-sfp" "-32 -msingle-float" \
1059                                         [mips_arch_list_matching mips2]
1060     run_list_test_arches "mips-macro-ill-nofp" "-32 -msoft-float" \
1061                                         [mips_arch_list_matching mips2]
1062
1063     run_list_test_arches "mips-hard-float-flag" \
1064         "-32 -msoft-float -mhard-float" \
1065                                         [mips_arch_list_matching mips1]
1066     run_list_test_arches "mips-double-float-flag" \
1067         "-32 -msingle-float -mdouble-float" \
1068                                         [mips_arch_list_matching mips1]
1069
1070     run_dump_test "mips16-vis-1"
1071     run_dump_test "call-nonpic-1"
1072     run_dump_test "mips32-sync"
1073     run_dump_test_arches "mips32r2-sync" \
1074                                         [mips_arch_list_matching mips32r2]
1075     run_dump_test_arches "alnv_ps-swap" [mips_arch_list_matching fpisa5]
1076     run_dump_test_arches "cache" [lsort -dictionary -unique [concat \
1077                                         [mips_arch_list_matching mips3] \
1078                                         [mips_arch_list_matching mips32] ] ]
1079     run_dump_test_arches "daddi"        [mips_arch_list_matching mips3]
1080     run_dump_test_arches "pref" [lsort -dictionary -unique [concat \
1081                                         [mips_arch_list_matching mips4] \
1082                                         [mips_arch_list_matching mips32] ] ]
1083
1084     if $has_newabi { run_dump_test "cfi-n64-1" }
1085
1086     run_dump_test "pr12915"
1087     run_dump_test "reginfo-1a"
1088     run_dump_test "reginfo-1b"
1089
1090     if { !$no_micromips } {
1091         run_dump_test "micromips"
1092         run_dump_test "micromips-trap"
1093         run_list_test "micromips-size-0" \
1094             "-32 -march=mips64 -mmicromips" "microMIPS instruction size 0"
1095         run_dump_test "micromips-size-1"
1096         run_dump_test "micromips-branch-relax"
1097         run_dump_test "micromips-branch-relax-pic"
1098         run_dump_test "micromips-branch-delay"
1099     }
1100
1101     run_dump_test_arches "mcu"          [mips_arch_list_matching mips32r2 \
1102                                             !octeon]
1103 }