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 #       gpr_ilocks
  59 #               The architecture interlocks GPRs accesses.  (That is,
  60 #               there are no load delay slots.)
  61 #
  62 #       mips3d  The architecture includes the MIPS-3D ASE.
  63 #
  64 #       ror     The architecture includes hardware rotate instructions.
  65 #
  66 #       gpr32, gpr64
  67 #               The architecture provides 32- or 64-bit General Purpose
  68 #               Registers.
  69 #
  70 # as_flags: The assembler flags used when assembling tests for this
  71 # architecture.
  72 #
  73 # objdump_flags: The objdump flags used when disassembling tests for
  74 # this architecture.
  75 #
  76 # Most entries in the architecture array will have values in all of
  77 # the fields above.  One entry, "default" represents the default CPU
  78 # based on the target of the assembler being built.  If always has
  79 # empty "as_flags" and "objdump_flags."
  80
  81 # mips_arch_init
  82 #
  83 # This function initializes the architecture data array ("mips_arches")
  84 # to be empty.
  85 proc mips_arch_init {} {
  86     global mips_arches
  87
  88     # Catch becuase the variable won't be set the first time through.
  89     catch {unset mips_arches}
  90 }
  91
  92 # mips_arch_create ARCH GPRSIZE EXTENDS PROPS AS_FLAGS OBJDUMP_FLAGS \
  93 #                  (optional:) DEFAULT_FOR_TARGETS
  94 #
  95 # This function creates a new entry in the architecture data array,
  96 # for the architecture or CPU named ARCH, and fills in the entry
  97 # according to the rest of the arguments.
  98 #
  99 # The new entry's property list is initialized to contain ARCH, any
 100 # properties specified by PROPS, and the properties associated with
 101 # the entry specified by EXTENDS.  (The new architecture is considered
 102 # to extend the capabilities provided by that architecture.)
 103 #
 104 # If DEFAULT_FOR_TARGETS is specified, it is a list of targets for which
 105 # this architecture is the default architecture.  If "istarget" returns
 106 # true for any of the targets in the list, a "default" entry will be
 107 # added to the architecture array which indicates that ARCH is the default
 108 # architecture.
 109 proc mips_arch_create {arch gprsize extends props as_flags objdump_flags
 110                        {default_for_targets {}}} {
 111     global mips_arches
 112
 113     if { [info exists mips_arches($arch)] } {
 114              error "mips_arch_create: arch \"$arch\" already exists"
 115     }
 116     if { $gprsize != 32 && $gprsize != 64 } {
 117         error "mips_arch_create: invalid GPR size $gprsize"
 118     }
 119
 120     set archdata(displayname) $arch
 121     set archdata(gprsize) $gprsize
 122     set archdata(as_flags) $as_flags
 123     set archdata(objdump_flags) $objdump_flags
 124     set archdata(props) $arch
 125     eval lappend archdata(props) $props
 126     if { [string length $extends] != 0 } {
 127         eval lappend archdata(props) [mips_arch_properties $extends 0]
 128     }
 129
 130     set mips_arches($arch) [array get archdata]
 131
 132     # Set as default if appropriate.
 133     foreach target $default_for_targets {
 134         if { [istarget $target] } {
 135             if { [info exists mips_arches(default)] } {
 136                 error "mips_arch_create: default arch already exists"
 137             }
 138
 139             set archdata(displayname) "default = $arch"
 140             set archdata(as_flags) ""
 141             set archdata(objdump_flags) ""
 142
 143             set mips_arches(default) [array get archdata]
 144             break
 145         }
 146     }
 147 }
 148
 149 # mips_arch_list_all
 150 #
 151 # This function returns the list of all names of entries in the
 152 # architecture data array (including the default entry, if a default
 153 # is known).
 154 proc mips_arch_list_all {} {
 155     global mips_arches
 156     return [lsort -dictionary [array names mips_arches]]
 157 }
 158
 159 # mips_arch_data ARCH
 160 #
 161 # This function returns the information associated with ARCH
 162 # in the architecture data array, in "array get" form.
 163 proc mips_arch_data {arch} {
 164     global mips_arches
 165
 166     if { ! [info exists mips_arches($arch)] } {
 167         error "mips_arch_data: unknown arch \"$arch\""
 168     }
 169     return $mips_arches($arch)
 170 }
 171
 172 # mips_arch_displayname ARCH
 173 #
 174 # This function returns the printable name associated with ARCH in
 175 # the architecture data array.
 176 proc mips_arch_displayname {arch} {
 177     array set archdata [mips_arch_data $arch]
 178     return $archdata(displayname)
 179 }
 180
 181 # mips_arch_properties ARCH (optional:) INCLUDE_GPRSIZE
 182 #
 183 # This function returns the property list associated with ARCH in the
 184 # architecture data array.  If INCLUDE_GPRSIZE is non-zero, an additional
 185 # "gpr32" or "gpr64" property will be returned as part of the list based
 186 # on the architecture's GPR size.
 187 proc mips_arch_properties {arch {include_gprsize 1}} {
 188     array set archdata [mips_arch_data $arch]
 189     set props $archdata(props)
 190     if { $include_gprsize } {
 191         lappend props gpr$archdata(gprsize)
 192     }
 193     return $props
 194 }
 195
 196 # mips_arch_as_flags ARCH
 197 #
 198 # This function returns the assembler flags associated with ARCH in
 199 # the architecture data array.
 200 proc mips_arch_as_flags {arch} {
 201     array set archdata [mips_arch_data $arch]
 202     return $archdata(as_flags)
 203 }
 204
 205 # mips_arch_objdump_flags ARCH
 206 #
 207 # This function returns the objdump disassembly flags associated with
 208 # ARCH in the architecture data array.
 209 proc mips_arch_objdump_flags {arch} {
 210     array set archdata [mips_arch_data $arch]
 211     return $archdata(objdump_flags)
 212 }
 213
 214 # mips_arch_matches ARCH PROPMATCHLIST
 215 #
 216 # This function returns non-zero if ARCH matches the set of properties
 217 # described by PROPMATCHLIST.  Each entry in PROPMATCHLIST can either
 218 # be the name of a property which must be matched, or "!" followed by
 219 # the name of a property which must not be matched.  ARCH matches
 220 # PROPMATCHLIST if and only if all of the conditions specified by
 221 # PROPMATCHLIST are satisfied.
 222 proc mips_arch_matches {arch propmatchlist} {
 223     foreach pm $propmatchlist {
 224         if { [string match {!*} $pm] } {
 225             # fail if present.
 226             set inverted 1
 227             set p [string range $pm 1 end]
 228         } {
 229             # fail if not present.
 230             set inverted 0
 231             set p $pm
 232         }
 233
 234         set loc [lsearch -exact [mips_arch_properties $arch] $p]
 235
 236         # required-absent and found, or required-present and not found: fail.
 237         if { ($inverted && $loc != -1) || (! $inverted && $loc == -1) } {
 238             return 0
 239         }
 240     }
 241     return 1
 242 }
 243
 244 # mips_arch_list_matching ARGS
 245 #
 246 # This function returns a list of all architectures which match
 247 # the conditions described by its arguments.  Its arguments are
 248 # taken as a list and used as the PROPMATCHLIST in a call to
 249 # "mips_arch_matches" for each known architecture.
 250 proc mips_arch_list_matching {args} {
 251     set l ""
 252     foreach arch [mips_arch_list_all] {
 253         # For now, don't match default arch until we know what its
 254         # properties actually are.
 255         if { [string compare $arch default] == 0
 256              && [string length [mips_arch_properties default]] == 0} {
 257             continue
 258         }
 259         if { [mips_arch_matches $arch $args] } {
 260             lappend l $arch
 261         }
 262     }
 263     return $l
 264 }
 265
 266
 267 # The functions below facilitate running various types of tests.
 268
 269 # run_dump_test_arch NAME ARCH
 270 #
 271 # Invoke "run_dump_test" for test NAME, with extra assembler and
 272 # disassembler flags to test architecture ARCH.
 273 proc run_dump_test_arch { name arch } {
 274     global subdir
 275
 276     if [catch {run_dump_test $name \
 277                              "{name    {([mips_arch_displayname $arch])}}
 278                               {objdump {[mips_arch_objdump_flags $arch]}}
 279                               {as      {[mips_arch_as_flags $arch]}}"} rv] {
 280         perror "$rv"
 281         untested "$subdir/$name ($arch)"
 282     }
 283 }
 284
 285 # run_dump_test_arches NAME ARCH_LIST
 286 #
 287 # Invoke "run_dump_test_arch" for test NAME, for each architecture
 288 # listed in ARCH_LIST.
 289 proc run_dump_test_arches { name arch_list } {
 290     foreach arch $arch_list {
 291         run_dump_test_arch "$name" "$arch"
 292     }
 293 }
 294
 295 # run_list_test NAME OPTS (optional): TESTNAME
 296 #
 297 # Assemble the file "NAME.d" and compare the assembler standard error
 298 # output against the regular expressions given in the file "NAME.l".
 299 # The assembler is passed the flags given in OPTS.  If TESTNAME is
 300 # provided, it will be used as the name of the test.
 301 proc run_list_test { name opts {testname {}} } {
 302     global srcdir subdir
 303     if { [string length $testname] == 0 } then {
 304             set testname "MIPS $name"
 305     }
 306     set file $srcdir/$subdir/$name
 307     gas_run ${name}.s $opts ">&dump.out"
 308     if { [regexp_diff "dump.out" "${file}.l"] } then {
 309         fail $testname
 310         verbose "output is [file_contents "dump.out"]" 2
 311         return
 312     }
 313     pass $testname
 314 }
 315
 316 # run_list_test_arch NAME OPTS ARCH
 317 #
 318 # Invoke "run_list_test" for test NAME with options OPTS, with extra
 319 # assembler flags to test architecture ARCH.
 320 proc run_list_test_arch { name opts arch } {
 321     global subdir
 322
 323     set testname "MIPS $name ([mips_arch_displayname $arch])"
 324     if [catch {run_list_test "$name" "$opts [mips_arch_as_flags $arch]" \
 325                              "$testname"} rv] {
 326         perror "$rv"
 327         untested "$testname"
 328     }
 329 }
 330
 331 # run_list_test_arches NAME OPTS ARCH_LIST
 332 #
 333 # Invoke "run_list_test_arch" for test NAME with options OPTS, for each
 334 # architecture listed in ARCH_LIST.
 335 proc run_list_test_arches { name opts arch_list } {
 336     foreach arch $arch_list {
 337         run_list_test_arch "$name" "$opts" "$arch"
 338     }
 339 }
 340
 341
 342 # Create the architecture data array by providing data for all
 343 # known architectures.
 344 #
 345 # Note that several targets pick default CPU based on ABI.  We
 346 # can't easily handle that; do NOT list those targets as defaulting
 347 # to any architecture.
 348 mips_arch_init
 349 mips_arch_create mips1  32      {}      {} \
 350                         { -march=mips1 -mtune=mips1 } { -mmips:3000 }
 351 mips_arch_create mips2  32      mips1   { gpr_ilocks } \
 352                         { -march=mips2 -mtune=mips2 } { -mmips:6000 }
 353 mips_arch_create mips3  64      mips2   {} \
 354                         { -march=mips3 -mtune=mips3 } { -mmips:4000 }
 355 mips_arch_create mips4  64      mips3   {} \
 356                         { -march=mips4 -mtune=mips4 } { -mmips:8000 }
 357 mips_arch_create mips5  64      mips4   {} \
 358                         { -march=mips5 -mtune=mips5 } { -mmips:mips5 }
 359 mips_arch_create mips32 32      mips2   {} \
 360                         { -march=mips32 -mtune=mips32 } { -mmips:isa32 } \
 361                         { mipsisa32-*-* mipsisa32el-*-* }
 362 mips_arch_create mips32r2 32    mips32  { ror } \
 363                         { -march=mips32r2 -mtune=mips32r2 } \
 364                         { -mmips:isa32r2 } \
 365                         { mipsisa32r2-*-* mipsisa32r2el-*-* }
 366 mips_arch_create mips64 64      mips5   { mips32 } \
 367                         { -march=mips64 -mtune=mips64 } { -mmips:isa64 } \
 368                         { mipsisa64-*-* mipsisa64el-*-* }
 369 mips_arch_create mips64r2 64    mips64  { mips32r2 ror } \
 370                         { -march=mips64r2 -mtune=mips64r2 } \
 371                         { -mmips:isa64r2 } \
 372                         { mipsisa64r2-*-* mipsisa64r2el-*-* }
 373 mips_arch_create r3000  32      mips1   {} \
 374                         { -march=r3000 -mtune=r3000 } { -mmips:3000 }
 375 mips_arch_create r3900  32      mips1   { gpr_ilocks } \
 376                         { -march=r3900 -mtune=r3900 } { -mmips:3900 } \
 377                         { mipstx39-*-* mipstx39el-*-* }
 378 mips_arch_create r4000  64      mips3   {} \
 379                         { -march=r4000 -mtune=r4000 } { -mmips:4000 }
 380 mips_arch_create vr5400 64      mips4   { ror } \
 381                         { -march=vr5400 -mtune=vr5400 } { -mmips:5400 }
 382 mips_arch_create sb1    64      mips64  { mips3d } \
 383                         { -march=sb1 -mtune=sb1 } { -mmips:sb1 } \
 384                         { mipsisa64sb1-*-* mipsisa64sb1el-*-* }
 385
 386
 387 #
 388 # And now begin the actual tests!
 389 #
 390
 391 if { [istarget mips*-*-*] } then {
 392     set no_mips16 0
 393     set elf [expr [istarget *-*-elf*] || [istarget *-*-irix5*] || [istarget *-*-irix6* ] || [istarget *-*-linux*] || [istarget *-*-netbsd*] ]
 394     set ecoff [expr [istarget *-*-ecoff*] || [istarget *-*-ultrix*] || [istarget *-*-irix\[1-4\]*] ]
 395     set aout [expr [istarget *-*-bsd*] || [istarget *-*-openbsd*] ]
 396     set ilocks [istarget mipstx39*-*-*]
 397     set gpr_ilocks [expr [istarget mipstx39*-*-*]]
 398     set addr32 [expr [istarget mipstx39*-*-*] || [istarget mips-*-linux*] || [istarget mipsel-*-linux*]]
 399     set has_newabi [expr [istarget *-*-irix6*] || [istarget mips64*-*-linux*]]
 400
 401     if { [istarget "mips*-*-*linux*"] } then {
 402         set tmips "t"
 403     } else {
 404         set tmips ""
 405     }
 406     if [istarget mips*el-*-*] {
 407         set el "el"
 408     } {
 409         set el ""
 410     }
 411
 412     run_dump_test_arches "abs"          [mips_arch_list_matching mips1]
 413     run_dump_test_arches "add"          [mips_arch_list_matching mips1]
 414     run_dump_test_arches "and"          [mips_arch_list_matching mips1]
 415     run_dump_test "break20"
 416     run_dump_test "trap20"
 417
 418     # LOSE: As of 2002-02-08, "beq" through "bltu" fail for target mips-ecoff.
 419     # See http://sources.redhat.com/ml/binutils/2001-10/msg00418.html for
 420     # more information.  Not sure if the fixes there are correct; should
 421     # branches to external labels be allowed for ECOFF?
 422     # XXX FIXME: the following tests require -mips2 disasm for
 423     # branch-likely instructions.  They should be split.
 424     run_dump_test_arches "beq"          [mips_arch_list_matching mips2]
 425     run_dump_test_arches "bge"          [mips_arch_list_matching mips2]
 426     run_dump_test_arches "bgeu"         [mips_arch_list_matching mips2]
 427     run_dump_test_arches "blt"          [mips_arch_list_matching mips2]
 428     run_dump_test_arches "bltu"         [mips_arch_list_matching mips2]
 429     run_dump_test_arches "branch-misc-1" [mips_arch_list_matching mips1]
 430     run_dump_test_arches "branch-misc-2" [mips_arch_list_matching mips1]
 431     run_dump_test_arches "branch-misc-2pic" [mips_arch_list_matching mips1]
 432     run_dump_test_arches "branch-misc-2-64" [mips_arch_list_matching mips3]
 433     run_dump_test_arches "branch-misc-2pic-64" [mips_arch_list_matching mips3]
 434     run_dump_test "branch-misc-3"
 435     run_dump_test "branch-swap"
 436
 437     if $ilocks {
 438         run_dump_test "div-ilocks"
 439     } else {
 440         run_dump_test "div"
 441     }
 442     if { !$addr32 } {
 443         run_dump_test_arches "dli"              [mips_arch_list_matching mips3]
 444     }
 445     if $elf {
 446         run_dump_test_arches "elf-jal"  [mips_arch_list_matching mips1]
 447     } else {
 448         run_dump_test "jal"
 449     }
 450     if $elf { run_dump_test "jal-svr4pic" }
 451     if $elf { run_dump_test "jal-xgot" }
 452     run_list_test_arches "jal-range" "-32" [mips_arch_list_matching mips1]
 453     if $has_newabi { run_dump_test "jal-newabi" }
 454     if !$aout { run_dump_test "la" }
 455     if $elf { run_dump_test "la-svr4pic" }
 456     if $elf { run_dump_test "la-xgot" }
 457     if $elf { run_dump_test "lca-svr4pic" }
 458     if $elf { run_dump_test "lca-xgot" }
 459     if !$aout {
 460         # XXX FIXME: Has mips2 and later insns with mips1 disassemblies.
 461         # (Should split and then use appropriate arch lists.)
 462         run_dump_test_arches "lb"       [mips_arch_list_matching !mips2]
 463     }
 464     if $elf {
 465         run_dump_test_arches "lb-svr4pic" [mips_arch_list_matching !gpr_ilocks]
 466         run_dump_test_arches "lb-svr4pic-ilocks" [mips_arch_list_matching gpr_ilocks]
 467     }
 468     if $elf {
 469         # Both versions specify the cpu, so we can run both regardless of
 470         # the interlocking in the configured default cpu.
 471         run_dump_test "lb-xgot"
 472         run_dump_test "lb-xgot-ilocks"
 473     }
 474     if !$aout {
 475         if !$gpr_ilocks {
 476             run_dump_test "ld"
 477         } else {
 478             if !$addr32 {
 479                 run_dump_test "ld-ilocks"
 480             } else {
 481                 run_dump_test "ld-ilocks-addr32"
 482             }
 483         }
 484     }
 485     if $elf { run_dump_test "ld-svr4pic" }
 486     if $elf { run_dump_test "ld-xgot" }
 487     run_dump_test_arches "li"           [mips_arch_list_matching mips1]
 488     if !$aout { run_dump_test "lifloat" }
 489     if $elf { run_dump_test "lif-svr4pic" }
 490     if $elf { run_dump_test "lif-xgot" }
 491     run_dump_test_arches "mips4"        [mips_arch_list_matching mips4]
 492     run_dump_test_arches "mips5"        [mips_arch_list_matching mips5]
 493     if $ilocks {
 494         run_dump_test "mul-ilocks"
 495     } else {
 496         run_dump_test "mul"
 497     }
 498
 499     run_dump_test_arches "rol"          [mips_arch_list_matching !ror]
 500     run_dump_test_arches "rol-hw"       [mips_arch_list_matching ror]
 501
 502     run_dump_test_arches "rol64"        [mips_arch_list_matching gpr64 !ror]
 503     run_dump_test_arches "rol64-hw"     [mips_arch_list_matching gpr64 ror]
 504
 505     if !$aout { run_dump_test "sb" }
 506     run_dump_test "trunc"
 507     if !$aout { run_dump_test "ulh" }
 508     run_dump_test_arches "ulh2-eb"      [mips_arch_list_matching mips1]
 509     run_dump_test_arches "ulh2-el"      [mips_arch_list_matching mips1]
 510     if $elf { run_dump_test "ulh-svr4pic" }
 511     if $elf { run_dump_test "ulh-xgot" }
 512     if !$aout {
 513         run_dump_test "ulw"
 514         run_dump_test "uld"
 515         run_dump_test "ush"
 516         run_dump_test "usw"
 517         run_dump_test "usd"
 518     }
 519     run_dump_test_arches "ulw2-eb"      [mips_arch_list_matching !gpr_ilocks]
 520     run_dump_test_arches "ulw2-eb-ilocks" [mips_arch_list_matching gpr_ilocks]
 521     run_dump_test_arches "ulw2-el"      [mips_arch_list_matching !gpr_ilocks]
 522     run_dump_test_arches "ulw2-el-ilocks" [mips_arch_list_matching gpr_ilocks]
 523
 524     run_dump_test_arches "uld2-eb" [mips_arch_list_matching mips3]
 525     run_dump_test_arches "uld2-el" [mips_arch_list_matching mips3]
 526
 527     # The mips16 test can only be run on ELF, because only ELF
 528     # supports the necessary mips16 reloc.
 529     if { $elf && !$no_mips16 } {
 530         run_dump_test "mips16"
 531         run_dump_test "mips16-64"
 532         # Check jalx handling
 533         run_dump_test "mips16-jalx"
 534         run_dump_test "mips-jalx"
 535         # Check MIPS16 HI16/LO16 relocations
 536         run_dump_test "mips16-hilo"
 537         if $has_newabi {
 538             run_dump_test "mips16-hilo-n32"
 539         }
 540     }
 541     run_list_test "mips-no-jalx" "-32"
 542     run_dump_test "delay"
 543     run_dump_test "nodelay"
 544     run_dump_test "mips4010"
 545     run_dump_test "mips4650"
 546     run_dump_test "mips4100"
 547     run_dump_test "vr4111"
 548     run_dump_test "vr4120"
 549     run_dump_test "vr4120-2"
 550     run_dump_test "vr4130"
 551     run_dump_test "vr5400"
 552     run_dump_test "vr5500"
 553     run_dump_test "rm7000"
 554     run_dump_test "perfcount"
 555     run_dump_test "lineno"
 556     run_dump_test "sync"
 557
 558     run_dump_test_arches "mips32"       [mips_arch_list_matching mips32]
 559
 560     run_dump_test_arches "mips32r2"     [mips_arch_list_matching mips32r2]
 561     run_list_test_arches "mips32r2-ill" "-32" \
 562                          [mips_arch_list_matching mips32r2 gpr32]
 563     run_list_test_arches "mips32r2-ill-fp64" "-mabi=o64" \
 564                          [mips_arch_list_matching mips32r2 gpr64]
 565
 566     run_dump_test_arches "mips64"       [mips_arch_list_matching mips64]
 567
 568     run_dump_test_arches "mips64r2"     [mips_arch_list_matching mips64r2]
 569     run_list_test_arches "mips64r2-ill" "" [mips_arch_list_matching mips64r2]
 570
 571     run_dump_test "set-arch"
 572
 573     if { !$addr32 } {
 574         run_dump_test "mips64-mips3d"
 575         run_dump_test_arches "mips64-mips3d-incl" [mips_arch_list_matching mips3d]
 576
 577         run_dump_test "mips64-mdmx"
 578         run_dump_test "sb1-ext-mdmx"
 579         run_dump_test "sb1-ext-ps"
 580     }
 581
 582     run_dump_test "relax"
 583     run_dump_test "relax-swap1-mips1"
 584     run_dump_test "relax-swap1-mips2"
 585     run_dump_test "relax-swap2"
 586
 587     run_list_test "illegal" "-32"
 588     run_list_test "baddata1" "-32"
 589
 590     # LOSE: As of 2002-02-08, the next 4 tests fail for target mips-ecoff.
 591     # It's unknown whether they _should_ pass as-is, or whether different
 592     # variants are needed for ELF and ECOFF.
 593     run_dump_test "mips-gp32-fp32"
 594     run_dump_test "mips-gp32-fp64"
 595     run_dump_test "mips-gp64-fp32"
 596     run_dump_test "mips-gp64-fp64"
 597
 598     if $elf {
 599         # Make sure that -mcpu=FOO and -mFOO are equivalent.  Assemble a file
 600         # containing 4650-specific instructions with -m4650 and -mcpu=4650,
 601         # and verify that they're the same.  Specifically, we're checking
 602         # that the EF_MIPS_MACH field is set, and that the 4650 'mul'
 603         # instruction does get used.  In previous versions of GAS,
 604         # only -mcpu=4650 would set the EF_MIPS_MACH field; -m4650 wouldn't.
 605         run_dump_test "elf_e_flags1"
 606         run_dump_test "elf_e_flags2"
 607         run_dump_test "elf_e_flags3"
 608         run_dump_test "elf_e_flags4"
 609
 610         # Check EF_MIPS_ARCH markings for each supported architecture.
 611         run_dump_test "elf_arch_mips1"
 612         run_dump_test "elf_arch_mips2"
 613         run_dump_test "elf_arch_mips3"
 614         run_dump_test "elf_arch_mips4"
 615         run_dump_test "elf_arch_mips5"
 616         run_dump_test "elf_arch_mips32"
 617         run_dump_test "elf_arch_mips32r2"
 618         run_dump_test "elf_arch_mips64"
 619         run_dump_test "elf_arch_mips64r2"
 620
 621         # Verify that ASE markings are handled properly.
 622         if { !$no_mips16 } { run_dump_test "elf_ase_mips16" }
 623
 624         run_dump_test "mips-gp32-fp32-pic"
 625         run_dump_test "mips-gp32-fp64-pic"
 626         run_dump_test "mips-gp64-fp32-pic"
 627         run_dump_test "mips-gp64-fp64-pic"
 628
 629         run_dump_test "mips-abi32"
 630         run_dump_test "mips-abi32-pic"
 631         run_dump_test "mips-abi32-pic2"
 632
 633         run_dump_test "elf${el}-rel"
 634         if {[istarget mips64*-*-*] || [istarget mipsisa32*-*-*]
 635             || [istarget mipsisa64*-*-*]} {
 636             run_dump_test "elf${el}-rel2"
 637         } else {
 638             run_dump_test "e32${el}-rel2"
 639         }
 640         run_dump_test "elf${el}-rel3"
 641         if {[istarget mips64*-*-*]} {
 642             run_dump_test "elf-rel4"
 643         } else {
 644             run_dump_test "e32-rel4"
 645         }
 646         run_dump_test "elf-rel5"
 647         run_dump_test "elf-rel6"
 648         run_dump_test "elf-rel7"
 649         run_dump_test "elf-rel8"
 650         run_dump_test "elf-rel9"
 651         if $has_newabi {
 652             run_dump_test "elf-rel10"
 653             run_dump_test "elf-rel11"
 654         }
 655         run_dump_test "elf-rel12"
 656         run_dump_test "elf-rel13"
 657         run_dump_test "elf-rel14"
 658
 659         if $has_newabi {
 660             run_dump_test "elf-rel15"
 661             run_dump_test "elf-rel16"
 662
 663             run_dump_test "elf-rel-got-n32"
 664             run_dump_test "elf-rel-xgot-n32"
 665             run_dump_test "elf-rel-got-n64"
 666             run_dump_test "elf-rel-xgot-n64"
 667         }
 668         run_dump_test "elf-rel17"
 669         if $has_newabi {
 670             run_dump_test "elf-rel18"
 671         }
 672         run_dump_test "elf-rel19"
 673         run_dump_test "elf-rel20"
 674         if $has_newabi {
 675             run_dump_test "elf-rel21"
 676             run_dump_test "elf-rel22"
 677             run_dump_test "elf-rel23"
 678             run_dump_test "elf-rel23a"
 679             run_dump_test "elf-rel23b"
 680             run_dump_test "elf-rel24"
 681         }
 682
 683         run_dump_test "elf-rel25"
 684         run_dump_test "elf-rel25a"
 685
 686         if { !$no_mips16 } {
 687             run_dump_test "${tmips}mips${el}16-e"
 688             run_dump_test "${tmips}mips${el}16-f"
 689         }
 690         run_dump_test "elf-consthilo"
 691         run_dump_test "expr1"
 692
 693         run_list_test "tls-ill" "-32"
 694         run_dump_test "tls-o32"
 695     }
 696
 697     if $has_newabi {
 698         run_dump_test "n32-consec"
 699     }
 700
 701     # tests of objdump's ability to disassemble using different
 702     # register names.
 703     run_dump_test "gpr-names-numeric"
 704     run_dump_test "gpr-names-32"
 705     run_dump_test "gpr-names-n32"
 706     run_dump_test "gpr-names-64"
 707
 708     run_dump_test "fpr-names-numeric"
 709     run_dump_test "fpr-names-32"
 710     run_dump_test "fpr-names-n32"
 711     run_dump_test "fpr-names-64"
 712
 713     run_dump_test "cp0-names-numeric"
 714     run_dump_test "cp0-names-mips32"
 715     run_dump_test "cp0-names-mips32r2"
 716     run_dump_test "cp0-names-mips64"
 717     run_dump_test "cp0-names-mips64r2"
 718     run_dump_test "cp0-names-sb1"
 719
 720     run_dump_test "cp0sel-names-numeric"
 721     run_dump_test "cp0sel-names-mips32"
 722     run_dump_test "cp0sel-names-mips32r2"
 723     run_dump_test "cp0sel-names-mips64"
 724     run_dump_test "cp0sel-names-mips64r2"
 725     run_dump_test "cp0sel-names-sb1"
 726
 727     run_dump_test "hwr-names-numeric"
 728     run_dump_test "hwr-names-mips32r2"
 729     run_dump_test "hwr-names-mips64r2"
 730
 731     run_dump_test "ldstla-32"
 732     run_dump_test "ldstla-32-mips3"
 733     run_dump_test "ldstla-32-shared"
 734     run_dump_test "ldstla-32-mips3-shared"
 735     run_list_test "ldstla-32-1" "-mabi=32" \
 736         "MIPS ld-st-la bad constants (ABI o32)"
 737     run_list_test "ldstla-32-mips3-1" "-mabi=32" \
 738         "MIPS ld-st-la bad constants (ABI o32, mips3)"
 739     run_list_test "ldstla-32-1" "-KPIC -mabi=32" \
 740         "MIPS ld-st-la bad constants (ABI o32, shared)"
 741     run_list_test "ldstla-32-mips3-1" "-KPIC -mabi=32" \
 742         "MIPS ld-st-la bad constants (ABI o32, mips3, shared)"
 743     run_dump_test "ldstla-eabi64"
 744     if $has_newabi {
 745         run_dump_test "ldstla-n64"
 746         run_dump_test "ldstla-n64-shared"
 747         run_dump_test "ldstla-n64-sym32"
 748     }
 749
 750     run_dump_test "macro-warn-1"
 751     run_dump_test "macro-warn-2"
 752     run_dump_test "macro-warn-3"
 753     run_dump_test "macro-warn-4"
 754     if $has_newabi {
 755         run_dump_test "macro-warn-1-n32"
 756         run_dump_test "macro-warn-2-n32"
 757     }
 758
 759     run_dump_test "noat-1"
 760     run_list_test "noat-2" ""
 761     run_list_test "noat-3" ""
 762     run_list_test "noat-4" ""
 763     run_list_test "noat-5" ""
 764     run_list_test "noat-6" ""
 765     run_list_test "noat-7" ""
 766
 767     run_dump_test_arches "mips32-dsp"   [mips_arch_list_matching mips32 !sb1]
 768     run_dump_test_arches "mips32-mt"    [mips_arch_list_matching mips32r2 !gpr64]
 769
 770     if { $elf && !$no_mips16 } {
 771         run_dump_test "mips16-dwarf2"
 772         if $has_newabi {
 773             run_dump_test "mips16-dwarf2-n32"
 774         }
 775     }
 776     if { !$no_mips16 } {
 777         run_dump_test "mips16e-jrc"
 778         run_dump_test "mips16e-save"
 779     }
 780 }