2 # Some generic VAX tests
6 set testname
"quad.s: quadword immediate values"
11 if { [istarget vax
-*-*elf
*] ||
[istarget vax
-*-linux
-gnu
*] } then {
17 -re
"^ +2\[ \t\]+0000+ 7D8F7856\[ \t\]+movq\[^\n\]*\n" { set x1 1 }
18 -re
"^ +2\[ \t\]+3412DDCC\[^\n\]*\n" { set x2 1 }
19 -re
"^ +2\[ \t\]+BBAA50\[ \t\]*\r\n" { set x3 1 }
21 timeout
{ perror
"timeout\n"; break }
26 if [all_ones $x1 $x2 $x3
] then { pass $testname
} else { fail $testname
}
29 if [istarget vax
-*-* ] then {
32 if [istarget vax
-*-*elf
*] {
33 run_dump_test
"elf-rel"