[deliverable/binutils-gdb.git] / gas / testsuite / gas / rx / rx.exp

# 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"
Commit	Line	Data
c7927a3c NC	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"