d30.exp

俄罗斯高人Mamaich的Pocket gcc编译器（运行在PocketPC上）的全部源代码。

#
# D30V assembler tests
#

proc run_list_test { name opts } {
  global srcdir subdir
  set testname "D30V $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 d30v-*-*]} {
  run_dump_test "inst"
  run_dump_test "align"
  run_dump_test "guard"
  run_dump_test "guard-debug"
  run_dump_test "reloc"
  run_dump_test "opt"
  run_dump_test "array"
  run_dump_test "label"
  run_list_test "warn_oddreg" "-al"
  run_list_test "bittest" "-al"
  run_dump_test "bittest"
  run_list_test "serial" "-al"
  run_list_test "serial2" "-al"
  run_list_test "serial2O" "-al -O"
  run_dump_test "mul"
}