gas/testsuite/gas/rx/rx.exp

   1 # RX assembler testsuite
   2 # -*- tcl -*-
   3
   4 if { ! [istarget rx-*-*] } {
   5     return
   6 }
   7
   8 foreach test [lsort [glob $srcdir/$subdir/*.sm]] {
   9     regexp ".*/(.*)\.sm" $test rxjunk rxbase
  10     exec "$srcdir/$subdir/explode" "-I" "$srcdir/$subdir" "$test" "$srcdir/$subdir/$rxbase.s"
  11     run_dump_test "$rxbase"
  12     # Commment out the next line if you want to retain the generated assembler source files.
  13     remote_file host delete "$srcdir/$subdir/$rxbase.s"
  14 }
  15
  16 run_dump_test "rx-asm-good"
  17 # run_list_test "rx-asm-bad" "" "Generation of error messages with bogus Renesas assembler directives"