# | |
# pdp11/pdp11 tests | |
# | |
proc run_list_test { name opts } { | |
global srcdir subdir | |
set testname "pdp11 $name" | |
set file $srcdir/$subdir/$name | |
gas_run ${name}.s $opts ">&dump.out" | |
if { [regexp_diff "dump.out" "${file}.l"] } then { | |
fail $testname | |
verbose "output is [file_contents "dump.out"]" 2 | |
exit | |
return | |
} | |
pass $testname | |
} | |
if [expr [istarget "pdp11-*-*"]] then { | |
run_dump_test "opcode" | |
} |