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 | |
75e21f08 JJ |
30 | } elseif { [istarget ppc*-*-*] || [istarget powerpc*-*-*] } then { |
31 | run_dump_test "cfi-ppc-1" | |
32 | ||
33 | } elseif { [istarget s390*-*-*] } then { | |
34 | run_dump_test "cfi-s390-1" | |
35 | if { [istarget s390x*-*-*] } then { | |
36 | run_dump_test "cfi-s390x-1" | |
37 | } | |
38 | ||
c04898f8 AS |
39 | } elseif { [istarget "m68*-*"] } then { |
40 | run_dump_test "cfi-m68k" | |
41 | ||
364b6d8b JJ |
42 | } elseif { [istarget sparc*-*-*] } then { |
43 | global NM | |
44 | global NMFLAGS | |
45 | global srcdir | |
46 | ||
47 | catch "exec $srcdir/lib/run $NM $NMFLAGS --help" nm_help | |
48 | run_dump_test "cfi-sparc-1" | |
49 | if { [regexp "elf64\[_-\]sparc" $nm_help] } then { | |
50 | run_dump_test "cfi-sparc64-1" | |
51 | } | |
d04428bd AM |
52 | } else { |
53 | return | |
f37f01cf | 54 | } |
fa87b337 | 55 | |
d04428bd AM |
56 | run_list_test "cfi-diag-1" "" |
57 | run_dump_test "cfi-common-1" | |
58 | run_dump_test "cfi-common-2" | |
cdfbf930 | 59 | run_dump_test "cfi-common-3" |