* gas/mn10300/basic.exp: Test insertion of 32bit operand

in calls, btst, bclr & bset instructions.
This commit is contained in:
Jeff Law 1996-11-06 21:23:32 +00:00
parent bdd91d4f41
commit 7ebc8b47ef
2 changed files with 13 additions and 6 deletions

View File

@ -1,5 +1,8 @@
Wed Nov 6 13:50:07 1996 Jeffrey A Law (law@cygnus.com)
* gas/mn10300/basic.exp: Test insertion of 32bit operand
in calls, btst, bclr & bset instructions.
* gas/mn10300/*.s: Tweak constants in 32bit insns for
better testing coverage.
* gas/mn10300/basic.exp: Test insertion of most 32bit

View File

@ -117,13 +117,16 @@ proc do_bit {} {
-re "^ +\[0-9\]+ 0007 FCEF0001\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +4 +FFFF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000d FAF90840\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0011\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0011 FE020001\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +6 +FFFF40\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0018 F086\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001a FAF10840\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001e\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001e FE000001\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +9 +FFFF40\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0025 F096\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0027 FAF50840\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002b\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002b FE010001\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +13 +FFFF40\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
@ -135,7 +138,7 @@ proc do_bit {} {
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==12] then { pass $testname } else { fail $testname }
if [expr $x==15] then { pass $testname } else { fail $testname }
}
proc do_cmp {} {
@ -677,7 +680,8 @@ proc do_other {} {
-re "^ +\[0-9\]+ 0013\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001a F0F2\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001c FAFF0100\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0020\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0020 FCFF0001\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +13 +FFFF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0026 DF0F07\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0029 DE0905\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002c F0FC\[^\n\]*\n" { set x [expr $x+1] }
@ -696,7 +700,7 @@ proc do_other {} {
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==20] then { pass $testname } else { fail $testname }
if [expr $x==21] then { pass $testname } else { fail $testname }
}
proc do_shift {} {