gas/testsuite/gas/lns/lns.exp

   1 # ??? This probably shouldn't be replicated here...
   2 proc run_list_test { name opts } {
   3     global srcdir subdir
   4     set testname "lns $name"
   5     set file $srcdir/$subdir/$name
   6     gas_run ${name}.s $opts ">&dump.out"
   7     if { [regexp_diff "dump.out" "${file}.l"] } then {
   8         fail $testname
   9         verbose "output is [file_contents "dump.out"]" 2
  10         return
  11     }
  12     pass $testname
  13 }
  14
  15 if ![is_elf_format] then {
  16     return
  17 }
  18
  19 run_list_test "lns-diag-1" ""
  20
  21 # ??? Won't work on targets that don't have a bare "nop" insn.
  22 # Perhaps we could arrange for an include file or something that
  23 # defined a macro...
  24 if { ![istarget ia64*-*-*]
  25      && ![istarget i370-*-*]
  26      && ![istarget i960-*-*]
  27      && ![istarget mcore-*-*]
  28      && ![istarget or32-*-*]
  29      && ![istarget s390*-*-*] } {
  30   # Use alternate file for targets using DW_LNS_fixed_advance_pc opcodes.
  31   if { [istarget xtensa-*-*] } {
  32     run_dump_test "lns-common-1-alt"
  33   } else {
  34     run_dump_test "lns-common-1"
  35   }
  36 }