4 proc run_list_test
{ name opts
} {
6 set testname
"i386 $name"
7 set file $srcdir
/$subdir
/$
name
8 gas_run $
{name}.s $opts
">&dump.out"
9 if { [regexp_diff
"dump.out" "${file}.l"] } then {
11 verbose
"output is [file_contents "dump.out"]" 2
17 proc gas_64_check
{ } {
22 catch
"exec $srcdir/lib/run $NM $NMFLAGS --help" nm_help
23 return [regexp
"targets:.*x86-64" $nm_help]
26 proc gas_32_check
{ } {
31 catch
"exec $srcdir/lib/run $NM $NMFLAGS --help" nm_help
32 return [regexp
"targets:.*i386" $nm_help]
36 if [expr
([istarget
"i*86-*-*"] || [istarget "x86_64-*-*"]) && [gas_32_check]] then {
39 set old_ASFLAGS
"$ASFLAGS"
40 set ASFLAGS
"$ASFLAGS --32"
42 run_list_test
"float" "-al"
43 run_list_test
"general" "-al --listing-lhs-width=2"
44 run_list_test
"inval" "-al"
45 run_list_test
"modrm" "-al --listing-lhs-width=2"
47 run_dump_test
"opcode"
49 run_dump_test
"intel16"
50 run_dump_test
"prefix"
52 run_dump_test
"katmai"
54 run_dump_test
"ssemmx2"
56 run_dump_test
"absrel"
58 run_dump_test
"prescott"
59 run_dump_test
"divide"
60 run_dump_test
"padlock"
62 # These tests require support
for 8 and
16 bit relocs
,
63 # so we only run them
for ELF and COFF targets.
64 if {[is_elf_format
] ||
[istarget
"*-*-coff*"]} then {
66 run_dump_test
"jump16"
67 run_list_test
"white" "-al --listing-lhs-width=3"
71 if [is_elf_format
] then {
72 # PIC is only supported
on ELF targets.
73 run_dump_test
"intelpic"
78 run_dump_test
"tlspic"
79 run_dump_test
"tlsnopic"
83 # This is a PE specific test.
84 if { [istarget
"*-*-cygwin*"] || [istarget "*-*-pe"]
85 ||
[istarget
"*-*-mingw*"]
87 run_dump_test
"secrel"
90 set ASFLAGS
"$old_ASFLAGS"
93 if [expr
([istarget
"i*86-*-*"] || [istarget "x86_64-*-*"]) && [gas_64_check]] then {
96 set old_ASFLAGS
"$ASFLAGS"
97 set ASFLAGS
"$ASFLAGS --64"
99 run_dump_test
"x86_64"
100 run_dump_test
"x86-64-addr32"
101 run_dump_test
"x86-64-opcode"
102 run_dump_test
"x86-64-rip"
103 run_list_test
"x86-64-inval" "-al"
105 set ASFLAGS
"$old_ASFLAGS"