# # MAXQ20 tests # proc run_list_test { name opts } { global srcdir subdir set testname "maxq20 $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 return } pass $testname } proc gas_64_check { } { global NM global NMFLAGS global srcdir catch "exec $srcdir/lib/run $NM $NMFLAGS --help" nm_help return [regexp "targets:.*maxq" $nm_help]; } proc gas_32_check { } { global NM global NMFLAGS global srcdir catch "exec $srcdir/lib/run $NM $NMFLAGS --help" nm_help return [regexp "targets:.*maxq" $nm_help]; } if [expr ([istarget "maxq-*-*"] || [istarget "maxq-coff-*-*"]) && [gas_32_check]] then { global ASFLAGS set old_ASFLAGS "$ASFLAGS" set ASFLAGS "$ASFLAGS" run_dump_test "range" run_dump_test "data3" run_dump_test "data2" run_dump_test "call" run_dump_test "jump" run_dump_test "logical" run_dump_test "math" run_dump_test "bits" run_dump_test "data1" run_dump_test "jzimm" set ASFLAGS "$old_ASFLAGS" }