1# RX assembler testsuite 2# -*- tcl -*- 3 4if { ! [istarget rx-*-*] } { 5 return 6} 7 8foreach 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 16run_dump_test "rx-asm-good" 17# run_list_test "rx-asm-bad" "" "Generation of error messages with bogus Renesas assembler directives" 18