Commit | Line | Data |
---|---|---|
fa87b337 RH |
1 | # ??? This probably shouldn't be replicated here... |
2 | proc run_list_test { name opts } { | |
3 | global srcdir subdir | |
4 | set testname "cfi $name" | |
5 | set file $srcdir/$subdir/$name | |
6 | gas_run ${name}.s $opts ">&dump.out" | |
7 | if { [regexp_diff "dump.out" "${file}.l"] } then { | |
8 | fail $testname | |
9 | verbose "output is [file_contents "dump.out"]" 2 | |
10 | return | |
11 | } | |
12 | pass $testname | |
13 | } | |
14 | ||
d04428bd AM |
15 | if ![is_elf_format] then { |
16 | return | |
17 | } | |
fa87b337 | 18 | |
2ebaa23b AM |
19 | if [istarget "x86_64-*"] then { |
20 | run_dump_test "cfi-x86_64" | |
2ebaa23b | 21 | |
d04428bd | 22 | } elseif [istarget "i?86-*"] then { |
2ebaa23b | 23 | run_dump_test "cfi-i386" |
f37f01cf | 24 | |
d04428bd AM |
25 | } elseif { [istarget alpha*-*-*] } then { |
26 | run_dump_test "cfi-alpha-1" | |
27 | run_dump_test "cfi-alpha-2" | |
28 | run_dump_test "cfi-alpha-3" | |
f37f01cf | 29 | |
d04428bd AM |
30 | } else { |
31 | return | |
f37f01cf | 32 | } |
fa87b337 | 33 | |
d04428bd AM |
34 | run_list_test "cfi-diag-1" "" |
35 | run_dump_test "cfi-common-1" | |
36 | run_dump_test "cfi-common-2" | |
cdfbf930 | 37 | run_dump_test "cfi-common-3" |