4 proc run_errors_test
{ name opts tname
} {
7 set file $srcdir
/$subdir
/$
name
8 gas_run $
{name}.s $opts
">&${name}.out"
9 if { [regexp_diff
"${name}.out" "${file}.l"] } then {
11 verbose
"output is [file_contents "${name}.out"]" 2
17 if {[istarget
*arm
*-*-*] ||
[istarget
"xscale-*-*"]} then {
20 run_dump_test
"ldconst"
24 run_errors_test
"armv1-bad" "-mcpu=arm7m" "ARM v1 errors"
26 gas_test
"arm3.s" "-mcpu=arm3" $stdoptlist "Arm 3 instructions"
28 gas_test
"arm6.s" "-mcpu=arm6" $stdoptlist "Arm 6 instructions"
30 gas_test
"arm7dm.s" "-mcpu=arm7dm" $stdoptlist "Arm 7DM instructions"
34 if {! [istarget arm
*-*-aout
]} then {
35 # The arm
-aout port does not support Thumb
mode.
36 gas_test
"thumb.s" "-mcpu=arm7t" $stdoptlist "Thumb instructions"
39 gas_test
"arch4t.s" "-march=armv4t" $stdoptlist "Arm architecture 4t instructions"
41 run_dump_test
"arch5tej"
43 gas_test
"copro.s" "" $stdoptlist "Co processor instructions"
45 gas_test
"immed.s" "" $stdoptlist "immediate expressions"
47 gas_test
"float.s" "" $stdoptlist "Core floating point instructions"
49 run_dump_test
"fpa-monadic"
51 run_dump_test
"fpa-dyadic"
53 run_dump_test
"fpa-mem"
55 run_dump_test
"vfp1xD"
59 run_errors_test
"vfp-bad" "-mfpu=vfp" "VFP errors"
61 run_dump_test
"xscale"
65 if {[istarget
*-*-elf
*] ||
[istarget
*-*-linux
*]} then {
70 # Not all arm targets are bi
-endian
, so only run this test
on ones
71 # we know that are. FIXME
: We should probably also
key off armeb
/armel.
73 if [istarget arm
-*-pe
] {
74 run_dump_test
"le-fpconst"
76 # Since big
-endian numbers have the
normal format
, this doesn
't exist.
77 #run_dump_test "be-fpconst"
80 if [istarget arm9e-*] {
81 run_dump_test "maverick"