# RX assembler testsuite
# -*- tcl -*-

if { ! [istarget rx-*-*] } {
    return
}

foreach test [lsort [glob $srcdir/$subdir/*.sm]] {
    regexp ".*/(.*)\.sm" $test rxjunk rxbase
    exec "$srcdir/$subdir/explode" "-I" "$srcdir/$subdir" "$test" "$srcdir/$subdir/$rxbase.s"
    run_dump_test "$rxbase"
    # Commment out the next line if you want to retain the generated assembler source files.
    remote_file host delete "$srcdir/$subdir/$rxbase.s"
}

run_dump_test "rx-asm-good"
# run_list_test "rx-asm-bad" "" "Generation of error messages with bogus Renesas assembler directives"