Commit | Line | Data |
---|---|---|
8f3f3666 JT |
1 | # |
2 | # Some generic VAX tests | |
3 | # | |
4 | ||
252b5132 RH |
5 | proc do_quad {} { |
6 | set testname "quad.s: quadword immediate values" | |
7 | set x1 0 | |
8 | set x2 0 | |
9 | set x3 0 | |
6c2beb07 | 10 | set file "quad.s" |
ee58dd1e | 11 | if { [istarget vax-*-*elf*] || [istarget vax-*-linux-*] } then { |
8f3f3666 | 12 | set file "quad_elf.s" |
6c2beb07 AM |
13 | } |
14 | gas_start $file "-al" | |
252b5132 RH |
15 | while 1 { |
16 | expect { | |
17 | -re "^ +2\[ \t\]+0000+ 7D8F7856\[ \t\]+movq\[^\n\]*\n" { set x1 1 } | |
18 | -re "^ +2\[ \t\]+3412DDCC\[^\n\]*\n" { set x2 1 } | |
bbe6d95f | 19 | -re "^ +2\[ \t\]+BBAA50\[ \t\]*\r\n" { set x3 1 } |
252b5132 RH |
20 | -re "\[^\n\]*\n" { } |
21 | timeout { perror "timeout\n"; break } | |
22 | eof { break } | |
23 | } | |
24 | } | |
25 | gas_finish | |
26 | if [all_ones $x1 $x2 $x3] then { pass $testname } else { fail $testname } | |
27 | } | |
28 | ||
8f3f3666 | 29 | if [istarget vax-*-* ] then { |
252b5132 | 30 | do_quad |
8f3f3666 | 31 | |
d2c5f73e NC |
32 | run_dump_test "flonum" |
33 | ||
ee58dd1e | 34 | if { [istarget vax-*-*elf*] || [istarget vax-*-linux-*] } then { |
8f3f3666 JT |
35 | run_dump_test "elf-rel" |
36 | } | |
252b5132 | 37 | } |