## Some ARM tests#proc run_errors_test { name opts tname} {    global srcdir subdir    set testname "$tname"    set file $srcdir/$subdir/$name    gas_run ${name}.s $opts ">&${name}.out"    if { [regexp_diff "${name}.out" "${file}.l"] } then {        fail $testname        verbose "output is [file_contents "${name}.out"]" 2        return    }    pass $testname}if {[istarget *arm*-*-*] || [istarget "xscale-*-*"]} then {    if {[istarget *-wince-*]} then {	run_dump_test "wince_inst"	run_dump_test "wince_ldconst"	run_dump_test "wince_arm7t"	run_dump_test "wince_copro"    } else {	run_dump_test "inst"	run_dump_test "ldconst"	run_dump_test "arm7t"	run_dump_test "copro"    }    gas_test "arm3.s" "-mcpu=arm3" $stdoptlist "Arm 3 instructions"    gas_test "arm6.s" "-mcpu=arm6" $stdoptlist "Arm 6 instructions"    gas_test "arm7dm.s" "-mcpu=arm7dm" $stdoptlist "Arm 7DM instructions"    gas_test "arch4t.s" "-march=armv4t" $stdoptlist "Arm architecture 4t instructions"    gas_test "immed.s" "" $stdoptlist "immediate expressions"    gas_test "float.s" "-mcpu=arm7tdmi -mfpu=fpa" $stdoptlist "Core floating point instructions"    gas_test "offset.s" "" $stdoptlist "OFFSET_IMM regression"    run_dump_test "armv1"    run_dump_test "arch5tej"    run_dump_test "fpa-monadic"    run_dump_test "fpa-dyadic"    run_dump_test "fpa-mem"    run_dump_test "vfp1xD"    run_dump_test "vfp1"    run_dump_test "vfp2"    run_dump_test "xscale"    run_dump_test "adrl"    run_dump_test "reg-alias"    run_dump_test "maverick"        run_dump_test "archv6"    run_dump_test "thumbv6"    run_dump_test "arch6zk"        run_errors_test "vfp-bad" "-mfpu=vfp" "VFP errors"    run_errors_test "req" "-mcpu=arm7m" ".req errors"    run_errors_test "armv1-bad" "-mcpu=arm7m" "ARM v1 errors"    run_errors_test "r15-bad" "" "Invalid use of r15 errors"    if {[istarget *-*-*coff] || [istarget *-*-pe] || [istarget *-*-wince] ||        [istarget *-*-*aout*] || [istarget *-*-netbsd] || [istarget *-*-riscix*]} then {	# COFF and aout based ports use a different naming convention for local labels.       run_errors_test "undefined_coff" "" "Undefined local label error"   } else {       # For ELF based ports we can run some additional tests as well.        run_errors_test "undefined" "" "Undefined local label error"       	run_dump_test "pic"	run_dump_test "mapping"	gas_test "bignum1.s" "" $stdoptlist "bignums"	run_dump_test "unwind"    }    if {! [istarget arm*-*-aout] && ![istarget arm-*-pe]} then {	# The arm-aout port does not support Thumb mode.	gas_test "thumb.s" "-mcpu=arm7t" $stdoptlist "Thumb instructions"    }}# Not all arm targets are bi-endian, so only run this test on ones# we know that are.  FIXME: We should probably also key off armeb/armel.if [istarget arm-*-pe] {    run_dump_test "le-fpconst"    # Since big-endian numbers have the normal format, this doesn't exist.    #run_dump_test "be-fpconst"}if [istarget xscale-*] {    run_dump_test "iwmmxt"    run_errors_test "iwmmxt-bad" "-mcpu=iwmmxt" "iWMMXt errors"}