Commit | Line | Data |
---|---|---|
19f78583 RH |
1 | # |
2 | # Some generic alpha tests | |
3 | # | |
4 | ||
5 | proc run_list_test { name opts } { | |
6 | global srcdir subdir | |
7 | set testname "alpha $name" | |
8 | set file $srcdir/$subdir/$name | |
9 | gas_run ${name}.s $opts ">&dump.out" | |
10 | if { [regexp_diff "dump.out" "${file}.l"] } then { | |
11 | fail $testname | |
12 | verbose "output is [file_contents "dump.out"]" 2 | |
13 | return | |
14 | } | |
15 | pass $testname | |
16 | } | |
17 | ||
18 | if { [istarget alpha*-*-*] } then { | |
19 | ||
20 | set elf [expr [istarget *-*-elf*] \ | |
21 | || [istarget *-*-linux*] \ | |
22 | || [istarget *-*-freebsd*] \ | |
23 | || [istarget *-*-netbsd*] ] | |
24 | ||
25 | if $elf { | |
26 | run_dump_test "elf-reloc-1" | |
27 | run_list_test "elf-reloc-2" "" | |
28 | run_list_test "elf-reloc-3" "" | |
29 | run_dump_test "elf-reloc-4" | |
543833df RH |
30 | run_dump_test "elf-reloc-5" |
31 | run_list_test "elf-reloc-6" "" | |
021c2b5e | 32 | run_dump_test "elf-reloc-7" |
66ba4c77 | 33 | run_dump_test "elf-reloc-8" |
3765b1be RH |
34 | run_dump_test "elf-tls-1" |
35 | run_list_test "elf-tls-2" "" | |
36 | run_list_test "elf-tls-3" "" | |
f4b97536 RH |
37 | run_dump_test "elf-usepv-1" |
38 | run_list_test "elf-usepv-2" "" | |
19f78583 RH |
39 | } |
40 | ||
41 | run_dump_test "fp" | |
199f4802 | 42 | run_dump_test "unop" |
19f78583 | 43 | } |