allinsn.exp

GNU binutils是GNU交叉工具链中的一个源码包

#
# Driver for CRX assembler testsuite
#

proc run_list_test { name opts } {
  global srcdir subdir
  set testname "CRX $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 crx-*-*] {
    return
}

set test_list [lsort [glob -nocomplain $srcdir/$subdir/*.d]]
foreach test $test_list {
    # We need to strip the ".d", but can leave the dirname.
    verbose [file rootname $test]
    run_dump_test [file rootname $test]
}