gas/testsuite/gas/d10v/d10.exp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#
# Driver for D10V assembler testsuite
#
proc run_list_test { name opts } {
  global srcdir subdir
  set testname "D10V $name"
  set file $srcdir/$subdir/$name
  gas_run ${name}.s $opts ">&dump.out"
  if {[regexp_diff "dump.out" "${file}.l"] } {
    fail $testname
    verbose "output is [file_contents "dump.out"]" 2
    return
  }
  pass $testname
}

if {[istarget d10v-*-*]} {
  run_dump_test "inst"
}