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 | ||
15 | set any "0" | |
16 | ||
2ebaa23b AM |
17 | if [istarget "x86_64-*"] then { |
18 | run_dump_test "cfi-x86_64" | |
fa87b337 | 19 | set any "1" |
2ebaa23b AM |
20 | } |
21 | ||
22 | if [istarget "i?86-*"] then { | |
23 | run_dump_test "cfi-i386" | |
fa87b337 | 24 | set any "1" |
2ebaa23b | 25 | } |
f37f01cf RH |
26 | |
27 | if { [istarget alpha*-*-*] } then { | |
28 | ||
29 | set elf [expr [istarget *-*-elf*] \ | |
30 | || [istarget *-*-linux*] \ | |
31 | || [istarget *-*-freebsd*] \ | |
32 | || [istarget *-*-netbsd*] ] | |
33 | ||
34 | if $elf { | |
35 | run_dump_test "cfi-alpha-1" | |
eafbc43f | 36 | run_dump_test "cfi-alpha-2" |
f4b97536 | 37 | run_dump_test "cfi-alpha-3" |
fa87b337 | 38 | set any "1" |
f37f01cf RH |
39 | } |
40 | } | |
fa87b337 RH |
41 | |
42 | if $any { | |
43 | run_list_test "cfi-diag-1" "" | |
44 | run_dump_test "cfi-common-1" | |
45 | run_dump_test "cfi-common-2" | |
46 | } |