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 # Nor does it work on targets that do not generate line number
  25 # information (d10v).
  26 if {
  27         ![istarget d10v-*-*]
  28      && ![istarget ia64*-*-*]
  29      && ![istarget i370-*-*]
  30      && ![istarget i960-*-*]
  31      && ![istarget mcore-*-*]
  32      && ![istarget or32-*-*]
  33      && ![istarget s390*-*-*]
  34 } {
  35     # Use alternate file for targets using DW_LNS_fixed_advance_pc opcodes.
  36     if { [istarget xtensa-*-*] } {
  37       run_dump_test "lns-common-1-alt"
  38     } else {
  39       run_dump_test "lns-common-1"
  40     }
  41 }