Commit | Line | Data |
---|---|---|
7239c297 ILT |
1 | # |
2 | # Some generic m68k tests | |
3 | # | |
4 | if [istarget m68*-*-*] then { | |
5 | gas_test "t2.s" "" "" "cross-section branch" | |
6 | ||
7 | gas_test "pic1.s" "" "" "PIC generation" | |
8 | ||
9 | gas_test "disperr.s" "" "" "Incorrect Displacement too long error" | |
10 | ||
11 | gas_test_error "p2410.s" "" "out-of-range 'bras'" | |
12 | ||
59e3498d | 13 | if [expr [istarget m68*-*-hpux*] || [istarget m68*-*-sun*] \ |
7239c297 ILT |
14 | || [istarget m68*-*-*aout*] \ |
15 | || [istarget m68*-*-coff*] \ | |
dae9b930 | 16 | || [istarget m68*-*-vxworks*] \ |
7239c297 ILT |
17 | ] then { |
18 | run_dump_test "schwab" | |
19 | } | |
20 | ||
21 | run_dump_test operands | |
22 | run_dump_test cas | |
23 | run_dump_test bitfield | |
dae9b930 | 24 | run_dump_test link |
7239c297 ILT |
25 | |
26 | set testname "68000 operands" | |
27 | gas_run "operands.s" "-m68000" "2>err.out" | |
28 | if ![string match "child process exited abnormally" $comp_output] then { | |
29 | send_log "$comp_output\n" | |
30 | verbose "$comp_output" 3 | |
31 | fail $testname | |
32 | } else { | |
33 | if [regexp_diff "err.out" "$srcdir$subdir/op68000.d"] then { | |
34 | fail $testname | |
35 | } else { | |
36 | pass $testname | |
37 | } | |
38 | } | |
39 | } | |
40 | if [info exists errorInfo] then { | |
41 | unset errorInfo | |
42 | } |