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   run_dump_test "lns-common-1"
  27 }