d10.exp

来自「基于4个mips核的noc设计」· EXP 代码 · 共 20 行

#
# 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"
}