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. 85proc 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. 109proc 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). 154proc 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. 163proc 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. 176proc 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. 187proc 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. 200proc 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. 209proc 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. 222proc 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. 250proc 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. 273proc 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. 289proc 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. 301proc 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. 320proc 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. 335proc 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. 348mips_arch_init 349mips_arch_create mips1 32 {} {} \ 350 { -march=mips1 -mtune=mips1 } { -mmips:3000 } 351mips_arch_create mips2 32 mips1 { gpr_ilocks } \ 352 { -march=mips2 -mtune=mips2 } { -mmips:6000 } 353mips_arch_create mips3 64 mips2 {} \ 354 { -march=mips3 -mtune=mips3 } { -mmips:4000 } 355mips_arch_create mips4 64 mips3 {} \ 356 { -march=mips4 -mtune=mips4 } { -mmips:8000 } 357mips_arch_create mips5 64 mips4 {} \ 358 { -march=mips5 -mtune=mips5 } { -mmips:mips5 } 359mips_arch_create mips32 32 mips2 {} \ 360 { -march=mips32 -mtune=mips32 } { -mmips:isa32 } \ 361 { mipsisa32-*-* mipsisa32el-*-* } 362mips_arch_create mips32r2 32 mips32 { ror } \ 363 { -march=mips32r2 -mtune=mips32r2 } \ 364 { -mmips:isa32r2 } \ 365 { mipsisa32r2-*-* mipsisa32r2el-*-* } 366mips_arch_create mips64 64 mips5 { mips32 } \ 367 { -march=mips64 -mtune=mips64 } { -mmips:isa64 } \ 368 { mipsisa64-*-* mipsisa64el-*-* } 369mips_arch_create mips64r2 64 mips64 { mips32r2 ror } \ 370 { -march=mips64r2 -mtune=mips64r2 } \ 371 { -mmips:isa64r2 } \ 372 { mipsisa64r2-*-* mipsisa64r2el-*-* } 373mips_arch_create r3000 32 mips1 {} \ 374 { -march=r3000 -mtune=r3000 } { -mmips:3000 } 375mips_arch_create r3900 32 mips1 { gpr_ilocks } \ 376 { -march=r3900 -mtune=r3900 } { -mmips:3900 } \ 377 { mipstx39-*-* mipstx39el-*-* } 378mips_arch_create r4000 64 mips3 {} \ 379 { -march=r4000 -mtune=r4000 } { -mmips:4000 } 380mips_arch_create vr5400 64 mips4 { ror } \ 381 { -march=vr5400 -mtune=vr5400 } { -mmips:5400 } 382mips_arch_create sb1 64 mips64 { mips3d } \ 383 { -march=sb1 -mtune=sb1 } { -mmips:sb1 } \ 384 { mipsisa64sb1-*-* mipsisa64sb1el-*-* } 385 386# 387# And now begin the actual tests! VxWorks uses RELA rather than REL 388# relocations, so most of the generic dump tests will not work there. 389# 390if { [istarget mips*-*-vxworks*] } { 391 run_dump_test "vxworks1" 392 run_dump_test "vxworks1-xgot" 393} elseif { [istarget mips*-*-*] } { 394 set no_mips16 0 395 set elf [expr [istarget *-*-elf*] || [istarget *-*-irix5*] || [istarget *-*-irix6* ] || [istarget *-*-linux*] || [istarget *-*-netbsd*] ] 396 set ecoff [expr [istarget *-*-ecoff*] || [istarget *-*-ultrix*] || [istarget *-*-irix\[1-4\]*] ] 397 set aout [expr [istarget *-*-bsd*] || [istarget *-*-openbsd*] ] 398 set ilocks [istarget mipstx39*-*-*] 399 set gpr_ilocks [expr [istarget mipstx39*-*-*]] 400 set addr32 [expr [istarget mipstx39*-*-*] || [istarget mips-*-linux*] || [istarget mipsel-*-linux*]] 401 set has_newabi [expr [istarget *-*-irix6*] || [istarget mips64*-*-linux*]] 402 403 if { [istarget "mips*-*-*linux*"] } then { 404 set tmips "t" 405 } else { 406 set tmips "" 407 } 408 if [istarget mips*el-*-*] { 409 set el "el" 410 } { 411 set el "" 412 } 413 414 run_dump_test_arches "abs" [mips_arch_list_matching mips1] 415 run_dump_test_arches "add" [mips_arch_list_matching mips1] 416 run_dump_test_arches "and" [mips_arch_list_matching mips1] 417 run_dump_test "break20" 418 run_dump_test "trap20" 419 420 # LOSE: As of 2002-02-08, "beq" through "bltu" fail for target mips-ecoff. 421 # See http://sources.redhat.com/ml/binutils/2001-10/msg00418.html for 422 # more information. Not sure if the fixes there are correct; should 423 # branches to external labels be allowed for ECOFF? 424 # XXX FIXME: the following tests require -mips2 disasm for 425 # branch-likely instructions. They should be split. 426 run_dump_test_arches "beq" [mips_arch_list_matching mips2] 427 run_dump_test_arches "bge" [mips_arch_list_matching mips2] 428 run_dump_test_arches "bgeu" [mips_arch_list_matching mips2] 429 run_dump_test_arches "blt" [mips_arch_list_matching mips2] 430 run_dump_test_arches "bltu" [mips_arch_list_matching mips2] 431 run_dump_test_arches "branch-misc-1" [mips_arch_list_matching mips1] 432 run_dump_test_arches "branch-misc-2" [mips_arch_list_matching mips1] 433 run_dump_test_arches "branch-misc-2pic" [mips_arch_list_matching mips1] 434 run_dump_test_arches "branch-misc-2-64" [mips_arch_list_matching mips3] 435 run_dump_test_arches "branch-misc-2pic-64" [mips_arch_list_matching mips3] 436 run_dump_test "branch-misc-3" 437 run_dump_test "branch-swap" 438 439 if $ilocks { 440 run_dump_test "div-ilocks" 441 } else { 442 run_dump_test "div" 443 } 444 if { !$addr32 } { 445 run_dump_test_arches "dli" [mips_arch_list_matching mips3] 446 } 447 if $elf { 448 run_dump_test_arches "elf-jal" [mips_arch_list_matching mips1] 449 } else { 450 run_dump_test "jal" 451 } 452 if $elf { run_dump_test "jal-svr4pic" } 453 if $elf { run_dump_test "jal-xgot" } 454 run_list_test_arches "jal-range" "-32" [mips_arch_list_matching mips1] 455 if $has_newabi { run_dump_test "jal-newabi" } 456 if !$aout { run_dump_test "la" } 457 if $elf { run_dump_test "la-svr4pic" } 458 if $elf { run_dump_test "la-xgot" } 459 if $elf { run_dump_test "lca-svr4pic" } 460 if $elf { run_dump_test "lca-xgot" } 461 if !$aout { 462 # XXX FIXME: Has mips2 and later insns with mips1 disassemblies. 463 # (Should split and then use appropriate arch lists.) 464 run_dump_test_arches "lb" [mips_arch_list_matching !mips2] 465 } 466 if $elf { 467 run_dump_test_arches "lb-svr4pic" [mips_arch_list_matching !gpr_ilocks] 468 run_dump_test_arches "lb-svr4pic-ilocks" [mips_arch_list_matching gpr_ilocks] 469 } 470 if $elf { 471 # Both versions specify the cpu, so we can run both regardless of 472 # the interlocking in the configured default cpu. 473 run_dump_test "lb-xgot" 474 run_dump_test "lb-xgot-ilocks" 475 } 476 if !$aout { 477 if !$gpr_ilocks { 478 run_dump_test "ld" 479 } else { 480 if !$addr32 { 481 run_dump_test "ld-ilocks" 482 } else { 483 run_dump_test "ld-ilocks-addr32" 484 } 485 } 486 } 487 if $elf { run_dump_test "ld-svr4pic" } 488 if $elf { run_dump_test "ld-xgot" } 489 run_dump_test_arches "li" [mips_arch_list_matching mips1] 490 if !$aout { run_dump_test "lifloat" } 491 if $elf { run_dump_test "lif-svr4pic" } 492 if $elf { run_dump_test "lif-xgot" } 493 run_dump_test_arches "mips4" [mips_arch_list_matching mips4] 494 run_dump_test_arches "mips5" [mips_arch_list_matching mips5] 495 if $ilocks { 496 run_dump_test "mul-ilocks" 497 } else { 498 run_dump_test "mul" 499 } 500 501 run_dump_test_arches "rol" [mips_arch_list_matching !ror] 502 run_dump_test_arches "rol-hw" [mips_arch_list_matching ror] 503 504 run_dump_test_arches "rol64" [mips_arch_list_matching gpr64 !ror] 505 run_dump_test_arches "rol64-hw" [mips_arch_list_matching gpr64 ror] 506 507 if !$aout { run_dump_test "sb" } 508 run_dump_test "trunc" 509 if !$aout { run_dump_test "ulh" } 510 run_dump_test_arches "ulh2-eb" [mips_arch_list_matching mips1] 511 run_dump_test_arches "ulh2-el" [mips_arch_list_matching mips1] 512 if $elf { run_dump_test "ulh-svr4pic" } 513 if $elf { run_dump_test "ulh-xgot" } 514 if !$aout { 515 run_dump_test "ulw" 516 run_dump_test "uld" 517 run_dump_test "ush" 518 run_dump_test "usw" 519 run_dump_test "usd" 520 } 521 run_dump_test_arches "ulw2-eb" [mips_arch_list_matching !gpr_ilocks] 522 run_dump_test_arches "ulw2-eb-ilocks" [mips_arch_list_matching gpr_ilocks] 523 run_dump_test_arches "ulw2-el" [mips_arch_list_matching !gpr_ilocks] 524 run_dump_test_arches "ulw2-el-ilocks" [mips_arch_list_matching gpr_ilocks] 525 526 run_dump_test_arches "uld2-eb" [mips_arch_list_matching mips3] 527 run_dump_test_arches "uld2-el" [mips_arch_list_matching mips3] 528 529 # The mips16 test can only be run on ELF, because only ELF 530 # supports the necessary mips16 reloc. 531 if { $elf && !$no_mips16 } { 532 run_dump_test "mips16" 533 run_dump_test "mips16-64" 534 # Check jalx handling 535 run_dump_test "mips16-jalx" 536 run_dump_test "mips-jalx" 537 # Check MIPS16 HI16/LO16 relocations 538 run_dump_test "mips16-hilo" 539 if $has_newabi { 540 run_dump_test "mips16-hilo-n32" 541 } 542 } 543 run_list_test "mips-no-jalx" "-32" 544 run_dump_test "delay" 545 run_dump_test "nodelay" 546 run_dump_test "mips4010" 547 run_dump_test "mips4650" 548 run_dump_test "mips4100" 549 run_dump_test "vr4111" 550 run_dump_test "vr4120" 551 run_dump_test "vr4120-2" 552 run_dump_test "vr4130" 553 run_dump_test "vr5400" 554 run_dump_test "vr5500" 555 run_dump_test "rm7000" 556 run_dump_test "perfcount" 557 run_dump_test "lineno" 558 run_dump_test "sync" 559 560 run_dump_test_arches "mips32" [mips_arch_list_matching mips32] 561 562 run_dump_test_arches "mips32r2" [mips_arch_list_matching mips32r2] 563 run_list_test_arches "mips32r2-ill" "-32" \ 564 [mips_arch_list_matching mips32r2 gpr32] 565 run_list_test_arches "mips32r2-ill-fp64" "-mabi=o64" \ 566 [mips_arch_list_matching mips32r2 gpr64] 567 568 run_dump_test_arches "mips64" [mips_arch_list_matching mips64] 569 570 run_dump_test_arches "mips64r2" [mips_arch_list_matching mips64r2] 571 run_list_test_arches "mips64r2-ill" "" [mips_arch_list_matching mips64r2] 572 573 run_dump_test "set-arch" 574 575 if { !$addr32 } { 576 run_dump_test "mips64-mips3d" 577 run_dump_test_arches "mips64-mips3d-incl" [mips_arch_list_matching mips3d] 578 579 run_dump_test "mips64-mdmx" 580 run_dump_test "sb1-ext-mdmx" 581 run_dump_test "sb1-ext-ps" 582 } 583 584 run_dump_test "relax" 585 run_dump_test "relax-swap1-mips1" 586 run_dump_test "relax-swap1-mips2" 587 run_dump_test "relax-swap2" 588 589 run_list_test "illegal" "-32" 590 run_list_test "baddata1" "-32" 591 592 # LOSE: As of 2002-02-08, the next 4 tests fail for target mips-ecoff. 593 # It's unknown whether they _should_ pass as-is, or whether different 594 # variants are needed for ELF and ECOFF. 595 run_dump_test "mips-gp32-fp32" 596 run_dump_test "mips-gp32-fp64" 597 run_dump_test "mips-gp64-fp32" 598 run_dump_test "mips-gp64-fp64" 599 600 if $elf { 601 # Make sure that -mcpu=FOO and -mFOO are equivalent. Assemble a file 602 # containing 4650-specific instructions with -m4650 and -mcpu=4650, 603 # and verify that they're the same. Specifically, we're checking 604 # that the EF_MIPS_MACH field is set, and that the 4650 'mul' 605 # instruction does get used. In previous versions of GAS, 606 # only -mcpu=4650 would set the EF_MIPS_MACH field; -m4650 wouldn't. 607 run_dump_test "elf_e_flags1" 608 run_dump_test "elf_e_flags2" 609 run_dump_test "elf_e_flags3" 610 run_dump_test "elf_e_flags4" 611 612 # Check EF_MIPS_ARCH markings for each supported architecture. 613 run_dump_test "elf_arch_mips1" 614 run_dump_test "elf_arch_mips2" 615 run_dump_test "elf_arch_mips3" 616 run_dump_test "elf_arch_mips4" 617 run_dump_test "elf_arch_mips5" 618 run_dump_test "elf_arch_mips32" 619 run_dump_test "elf_arch_mips32r2" 620 run_dump_test "elf_arch_mips64" 621 run_dump_test "elf_arch_mips64r2" 622 623 # Verify that ASE markings are handled properly. 624 if { !$no_mips16 } { run_dump_test "elf_ase_mips16" } 625 626 run_dump_test "mips-gp32-fp32-pic" 627 run_dump_test "mips-gp32-fp64-pic" 628 run_dump_test "mips-gp64-fp32-pic" 629 run_dump_test "mips-gp64-fp64-pic" 630 631 run_dump_test "mips-abi32" 632 run_dump_test "mips-abi32-pic" 633 run_dump_test "mips-abi32-pic2" 634 635 run_dump_test "elf${el}-rel" 636 if {[istarget mips64*-*-*] || [istarget mipsisa32*-*-*] 637 || [istarget mipsisa64*-*-*]} { 638 run_dump_test "elf${el}-rel2" 639 } else { 640 run_dump_test "e32${el}-rel2" 641 } 642 run_dump_test "elf${el}-rel3" 643 if {[istarget mips64*-*-*]} { 644 run_dump_test "elf-rel4" 645 } else { 646 run_dump_test "e32-rel4" 647 } 648 run_dump_test "elf-rel5" 649 run_dump_test "elf-rel6" 650 run_dump_test "elf-rel7" 651 run_dump_test "elf-rel8" 652 run_dump_test "elf-rel9" 653 if $has_newabi { 654 run_dump_test "elf-rel10" 655 run_dump_test "elf-rel11" 656 } 657 run_dump_test "elf-rel12" 658 run_dump_test "elf-rel13" 659 run_dump_test "elf-rel14" 660 661 if $has_newabi { 662 run_dump_test "elf-rel15" 663 run_dump_test "elf-rel16" 664 665 run_dump_test "elf-rel-got-n32" 666 run_dump_test "elf-rel-xgot-n32" 667 run_dump_test "elf-rel-got-n64" 668 run_dump_test "elf-rel-xgot-n64" 669 } 670 run_dump_test "elf-rel17" 671 if $has_newabi { 672 run_dump_test "elf-rel18" 673 } 674 run_dump_test "elf-rel19" 675 run_dump_test "elf-rel20" 676 if $has_newabi { 677 run_dump_test "elf-rel21" 678 run_dump_test "elf-rel22" 679 run_dump_test "elf-rel23" 680 run_dump_test "elf-rel23a" 681 run_dump_test "elf-rel23b" 682 run_dump_test "elf-rel24" 683 } 684 685 run_dump_test "elf-rel25" 686 run_dump_test "elf-rel25a" 687 688 if { !$no_mips16 } { 689 run_dump_test "${tmips}mips${el}16-e" 690 run_dump_test "${tmips}mips${el}16-f" 691 } 692 run_dump_test "elf-consthilo" 693 run_dump_test "expr1" 694 695 run_list_test "tls-ill" "-32" 696 run_dump_test "tls-o32" 697 } 698 699 if $has_newabi { 700 run_dump_test "n32-consec" 701 } 702 703 # tests of objdump's ability to disassemble using different 704 # register names. 705 run_dump_test "gpr-names-numeric" 706 run_dump_test "gpr-names-32" 707 run_dump_test "gpr-names-n32" 708 run_dump_test "gpr-names-64" 709 710 run_dump_test "fpr-names-numeric" 711 run_dump_test "fpr-names-32" 712 run_dump_test "fpr-names-n32" 713 run_dump_test "fpr-names-64" 714 715 run_dump_test "cp0-names-numeric" 716 run_dump_test "cp0-names-mips32" 717 run_dump_test "cp0-names-mips32r2" 718 run_dump_test "cp0-names-mips64" 719 run_dump_test "cp0-names-mips64r2" 720 run_dump_test "cp0-names-sb1" 721 722 run_dump_test "cp0sel-names-numeric" 723 run_dump_test "cp0sel-names-mips32" 724 run_dump_test "cp0sel-names-mips32r2" 725 run_dump_test "cp0sel-names-mips64" 726 run_dump_test "cp0sel-names-mips64r2" 727 run_dump_test "cp0sel-names-sb1" 728 729 run_dump_test "hwr-names-numeric" 730 run_dump_test "hwr-names-mips32r2" 731 run_dump_test "hwr-names-mips64r2" 732 733 run_dump_test "ldstla-32" 734 run_dump_test "ldstla-32-mips3" 735 run_dump_test "ldstla-32-shared" 736 run_dump_test "ldstla-32-mips3-shared" 737 run_list_test "ldstla-32-1" "-mabi=32" \ 738 "MIPS ld-st-la bad constants (ABI o32)" 739 run_list_test "ldstla-32-mips3-1" "-mabi=32" \ 740 "MIPS ld-st-la bad constants (ABI o32, mips3)" 741 run_list_test "ldstla-32-1" "-KPIC -mabi=32" \ 742 "MIPS ld-st-la bad constants (ABI o32, shared)" 743 run_list_test "ldstla-32-mips3-1" "-KPIC -mabi=32" \ 744 "MIPS ld-st-la bad constants (ABI o32, mips3, shared)" 745 run_dump_test "ldstla-eabi64" 746 if $has_newabi { 747 run_dump_test "ldstla-n64" 748 run_dump_test "ldstla-n64-shared" 749 run_dump_test "ldstla-n64-sym32" 750 } 751 752 run_dump_test "macro-warn-1" 753 run_dump_test "macro-warn-2" 754 run_dump_test "macro-warn-3" 755 run_dump_test "macro-warn-4" 756 if $has_newabi { 757 run_dump_test "macro-warn-1-n32" 758 run_dump_test "macro-warn-2-n32" 759 } 760 761 run_dump_test "noat-1" 762 run_list_test "noat-2" "" 763 run_list_test "noat-3" "" 764 run_list_test "noat-4" "" 765 run_list_test "noat-5" "" 766 run_list_test "noat-6" "" 767 run_list_test "noat-7" "" 768 769 run_dump_test_arches "mips32-dsp" [mips_arch_list_matching mips32 !sb1] 770 run_dump_test_arches "mips32-mt" [mips_arch_list_matching mips32r2 !gpr64] 771 772 if { $elf && !$no_mips16 } { 773 run_dump_test "mips16-dwarf2" 774 if $has_newabi { 775 run_dump_test "mips16-dwarf2-n32" 776 } 777 } 778 if { !$no_mips16 } { 779 run_dump_test "mips16e-jrc" 780 run_dump_test "mips16e-save" 781 } 782 run_dump_test "vxworks1" 783 run_dump_test "vxworks1-xgot" 784} 785