gas/testsuite/gas/d10v/d10.exp

   1 #
   2 # Driver for D10V assembler testsuite
   3 #
   4 proc run_list_test { name opts } {
   5   global srcdir subdir
   6   set testname "D10V $name"
   7   set file $srcdir/$subdir/$name
   8   gas_run ${name}.s $opts ">&dump.out"
   9   if {[regexp_diff "dump.out" "${file}.l"] } {
  10     fail $testname
  11     verbose "output is [file_contents "dump.out"]" 2
  12     return
  13   }
  14   pass $testname
  15 }
  16
  17 if {[istarget d10v-*-*]} {
  18   run_dump_test "inst"
  19 }