Commit | Line | Data |
---|---|---|
252b5132 RH |
1 | proc do_quad {} { |
2 | set testname "quad.s: quadword immediate values" | |
3 | set x1 0 | |
4 | set x2 0 | |
5 | set x3 0 | |
6 | gas_start "quad.s" "-al" | |
7 | while 1 { | |
8 | expect { | |
9 | -re "^ +2\[ \t\]+0000+ 7D8F7856\[ \t\]+movq\[^\n\]*\n" { set x1 1 } | |
10 | -re "^ +2\[ \t\]+3412DDCC\[^\n\]*\n" { set x2 1 } | |
11 | -re "^ +2\[ \t\]+BBAA5001\[ \t\]*\r\n" { set x3 1 } | |
12 | -re "\[^\n\]*\n" { } | |
13 | timeout { perror "timeout\n"; break } | |
14 | eof { break } | |
15 | } | |
16 | } | |
17 | gas_finish | |
18 | if [all_ones $x1 $x2 $x3] then { pass $testname } else { fail $testname } | |
19 | } | |
20 | ||
21 | if [istarget vax-*-*] then { | |
22 | do_quad | |
23 | } |