| 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 because 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_destroy ARCH |
| 150 | # |
| 151 | # The opposite of the above. This function removes an entry from |
| 152 | # the architecture data array, for the architecture or CPU named ARCH. |
| 153 | |
| 154 | proc mips_arch_destroy {arch} { |
| 155 | global mips_arches |
| 156 | |
| 157 | if { [info exists mips_arches($arch)] } { |
| 158 | unset mips_arches($arch) |
| 159 | } |
| 160 | } |
| 161 | |
| 162 | # mips_arch_list_all |
| 163 | # |
| 164 | # This function returns the list of all names of entries in the |
| 165 | # architecture data array (including the default entry, if a default |
| 166 | # is known). |
| 167 | proc mips_arch_list_all {} { |
| 168 | global mips_arches |
| 169 | return [lsort -dictionary [array names mips_arches]] |
| 170 | } |
| 171 | |
| 172 | # mips_arch_data ARCH |
| 173 | # |
| 174 | # This function returns the information associated with ARCH |
| 175 | # in the architecture data array, in "array get" form. |
| 176 | proc mips_arch_data {arch} { |
| 177 | global mips_arches |
| 178 | |
| 179 | if { ! [info exists mips_arches($arch)] } { |
| 180 | error "mips_arch_data: unknown arch \"$arch\"" |
| 181 | } |
| 182 | return $mips_arches($arch) |
| 183 | } |
| 184 | |
| 185 | # mips_arch_displayname ARCH |
| 186 | # |
| 187 | # This function returns the printable name associated with ARCH in |
| 188 | # the architecture data array. |
| 189 | proc mips_arch_displayname {arch} { |
| 190 | array set archdata [mips_arch_data $arch] |
| 191 | return $archdata(displayname) |
| 192 | } |
| 193 | |
| 194 | # mips_arch_properties ARCH (optional:) INCLUDE_GPRSIZE |
| 195 | # |
| 196 | # This function returns the property list associated with ARCH in the |
| 197 | # architecture data array. If INCLUDE_GPRSIZE is non-zero, an additional |
| 198 | # "gpr32" or "gpr64" property will be returned as part of the list based |
| 199 | # on the architecture's GPR size. |
| 200 | proc mips_arch_properties {arch {include_gprsize 1}} { |
| 201 | array set archdata [mips_arch_data $arch] |
| 202 | set props $archdata(props) |
| 203 | if { $include_gprsize } { |
| 204 | lappend props gpr$archdata(gprsize) |
| 205 | } |
| 206 | return $props |
| 207 | } |
| 208 | |
| 209 | # mips_arch_as_flags ARCH |
| 210 | # |
| 211 | # This function returns the assembler flags associated with ARCH in |
| 212 | # the architecture data array. |
| 213 | proc mips_arch_as_flags {arch} { |
| 214 | array set archdata [mips_arch_data $arch] |
| 215 | return $archdata(as_flags) |
| 216 | } |
| 217 | |
| 218 | # mips_arch_objdump_flags ARCH |
| 219 | # |
| 220 | # This function returns the objdump disassembly flags associated with |
| 221 | # ARCH in the architecture data array. |
| 222 | proc mips_arch_objdump_flags {arch} { |
| 223 | array set archdata [mips_arch_data $arch] |
| 224 | return $archdata(objdump_flags) |
| 225 | } |
| 226 | |
| 227 | # mips_arch_matches ARCH PROPMATCHLIST |
| 228 | # |
| 229 | # This function returns non-zero if ARCH matches the set of properties |
| 230 | # described by PROPMATCHLIST. Each entry in PROPMATCHLIST can either |
| 231 | # be the name of a property which must be matched, or "!" followed by |
| 232 | # the name of a property which must not be matched. ARCH matches |
| 233 | # PROPMATCHLIST if and only if all of the conditions specified by |
| 234 | # PROPMATCHLIST are satisfied. |
| 235 | proc mips_arch_matches {arch propmatchlist} { |
| 236 | foreach pm $propmatchlist { |
| 237 | if { [string match {!*} $pm] } { |
| 238 | # fail if present. |
| 239 | set inverted 1 |
| 240 | set p [string range $pm 1 end] |
| 241 | } { |
| 242 | # fail if not present. |
| 243 | set inverted 0 |
| 244 | set p $pm |
| 245 | } |
| 246 | |
| 247 | set loc [lsearch -exact [mips_arch_properties $arch] $p] |
| 248 | |
| 249 | # required-absent and found, or required-present and not found: fail. |
| 250 | if { ($inverted && $loc != -1) || (! $inverted && $loc == -1) } { |
| 251 | return 0 |
| 252 | } |
| 253 | } |
| 254 | return 1 |
| 255 | } |
| 256 | |
| 257 | # mips_arch_list_matching ARGS |
| 258 | # |
| 259 | # This function returns a list of all architectures which match |
| 260 | # the conditions described by its arguments. Its arguments are |
| 261 | # taken as a list and used as the PROPMATCHLIST in a call to |
| 262 | # "mips_arch_matches" for each known architecture. |
| 263 | proc mips_arch_list_matching {args} { |
| 264 | set l "" |
| 265 | foreach arch [mips_arch_list_all] { |
| 266 | # For now, don't match default arch until we know what its |
| 267 | # properties actually are. |
| 268 | if { [string compare $arch default] == 0 |
| 269 | && [string length [mips_arch_properties default]] == 0} { |
| 270 | continue |
| 271 | } |
| 272 | if { [mips_arch_matches $arch $args] } { |
| 273 | lappend l $arch |
| 274 | } |
| 275 | } |
| 276 | return $l |
| 277 | } |
| 278 | |
| 279 | |
| 280 | # The functions below facilitate running various types of tests. |
| 281 | |
| 282 | # run_dump_test_arch NAME ARCH |
| 283 | # |
| 284 | # Invoke "run_dump_test" for test NAME, with extra assembler and |
| 285 | # disassembler flags to test architecture ARCH. |
| 286 | proc run_dump_test_arch { name arch } { |
| 287 | global subdir srcdir |
| 288 | |
| 289 | set archname "${arch}@${name}" |
| 290 | if { [file exists "$srcdir/$subdir/${archname}.d"] } { |
| 291 | set name $archname |
| 292 | } |
| 293 | |
| 294 | if [catch {run_dump_test $name \ |
| 295 | "{name {([mips_arch_displayname $arch])}} |
| 296 | {objdump {[mips_arch_objdump_flags $arch]}} |
| 297 | {as {[mips_arch_as_flags $arch]}}"} rv] { |
| 298 | perror "$rv" |
| 299 | untested "$subdir/$name ($arch)" |
| 300 | } |
| 301 | } |
| 302 | |
| 303 | # run_dump_test_arches NAME ARCH_LIST |
| 304 | # |
| 305 | # Invoke "run_dump_test_arch" for test NAME, for each architecture |
| 306 | # listed in ARCH_LIST. |
| 307 | proc run_dump_test_arches { name arch_list } { |
| 308 | foreach arch $arch_list { |
| 309 | run_dump_test_arch "$name" "$arch" |
| 310 | } |
| 311 | } |
| 312 | |
| 313 | # run_list_test_arch NAME OPTS ARCH |
| 314 | # |
| 315 | # Invoke "run_list_test" for test NAME with options OPTS, with extra |
| 316 | # assembler flags to test architecture ARCH. |
| 317 | proc run_list_test_arch { name opts arch } { |
| 318 | global subdir |
| 319 | |
| 320 | set testname "MIPS $name ([mips_arch_displayname $arch])" |
| 321 | if [catch {run_list_test "$name" "$opts [mips_arch_as_flags $arch]" \ |
| 322 | "$testname"} rv] { |
| 323 | perror "$rv" |
| 324 | untested "$testname" |
| 325 | } |
| 326 | } |
| 327 | |
| 328 | # run_list_test_arches NAME OPTS ARCH_LIST |
| 329 | # |
| 330 | # Invoke "run_list_test_arch" for test NAME with options OPTS, for each |
| 331 | # architecture listed in ARCH_LIST. |
| 332 | proc run_list_test_arches { name opts arch_list } { |
| 333 | foreach arch $arch_list { |
| 334 | run_list_test_arch "$name" "$opts" "$arch" |
| 335 | } |
| 336 | } |
| 337 | |
| 338 | |
| 339 | # Create the architecture data array by providing data for all |
| 340 | # known architectures. |
| 341 | # |
| 342 | # Note that several targets pick default CPU based on ABI. We |
| 343 | # can't easily handle that; do NOT list those targets as defaulting |
| 344 | # to any architecture. |
| 345 | mips_arch_init |
| 346 | mips_arch_create mips1 32 {} {} \ |
| 347 | { -march=mips1 -mtune=mips1 } { -mmips:3000 } |
| 348 | mips_arch_create mips2 32 mips1 { gpr_ilocks } \ |
| 349 | { -march=mips2 -mtune=mips2 } { -mmips:6000 } |
| 350 | mips_arch_create mips3 64 mips2 {} \ |
| 351 | { -march=mips3 -mtune=mips3 } { -mmips:4000 } |
| 352 | mips_arch_create mips4 64 mips3 {} \ |
| 353 | { -march=mips4 -mtune=mips4 } { -mmips:8000 } |
| 354 | mips_arch_create mips5 64 mips4 {} \ |
| 355 | { -march=mips5 -mtune=mips5 } { -mmips:mips5 } |
| 356 | mips_arch_create mips32 32 mips2 {} \ |
| 357 | { -march=mips32 -mtune=mips32 } { -mmips:isa32 } \ |
| 358 | { mipsisa32-*-* mipsisa32el-*-* } |
| 359 | mips_arch_create mips32r2 32 mips32 { ror } \ |
| 360 | { -march=mips32r2 -mtune=mips32r2 } \ |
| 361 | { -mmips:isa32r2 } \ |
| 362 | { mipsisa32r2-*-* mipsisa32r2el-*-* } |
| 363 | mips_arch_create mips64 64 mips5 { mips32 } \ |
| 364 | { -march=mips64 -mtune=mips64 } { -mmips:isa64 } \ |
| 365 | { mipsisa64-*-* mipsisa64el-*-* } |
| 366 | mips_arch_create mips64r2 64 mips64 { mips32r2 ror } \ |
| 367 | { -march=mips64r2 -mtune=mips64r2 } \ |
| 368 | { -mmips:isa64r2 } \ |
| 369 | { mipsisa64r2-*-* mipsisa64r2el-*-* } |
| 370 | mips_arch_create mips16 32 {} {} \ |
| 371 | { -march=mips1 -mips16 } { -mmips:16 } |
| 372 | mips_arch_create r3000 32 mips1 {} \ |
| 373 | { -march=r3000 -mtune=r3000 } { -mmips:3000 } |
| 374 | mips_arch_create r3900 32 mips1 { gpr_ilocks } \ |
| 375 | { -march=r3900 -mtune=r3900 } { -mmips:3900 } \ |
| 376 | { mipstx39-*-* mipstx39el-*-* } |
| 377 | mips_arch_create r4000 64 mips3 {} \ |
| 378 | { -march=r4000 -mtune=r4000 } { -mmips:4000 } |
| 379 | mips_arch_create vr5400 64 mips4 { ror } \ |
| 380 | { -march=vr5400 -mtune=vr5400 } { -mmips:5400 } |
| 381 | mips_arch_create sb1 64 mips64 { mips3d } \ |
| 382 | { -march=sb1 -mtune=sb1 } { -mmips:sb1 } \ |
| 383 | { mipsisa64sb1-*-* mipsisa64sb1el-*-* } |
| 384 | mips_arch_create octeon 64 mips64r2 {} \ |
| 385 | { -march=octeon -mtune=octeon } { -mmips:octeon } \ |
| 386 | { mips64octeon*-*-* } |
| 387 | mips_arch_create xlr 64 mips64 {} \ |
| 388 | { -march=xlr -mtune=xlr } { -mmips:xlr } |
| 389 | |
| 390 | # |
| 391 | # And now begin the actual tests! VxWorks uses RELA rather than REL |
| 392 | # relocations, so most of the generic dump tests will not work there. |
| 393 | # |
| 394 | if { [istarget mips*-*-vxworks*] } { |
| 395 | run_dump_test "vxworks1" |
| 396 | run_dump_test "vxworks1-xgot" |
| 397 | run_dump_test "vxworks1-el" |
| 398 | run_dump_test "vxworks1-xgot-el" |
| 399 | } elseif { [istarget mips*-*-*] } { |
| 400 | set no_mips16 0 |
| 401 | set elf [expr [istarget *-*-elf*] || [istarget *-*-irix5*] || [istarget *-*-irix6* ] || [istarget *-*-linux*] || [istarget *-*-netbsd*] ] |
| 402 | set ecoff [expr [istarget *-*-ecoff*] || [istarget *-*-ultrix*] || [istarget *-*-irix\[1-4\]*] ] |
| 403 | set aout [expr [istarget *-*-bsd*] || [istarget *-*-openbsd*] ] |
| 404 | set gpr_ilocks [expr [istarget mipstx39*-*-*]] |
| 405 | set addr32 [expr [istarget mipstx39*-*-*] || [istarget mips-*-linux*] || [istarget mipsel-*-linux*] || [istarget mips*-*-ecoff]] |
| 406 | set has_newabi [expr [istarget *-*-irix6*] || [istarget mips64*-*-linux*]] |
| 407 | |
| 408 | if { [istarget "mips*-*-*linux*"] || [istarget "mips*-sde-elf*"] } then { |
| 409 | set tmips "t" |
| 410 | } else { |
| 411 | set tmips "" |
| 412 | } |
| 413 | if [istarget mips*el-*-*] { |
| 414 | set el "el" |
| 415 | } { |
| 416 | set el "" |
| 417 | } |
| 418 | if { $ecoff } { |
| 419 | set no_mips16 1 |
| 420 | } |
| 421 | if { $no_mips16 } { |
| 422 | mips_arch_destroy mips16 |
| 423 | } |
| 424 | |
| 425 | run_dump_test_arches "abs" [mips_arch_list_matching mips1] |
| 426 | run_dump_test_arches "add" [mips_arch_list_matching mips1] |
| 427 | run_dump_test_arches "and" [mips_arch_list_matching mips1] |
| 428 | run_dump_test_arches "mips1-fp" [mips_arch_list_matching mips1] |
| 429 | run_list_test_arches "mips1-fp" "-32 -msoft-float" \ |
| 430 | [mips_arch_list_matching mips1] |
| 431 | run_dump_test "break20" |
| 432 | run_dump_test "trap20" |
| 433 | |
| 434 | # LOSE: As of 2002-02-08, "beq" through "bltu" fail for target mips-ecoff. |
| 435 | # See http://sources.redhat.com/ml/binutils/2001-10/msg00418.html for |
| 436 | # more information. Not sure if the fixes there are correct; should |
| 437 | # branches to external labels be allowed for ECOFF? |
| 438 | run_dump_test_arches "beq" [mips_arch_list_matching mips1] |
| 439 | run_dump_test_arches "bge" [mips_arch_list_matching mips1] |
| 440 | run_dump_test_arches "bgeu" [mips_arch_list_matching mips1] |
| 441 | run_dump_test_arches "blt" [mips_arch_list_matching mips1] |
| 442 | run_dump_test_arches "bltu" [mips_arch_list_matching mips1] |
| 443 | run_dump_test_arches "branch-likely" [mips_arch_list_matching mips2] |
| 444 | run_dump_test_arches "branch-misc-1" [mips_arch_list_matching mips1] |
| 445 | run_dump_test_arches "branch-misc-2" [mips_arch_list_matching mips1] |
| 446 | run_dump_test_arches "branch-misc-2pic" [mips_arch_list_matching mips1] |
| 447 | run_dump_test_arches "branch-misc-2-64" [mips_arch_list_matching mips3] |
| 448 | run_dump_test_arches "branch-misc-2pic-64" [mips_arch_list_matching mips3] |
| 449 | run_dump_test "branch-misc-3" |
| 450 | run_dump_test "branch-swap" |
| 451 | run_dump_test "div" |
| 452 | |
| 453 | if { !$addr32 } { |
| 454 | run_dump_test_arches "dli" [mips_arch_list_matching mips3] |
| 455 | } |
| 456 | if $elf { |
| 457 | run_dump_test_arches "elf-jal" [mips_arch_list_matching mips1] |
| 458 | } else { |
| 459 | run_dump_test "jal" |
| 460 | } |
| 461 | run_dump_test "eret-1" |
| 462 | run_dump_test "eret-2" |
| 463 | run_dump_test "eret-3" |
| 464 | |
| 465 | if $elf { |
| 466 | run_dump_test_arches "jal-svr4pic" \ |
| 467 | [mips_arch_list_matching mips1] |
| 468 | run_dump_test_arches "jal-svr4pic-noreorder" \ |
| 469 | [mips_arch_list_matching mips1] |
| 470 | } |
| 471 | if $elf { run_dump_test "jal-xgot" } |
| 472 | run_list_test_arches "jal-range" "-32" [mips_arch_list_matching mips1] |
| 473 | if $has_newabi { run_dump_test "jal-newabi" } |
| 474 | if !$aout { run_dump_test "la" } |
| 475 | if $elf { run_dump_test "la-svr4pic" } |
| 476 | if $elf { run_dump_test "la-xgot" } |
| 477 | if $elf { run_dump_test "lca-svr4pic" } |
| 478 | if $elf { run_dump_test "lca-xgot" } |
| 479 | if !$aout { |
| 480 | # XXX FIXME: Has mips2 and later insns with mips1 disassemblies. |
| 481 | # (Should split and then use appropriate arch lists.) |
| 482 | run_dump_test_arches "lb" [mips_arch_list_matching mips1 !mips2] |
| 483 | } |
| 484 | if $elf { |
| 485 | run_dump_test_arches "lb-svr4pic" \ |
| 486 | [mips_arch_list_matching mips1 !gpr_ilocks] |
| 487 | run_dump_test_arches "lb-svr4pic-ilocks" [mips_arch_list_matching gpr_ilocks] |
| 488 | } |
| 489 | if $elf { |
| 490 | # Both versions specify the cpu, so we can run both regardless of |
| 491 | # the interlocking in the configured default cpu. |
| 492 | run_dump_test "lb-xgot" |
| 493 | run_dump_test "lb-xgot-ilocks" |
| 494 | } |
| 495 | if !$aout { |
| 496 | if !$gpr_ilocks { |
| 497 | run_dump_test "ld" |
| 498 | } else { |
| 499 | if !$addr32 { |
| 500 | run_dump_test "ld-ilocks" |
| 501 | } else { |
| 502 | run_dump_test "ld-ilocks-addr32" |
| 503 | } |
| 504 | } |
| 505 | } |
| 506 | if $elf { run_dump_test "ld-svr4pic" } |
| 507 | if $elf { run_dump_test "ld-xgot" } |
| 508 | run_dump_test_arches "li" [mips_arch_list_matching mips1] |
| 509 | if !$aout { run_dump_test "lifloat" } |
| 510 | if $elf { run_dump_test "lif-svr4pic" } |
| 511 | if $elf { run_dump_test "lif-xgot" } |
| 512 | run_dump_test_arches "mips4" [mips_arch_list_matching mips4] |
| 513 | run_dump_test_arches "mips4-fp" [mips_arch_list_matching mips4] |
| 514 | run_list_test_arches "mips4-fp" "-32 -msoft-float" \ |
| 515 | [mips_arch_list_matching mips4] |
| 516 | run_dump_test_arches "mips4-branch-likely" \ |
| 517 | [mips_arch_list_matching mips4] |
| 518 | run_list_test_arches "mips4-branch-likely" "-32 -msoft-float" \ |
| 519 | [mips_arch_list_matching mips4] |
| 520 | run_dump_test_arches "mips5" [mips_arch_list_matching mips5] |
| 521 | run_dump_test "mul" |
| 522 | |
| 523 | run_dump_test_arches "rol" [mips_arch_list_matching mips1 !ror] |
| 524 | run_dump_test_arches "rol-hw" [mips_arch_list_matching ror] |
| 525 | |
| 526 | run_dump_test_arches "rol64" [mips_arch_list_matching gpr64 !ror] |
| 527 | run_dump_test_arches "rol64-hw" [mips_arch_list_matching gpr64 ror] |
| 528 | |
| 529 | if !$aout { run_dump_test "sb" } |
| 530 | run_dump_test "trunc" |
| 531 | if !$aout { run_dump_test "ulh" } |
| 532 | run_dump_test_arches "ulh2-eb" [mips_arch_list_matching mips1] |
| 533 | run_dump_test_arches "ulh2-el" [mips_arch_list_matching mips1] |
| 534 | if $elf { run_dump_test "ulh-svr4pic" } |
| 535 | if $elf { run_dump_test "ulh-xgot" } |
| 536 | if !$aout { |
| 537 | run_dump_test "ulw" |
| 538 | run_dump_test "uld" |
| 539 | run_dump_test "ush" |
| 540 | run_dump_test "usw" |
| 541 | run_dump_test "usd" |
| 542 | } |
| 543 | run_dump_test_arches "ulw2-eb" \ |
| 544 | [mips_arch_list_matching mips1 !gpr_ilocks] |
| 545 | run_dump_test_arches "ulw2-eb-ilocks" [mips_arch_list_matching gpr_ilocks] |
| 546 | run_dump_test_arches "ulw2-el" \ |
| 547 | [mips_arch_list_matching mips1 !gpr_ilocks] |
| 548 | run_dump_test_arches "ulw2-el-ilocks" [mips_arch_list_matching gpr_ilocks] |
| 549 | |
| 550 | run_dump_test_arches "uld2-eb" [mips_arch_list_matching mips3] |
| 551 | run_dump_test_arches "uld2-el" [mips_arch_list_matching mips3] |
| 552 | |
| 553 | # The mips16 test can only be run on ELF, because only ELF |
| 554 | # supports the necessary mips16 reloc. |
| 555 | if { $elf && !$no_mips16 } { |
| 556 | run_dump_test "mips16" |
| 557 | run_dump_test "mips16-64" |
| 558 | # Check MIPS16e extensions |
| 559 | run_dump_test_arches "mips16e" [mips_arch_list_matching mips32] |
| 560 | # Check jalx handling |
| 561 | run_dump_test "mips16-jalx" |
| 562 | run_dump_test "mips-jalx" |
| 563 | run_dump_test "mips-jalx-2" |
| 564 | # Check MIPS16 HI16/LO16 relocations |
| 565 | run_dump_test "mips16-hilo" |
| 566 | if $has_newabi { |
| 567 | run_dump_test "mips16-hilo-n32" |
| 568 | } |
| 569 | run_dump_test "mips16-hilo-match" |
| 570 | } |
| 571 | run_dump_test "delay" |
| 572 | run_dump_test "nodelay" |
| 573 | run_dump_test "mips4010" |
| 574 | run_dump_test "mips4650" |
| 575 | run_dump_test "mips4100" |
| 576 | run_dump_test "vr4111" |
| 577 | run_dump_test "vr4120" |
| 578 | run_dump_test "vr4120-2" |
| 579 | run_dump_test "vr4130" |
| 580 | run_dump_test "vr5400" |
| 581 | run_dump_test "vr5500" |
| 582 | run_dump_test "rm7000" |
| 583 | run_dump_test "perfcount" |
| 584 | run_dump_test "lineno" |
| 585 | run_dump_test "sync" |
| 586 | |
| 587 | run_dump_test_arches "mips32" [mips_arch_list_matching mips32] |
| 588 | |
| 589 | run_dump_test_arches "mips32-sf32" [mips_arch_list_matching mips32] |
| 590 | run_list_test_arches "mips32-sf32" "-32 -msoft-float" \ |
| 591 | [mips_arch_list_matching mips32] |
| 592 | run_dump_test_arches "mips32-cp2" [mips_arch_list_matching mips32 \ |
| 593 | !octeon] |
| 594 | |
| 595 | run_dump_test_arches "mips32r2" [mips_arch_list_matching mips32r2] |
| 596 | run_dump_test_arches "mips32r2-cp2" [mips_arch_list_matching mips32r2 \ |
| 597 | !octeon] |
| 598 | run_dump_test_arches "mips32r2-fp32" \ |
| 599 | [mips_arch_list_matching mips32r2] |
| 600 | run_list_test_arches "mips32r2-fp32" "-32 -msoft-float" \ |
| 601 | [mips_arch_list_matching mips32r2] |
| 602 | run_list_test_arches "mips32r2-ill" "-32" \ |
| 603 | [mips_arch_list_matching mips32r2 gpr32] |
| 604 | run_list_test_arches "mips32r2-ill-fp64" "-mabi=o64" \ |
| 605 | [mips_arch_list_matching mips32r2 gpr64] |
| 606 | run_list_test_arches "mips32r2-ill-nofp" "-32 -msoft-float" \ |
| 607 | [mips_arch_list_matching mips32r2] |
| 608 | |
| 609 | run_dump_test_arches "mips64" [mips_arch_list_matching mips64] |
| 610 | run_dump_test_arches "mips64-cp2" [mips_arch_list_matching mips64 \ |
| 611 | !octeon] |
| 612 | |
| 613 | run_dump_test_arches "mips64r2" [mips_arch_list_matching mips64r2] |
| 614 | run_list_test_arches "mips64r2-ill" "" [mips_arch_list_matching mips64r2] |
| 615 | |
| 616 | run_dump_test "set-arch" |
| 617 | |
| 618 | if { !$addr32 } { |
| 619 | run_dump_test "mips64-mips3d" |
| 620 | run_dump_test_arches "mips64-mips3d-incl" [mips_arch_list_matching mips3d] |
| 621 | |
| 622 | run_dump_test "mips64-mdmx" |
| 623 | run_dump_test "sb1-ext-mdmx" |
| 624 | run_dump_test "sb1-ext-ps" |
| 625 | run_dump_test "xlr-ext" |
| 626 | } |
| 627 | |
| 628 | run_dump_test "relax" |
| 629 | run_dump_test "relax-swap1-mips1" |
| 630 | run_dump_test "relax-swap1-mips2" |
| 631 | run_dump_test "relax-swap2" |
| 632 | |
| 633 | run_list_test "illegal" "-32" |
| 634 | run_list_test "baddata1" "-32" |
| 635 | run_list_test "jalr" "" |
| 636 | |
| 637 | # LOSE: As of 2002-02-08, the next 4 tests fail for target mips-ecoff. |
| 638 | # It's unknown whether they _should_ pass as-is, or whether different |
| 639 | # variants are needed for ELF and ECOFF. |
| 640 | run_dump_test "mips-gp32-fp32" |
| 641 | run_dump_test "mips-gp32-fp64" |
| 642 | run_dump_test "mips-gp64-fp32" |
| 643 | run_dump_test "mips-gp64-fp64" |
| 644 | |
| 645 | if $elf { |
| 646 | # Make sure that -mcpu=FOO and -mFOO are equivalent. Assemble a file |
| 647 | # containing 4650-specific instructions with -m4650 and -mcpu=4650, |
| 648 | # and verify that they're the same. Specifically, we're checking |
| 649 | # that the EF_MIPS_MACH field is set, and that the 4650 'mul' |
| 650 | # instruction does get used. In previous versions of GAS, |
| 651 | # only -mcpu=4650 would set the EF_MIPS_MACH field; -m4650 wouldn't. |
| 652 | run_dump_test "elf_e_flags1" |
| 653 | run_dump_test "elf_e_flags2" |
| 654 | run_dump_test "elf_e_flags3" |
| 655 | run_dump_test "elf_e_flags4" |
| 656 | |
| 657 | # Check EF_MIPS_ARCH markings for each supported architecture. |
| 658 | run_dump_test "elf_arch_mips1" |
| 659 | run_dump_test "elf_arch_mips2" |
| 660 | run_dump_test "elf_arch_mips3" |
| 661 | run_dump_test "elf_arch_mips4" |
| 662 | run_dump_test "elf_arch_mips5" |
| 663 | run_dump_test "elf_arch_mips32" |
| 664 | run_dump_test "elf_arch_mips32r2" |
| 665 | run_dump_test "elf_arch_mips64" |
| 666 | run_dump_test "elf_arch_mips64r2" |
| 667 | |
| 668 | # Verify that ASE markings are handled properly. |
| 669 | if { !$no_mips16 } { run_dump_test "elf_ase_mips16" } |
| 670 | |
| 671 | run_dump_test "mips-gp32-fp32-pic" |
| 672 | run_dump_test "mips-gp32-fp64-pic" |
| 673 | run_dump_test "mips-gp64-fp32-pic" |
| 674 | run_dump_test "mips-gp64-fp64-pic" |
| 675 | |
| 676 | run_dump_test "mips-abi32" |
| 677 | run_dump_test "mips-abi32-pic" |
| 678 | run_dump_test "mips-abi32-pic2" |
| 679 | |
| 680 | run_dump_test "elf${el}-rel" |
| 681 | run_dump_test_arches "elf${el}-rel2" [mips_arch_list_matching gpr64] |
| 682 | run_dump_test "e32${el}-rel2" |
| 683 | run_dump_test "elf${el}-rel3" |
| 684 | run_dump_test_arches "elf-rel4" [mips_arch_list_matching gpr64] |
| 685 | run_dump_test "e32-rel4" |
| 686 | run_dump_test "elf-rel5" |
| 687 | run_dump_test "elf-rel6" |
| 688 | if $has_newabi { |
| 689 | run_dump_test "elf-rel6-n32" |
| 690 | run_dump_test "elf-rel6-n64" |
| 691 | } |
| 692 | run_dump_test "elf-rel7" |
| 693 | run_dump_test "elf-rel8" |
| 694 | run_dump_test "elf-rel8-mips16" |
| 695 | run_dump_test "elf-rel9" |
| 696 | run_dump_test "elf-rel9-mips16" |
| 697 | if $has_newabi { |
| 698 | run_dump_test "elf-rel10" |
| 699 | run_dump_test "elf-rel11" |
| 700 | } |
| 701 | run_dump_test "elf-rel12" |
| 702 | run_dump_test "elf-rel13" |
| 703 | run_dump_test "elf-rel13-mips16" |
| 704 | run_dump_test "elf-rel14" |
| 705 | |
| 706 | if $has_newabi { |
| 707 | run_dump_test "elf-rel15" |
| 708 | run_dump_test "elf-rel16" |
| 709 | |
| 710 | run_dump_test "elf-rel-got-n32" |
| 711 | run_dump_test "elf-rel-xgot-n32" |
| 712 | run_dump_test "elf-rel-got-n64" |
| 713 | run_dump_test "elf-rel-xgot-n64" |
| 714 | } |
| 715 | run_dump_test "elf-rel17" |
| 716 | if $has_newabi { |
| 717 | run_dump_test "elf-rel18" |
| 718 | } |
| 719 | run_dump_test "elf-rel19" |
| 720 | run_dump_test "elf-rel20" |
| 721 | if $has_newabi { |
| 722 | run_dump_test "elf-rel21" |
| 723 | run_dump_test "elf-rel22" |
| 724 | run_dump_test "elf-rel23" |
| 725 | run_dump_test "elf-rel23a" |
| 726 | run_dump_test "elf-rel23b" |
| 727 | run_dump_test "elf-rel24" |
| 728 | } |
| 729 | |
| 730 | run_dump_test "elf-rel25" |
| 731 | run_dump_test "elf-rel25a" |
| 732 | run_dump_test "elf-rel26" |
| 733 | |
| 734 | run_dump_test_arches "elf-rel27" [mips_arch_list_all] |
| 735 | |
| 736 | if { !$no_mips16 } { |
| 737 | run_dump_test "${tmips}mips${el}16-e" |
| 738 | run_dump_test "${tmips}mips${el}16-f" |
| 739 | } |
| 740 | run_dump_test "elf-consthilo" |
| 741 | run_dump_test "expr1" |
| 742 | |
| 743 | run_list_test "tls-ill" "-32" |
| 744 | run_dump_test "tls-o32" |
| 745 | run_dump_test "jalr2" |
| 746 | } |
| 747 | |
| 748 | if $has_newabi { |
| 749 | run_dump_test "n32-consec" |
| 750 | } |
| 751 | |
| 752 | # tests of objdump's ability to disassemble using different |
| 753 | # register names. |
| 754 | run_dump_test "gpr-names-numeric" |
| 755 | run_dump_test "gpr-names-32" |
| 756 | run_dump_test "gpr-names-n32" |
| 757 | run_dump_test "gpr-names-64" |
| 758 | |
| 759 | run_dump_test "fpr-names-numeric" |
| 760 | run_dump_test "fpr-names-32" |
| 761 | run_dump_test "fpr-names-n32" |
| 762 | run_dump_test "fpr-names-64" |
| 763 | |
| 764 | run_dump_test "cp0-names-numeric" |
| 765 | run_dump_test "cp0-names-r3000" |
| 766 | run_dump_test "cp0-names-r4000" \ |
| 767 | { { {name} {(r4000)} } { {objdump} {-M cp0-names=r4000} } } |
| 768 | run_dump_test "cp0-names-r4000" \ |
| 769 | { { {name} {(r4400)} } { {objdump} {-M cp0-names=r4400} } } |
| 770 | run_dump_test "cp0-names-mips32" |
| 771 | run_dump_test "cp0-names-mips32r2" |
| 772 | run_dump_test "cp0-names-mips64" |
| 773 | run_dump_test "cp0-names-mips64r2" |
| 774 | run_dump_test "cp0-names-sb1" |
| 775 | |
| 776 | run_dump_test "cp0sel-names-numeric" |
| 777 | run_dump_test "cp0sel-names-mips32" |
| 778 | run_dump_test "cp0sel-names-mips32r2" |
| 779 | run_dump_test "cp0sel-names-mips64" |
| 780 | run_dump_test "cp0sel-names-mips64r2" |
| 781 | run_dump_test "cp0sel-names-sb1" |
| 782 | |
| 783 | run_dump_test "hwr-names-numeric" |
| 784 | run_dump_test "hwr-names-mips32r2" |
| 785 | run_dump_test "hwr-names-mips64r2" |
| 786 | |
| 787 | run_dump_test "ldstla-32" |
| 788 | run_dump_test "ldstla-32-mips3" |
| 789 | run_dump_test "ldstla-32-shared" |
| 790 | run_dump_test "ldstla-32-mips3-shared" |
| 791 | run_list_test "ldstla-32-1" "-mabi=32" \ |
| 792 | "MIPS ld-st-la bad constants (ABI o32)" |
| 793 | run_list_test "ldstla-32-mips3-1" "-mabi=32" \ |
| 794 | "MIPS ld-st-la bad constants (ABI o32, mips3)" |
| 795 | run_list_test "ldstla-32-1" "-KPIC -mabi=32" \ |
| 796 | "MIPS ld-st-la bad constants (ABI o32, shared)" |
| 797 | run_list_test "ldstla-32-mips3-1" "-KPIC -mabi=32" \ |
| 798 | "MIPS ld-st-la bad constants (ABI o32, mips3, shared)" |
| 799 | run_dump_test "ldstla-eabi64" |
| 800 | if $has_newabi { |
| 801 | run_dump_test "ldstla-n64" |
| 802 | run_dump_test "ldstla-n64-shared" |
| 803 | run_dump_test "ldstla-n64-sym32" |
| 804 | } |
| 805 | |
| 806 | run_dump_test "macro-warn-1" |
| 807 | run_dump_test "macro-warn-2" |
| 808 | run_dump_test "macro-warn-3" |
| 809 | run_dump_test "macro-warn-4" |
| 810 | if $has_newabi { |
| 811 | run_dump_test "macro-warn-1-n32" |
| 812 | run_dump_test "macro-warn-2-n32" |
| 813 | } |
| 814 | |
| 815 | run_dump_test "noat-1" |
| 816 | run_list_test "noat-2" "" |
| 817 | run_list_test "noat-3" "" |
| 818 | run_list_test "noat-4" "" |
| 819 | run_list_test "noat-5" "" |
| 820 | run_list_test "noat-6" "" |
| 821 | run_list_test "noat-7" "" |
| 822 | |
| 823 | run_dump_test "at-1" |
| 824 | run_list_test "at-2" "-32 -mips1" "MIPS at-2" |
| 825 | |
| 826 | run_dump_test "loongson-2e" |
| 827 | run_dump_test "loongson-2f" |
| 828 | run_dump_test "loongson-2f-2" |
| 829 | run_dump_test "loongson-2f-3" |
| 830 | |
| 831 | run_dump_test_arches "octeon" [mips_arch_list_matching octeon] |
| 832 | run_list_test_arches "octeon-ill" "" \ |
| 833 | [mips_arch_list_matching octeon] |
| 834 | run_dump_test_arches "octeon-pref" [mips_arch_list_matching octeon] |
| 835 | |
| 836 | run_dump_test "smartmips" |
| 837 | run_dump_test "mips32-dsp" |
| 838 | run_dump_test "mips32-dspr2" |
| 839 | run_dump_test "mips64-dsp" |
| 840 | run_dump_test "mips32-mt" |
| 841 | |
| 842 | if { $elf && !$no_mips16 } { |
| 843 | run_dump_test "mips16-dwarf2" |
| 844 | if $has_newabi { |
| 845 | run_dump_test "mips16-dwarf2-n32" |
| 846 | } |
| 847 | } |
| 848 | if { !$no_mips16 } { |
| 849 | run_dump_test "mips16e-jrc" |
| 850 | run_dump_test "mips16e-save" |
| 851 | run_dump_test "mips16e-64" |
| 852 | run_list_test "mips16e-64" "-march=mips32 -32" |
| 853 | run_dump_test "mips16-intermix" |
| 854 | } |
| 855 | run_dump_test "vxworks1" |
| 856 | run_dump_test "vxworks1-xgot" |
| 857 | run_dump_test "vxworks1-el" |
| 858 | run_dump_test "vxworks1-xgot-el" |
| 859 | |
| 860 | run_dump_test "noreorder" |
| 861 | run_dump_test "align" |
| 862 | run_dump_test "align2" |
| 863 | run_dump_test "align2-el" |
| 864 | run_dump_test "odd-float" |
| 865 | |
| 866 | run_list_test_arches "mips-macro-ill-sfp" "-32 -msingle-float" \ |
| 867 | [mips_arch_list_matching mips2] |
| 868 | run_list_test_arches "mips-macro-ill-nofp" "-32 -msoft-float" \ |
| 869 | [mips_arch_list_matching mips2] |
| 870 | |
| 871 | run_list_test_arches "mips-hard-float-flag" \ |
| 872 | "-32 -msoft-float -mhard-float" \ |
| 873 | [mips_arch_list_matching mips1] |
| 874 | run_list_test_arches "mips-double-float-flag" \ |
| 875 | "-32 -msingle-float -mdouble-float" \ |
| 876 | [mips_arch_list_matching mips1] |
| 877 | |
| 878 | run_dump_test "mips16-vis-1" |
| 879 | run_dump_test "call-nonpic-1" |
| 880 | run_dump_test "mips32-sync" |
| 881 | run_dump_test_arches "mips32r2-sync" \ |
| 882 | [mips_arch_list_matching mips32r2] |
| 883 | |
| 884 | if $has_newabi { run_dump_test "cfi-n64-1" } |
| 885 | |
| 886 | run_dump_test_arches "aent" [mips_arch_list_matching mips1] |
| 887 | } |