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*-*-*] && ![istarget i370-*-*] && ![istarget i960-*-*]
  25      && ![istarget or32-*-*] && ![istarget s390*-*-*] } {
  26   # Use alternate file for targets using DW_LNS_fixed_advance_pc opcodes.
  27   if { [istarget xtensa-*-*] } {
  28     run_dump_test "lns-common-1-alt"
  29   } else {
  30     run_dump_test "lns-common-1"
  31   }
  32 }