darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-11-24 20:49:43 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Tue Nov 30 23:02:01 1999 Jeffrey A Law (law@cygnus.com)

Browse Source 
* gas/mn10300/{am33.s, am33_2.s, am33_3.s}: New test files.
        * gas/mn10300/{am33_4.s, am33_5.s, am33_6.s}: Likewise.
        * gas/mn10300/{am33_7.s, am33_8.s}: Likewise.
        * gas/mn10300/basic.exp: Run the am33 tests.
This commit is contained in:
Jeff Law 1999-12-01 10:41:44 +00:00
parent 85cb2cf971
commit 433b86296f
10 changed files with 1230 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gas/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
Tue Nov 30 23:02:01 1999 Jeffrey A Law (law@cygnus.com)
* gas/mn10300/{am33.s, am33_2.s, am33_3.s}: New test files.
* gas/mn10300/{am33_4.s, am33_5.s, am33_6.s}: Likewise.
* gas/mn10300/{am33_7.s, am33_8.s}: Likewise.
* gas/mn10300/basic.exp: Run the am33 tests.
1999-11-15 Gavin Romig-Koch <gavin@cygnus.com>
* gas/mips/la.d: Adjust for new la macro expansion.

46
gas/testsuite/gas/mn10300/am33.s Normal file
View File

@ -0,0 +1,46 @@
.text
.am33
call 256,[a2,a3,exreg0],9
call 256,[a2,a3,exreg1],9
call 256,[a2,a3,exother],9
call 256,[a2,a3,all],9
call 131071,[a2,a3,exreg0],9
call 131071,[a2,a3,exreg1],9
call 131071,[a2,a3,exother],9
call 131071,[a2,a3,all],9
movm (sp),[a2,a3,exreg0]
movm (sp),[a2,a3,exreg1]
movm (sp),[a2,a3,exother]
movm (sp),[a2,a3,all]
movm [a2,a3,exreg0],(sp)
movm [a2,a3,exreg1],(sp)
movm [a2,a3,exother],(sp)
movm [a2,a3,all],(sp)
movm (usp),[a2,a3,exreg0]
movm (usp),[a2,a3,exreg1]
movm (usp),[a2,a3,exother]
movm (usp),[a2,a3,all]
movm [a2,a3,exreg0],(usp)
movm [a2,a3,exreg1],(usp)
movm [a2,a3,exother],(usp)
movm [a2,a3,all],(usp)
mov usp,a0
mov ssp,a1
mov msp,a2
mov pc,a3
mov a0,usp
mov a1,ssp
mov a2,msp
syscall 0x4
mov epsw,d0
mov d1,epsw
mov a0,r1
mov d2,r3
mov r5,a1
mov r7,d3
mcst9 d0
mcst48 d1
getchx d0
getclx d1
and 131072,epsw
or 65535,epsw

64
gas/testsuite/gas/mn10300/am33_2.s Normal file
View File

@ -0,0 +1,64 @@
.text
.am33
mov r0,r1
ext r2
extb r3,r4
extbu r4,r5
exth r6,r7
exthu r7,r8
clr r9
add r10,r11
addc r12,r13
sub r14,r15
subc r15,r14
inc r13
inc4 r12
cmp r11,r10
mov xr0, r1
mov r1, xr2
and r0,r1
or r2,r3
xor r4,r5
not r6
asr r7,r8
lsr r9,r10
asl r11,r12
asl2 r13
ror r14
rol r15
mul r1,r2
mulu r3,r4
div r5,r6
divu r7,r8
mov (r1),r2
mov r3,(r4)
movbu (r5),r6
movbu r7,(r8)
movhu (r9),r10
movhu r11,(r12)
mov (r1+),r2
mov r3,(r4+)
mov (sp),r5
mov r6,(sp)
movbu (sp),r7
movbu r8,(sp)
movhu (sp),r9
movhu r10,(sp)
movhu (r6+),r7
movhu r8,(r9+)
mac r1,r2
macu r3,r4
macb r5,r6
macbu r7,r8
mach r9,r10
machu r11,r12
dmach r13,r14
dmachu r15,r14
dmulh r13,r12
dmulhu r11,r10
sat16 r9,r8
mcste r7,r6
swap r5,r4
swaph r3,r2
swhw r1,r0
bsch r1,r2

44
gas/testsuite/gas/mn10300/am33_3.s Normal file
View File

@ -0,0 +1,44 @@
.text
.am33
mov 16,r1
movu 16,r1
add 16,r1
addc 16,r1
sub 16,r1
subc 16,r1
cmp 16,r1
mov 16,xr1
and 16,r1
or 16,r1
xor 16,r1
asr 16,r1
lsr 16,r1
asl 16,r1
mul 16,r1
mulu 16,r1
btst 16,r1
mov (16,r1),r2
mov r2,(16,r1)
movbu (16,r1),r2
movbu r2,(16,r1)
movhu (16,r1),r2
movhu r2,(16,r1)
mov (16,sp),r2
mov r2,(16,sp)
movbu (16,sp),r2
movbu r2,(16,sp)
movhu (16,sp),r2
movhu r2,(16,sp)
mac 16,r1
macu 16,r1
macb 16,r1
macbu 16,r1
mach 16,r1
machu 16,r1
mcste 16,r1
add r1,r2,r3
mov (r1+,16),r2
mov r1,(r2+,16)
movhu (r1+,16),r2
movhu r1,(r2+,16)

47
gas/testsuite/gas/mn10300/am33_4.s Normal file
View File

@ -0,0 +1,47 @@
.text
.am33
mov 0x1ffeff,r2
movu 0x1ffeff,r2
add 0x1ffeff,r2
addc 0x1ffeff,r2
sub 0x1ffeff,r2
subc 0x1ffeff,r2
cmp 0x1ffeff,r2
mov 0x1ffeff,xr2
and 0x1ffeff,r2
or 0x1ffeff,r2
xor 0x1ffeff,r2
asr 0x1ffeff,r2
lsr 0x1ffeff,r2
asl 0x1ffeff,r2
mul 0x1ffeff,r2
mulu 0x1ffeff,r2
btst 0x1ffeff,r2
mov (0x1ffeff,r1),r2
mov r2,(0x1ffeff,r1)
movbu (0x1ffeff,r1),r2
movbu r2,(0x1ffeff,r1)
movhu (0x1ffeff,r1),r2
movhu r2,(0x1ffeff,r1)
mov (0x1ffeff,sp),r2
mov r2,(0x1ffeff,sp)
movbu (0x1ffeff,sp),r2
movbu r2,(0x1ffeff,sp)
movhu (0x1ffeff,sp),r2
movhu r2,(0x1ffeff,sp)
mac 0x1ffeff,r2
macu 0x1ffeff,r2
macb 0x1ffeff,r2
macbu 0x1ffeff,r2
mach 0x1ffeff,r2
machu 0x1ffeff,r2
mov (0x1ffeff),r2
mov r2,(0x1ffeff)
movbu (0x1ffeff),r2
movbu r2,(0x1ffeff)
movhu (0x1ffeff),r2
movhu r2,(0x1ffeff)
mov (r1+,0x1ffeff),r2
mov r1,(r2+,0x1ffeff)
movhu (r1+,0x1ffeff),r2
movhu r1,(r2+,0x1ffeff)

53
gas/testsuite/gas/mn10300/am33_5.s Normal file
View File

@ -0,0 +1,53 @@
.text
.am33
mov 0x7ffefdfc,r2
movu 0x7ffefdfc,r2
add 0x7ffefdfc,r2
addc 0x7ffefdfc,r2
sub 0x7ffefdfc,r2
subc 0x7ffefdfc,r2
cmp 0x7ffefdfc,r2
mov 0x7ffefdfc,xr2
and 0x7ffefdfc,r2
or 0x7ffefdfc,r2
xor 0x7ffefdfc,r2
asr 0x7ffefdfc,r2
lsr 0x7ffefdfc,r2
asl 0x7ffefdfc,r2
mul 0x7ffefdfc,r2
mulu 0x7ffefdfc,r2
btst 0x7ffefdfc,r2
mov (0x7ffefdfc,r1),r2
mov r2,(0x7ffefdfc,r1)
movbu (0x7ffefdfc,r1),r2
movbu r2,(0x7ffefdfc,r1)
movhu (0x7ffefdfc,r1),r2
movhu r2,(0x7ffefdfc,r1)
mov (0x7ffefdfc,sp),r2
mov r2,(0x7ffefdfc,sp)
movbu (0x7ffefdfc,sp),r2
movbu r2,(0x7ffefdfc,sp)
movhu (0x7ffefdfc,sp),r2
movhu r2,(0x7ffefdfc,sp)
mac 0x7ffefdfc,r2
macu 0x7ffefdfc,r2
macb 0x7ffefdfc,r2
macbu 0x7ffefdfc,r2
mach 0x7ffefdfc,r2
machu 0x7ffefdfc,r2
dmach 0x7ffefdfc,r2
dmachu 0x7ffefdfc,r2
dmulh 0x7ffefdfc,r2
dmulhu 0x7ffefdfc,r2
mov (0x7ffefdfc),r2
mov r2,(0x7ffefdfc)
movbu (0x7ffefdfc),r2
movbu r2,(0x7ffefdfc)
movhu (0x7ffefdfc),r2
movhu r2,(0x7ffefdfc)
mul d0,d1,a0,a1
mulu d0,d1,a0,a1
mov (r1+,0x7ffefdfc),r2
mov r1,(r2+,0x7ffefdfc)
movhu (r1+,0x7ffefdfc),r2
movhu r1,(r2+,0x7ffefdfc)

70
gas/testsuite/gas/mn10300/am33_6.s Normal file
View File

@ -0,0 +1,70 @@
.text
.am33
add_add r4,r1,r2,r3
add_add r4,r1,2,r3
add_sub r4,r1,r2,r3
add_sub r4,r1,2,r3
add_cmp r4,r1,r2,r3
add_cmp r4,r1,2,r3
add_mov r4,r1,r2,r3
add_mov r4,r1,2,r3
add_asr r4,r1,r2,r3
add_asr r4,r1,2,r3
add_lsr r4,r1,r2,r3
add_lsr r4,r1,2,r3
add_asl r4,r1,r2,r3
add_asl r4,r1,2,r3
cmp_add r4,r1,r2,r3
cmp_add r4,r1,2,r3
cmp_sub r4,r1,r2,r3
cmp_sub r4,r1,2,r3
cmp_mov r4,r1,r2,r3
cmp_mov r4,r1,2,r3
cmp_asr r4,r1,r2,r3
cmp_asr r4,r1,2,r3
cmp_lsr r4,r1,r2,r3
cmp_lsr r4,r1,2,r3
cmp_asl r4,r1,r2,r3
cmp_asl r4,r1,2,r3
sub_add r4,r1,r2,r3
sub_add r4,r1,2,r3
sub_sub r4,r1,r2,r3
sub_sub r4,r1,2,r3
sub_cmp r4,r1,r2,r3
sub_cmp r4,r1,2,r3
sub_mov r4,r1,r2,r3
sub_mov r4,r1,2,r3
sub_asr r4,r1,r2,r3
sub_asr r4,r1,2,r3
sub_lsr r4,r1,r2,r3
sub_lsr r4,r1,2,r3
sub_asl r4,r1,r2,r3
sub_asl r4,r1,2,r3
mov_add r4,r1,r2,r3
mov_add r4,r1,2,r3
mov_sub r4,r1,r2,r3
mov_sub r4,r1,2,r3
mov_cmp r4,r1,r2,r3
mov_cmp r4,r1,2,r3
mov_mov r4,r1,r2,r3
mov_mov r4,r1,2,r3
mov_asr r4,r1,r2,r3
mov_asr r4,r1,2,r3
mov_lsr r4,r1,r2,r3
mov_lsr r4,r1,2,r3
mov_asl r4,r1,r2,r3
mov_asl r4,r1,2,r3
add_add 4,r1,r2,r3
add_add 4,r1,2,r3
add_sub 4,r1,r2,r3
add_sub 4,r1,2,r3
add_cmp 4,r1,r2,r3
add_cmp 4,r1,2,r3
add_mov 4,r1,r2,r3
add_mov 4,r1,2,r3
add_asr 4,r1,r2,r3
add_asr 4,r1,2,r3
add_lsr 4,r1,r2,r3
add_lsr 4,r1,2,r3
add_asl 4,r1,r2,r3
add_asl 4,r1,2,r3

71
gas/testsuite/gas/mn10300/am33_7.s Normal file
View File

@ -0,0 +1,71 @@
.text
.am33
cmp_add 4,r1,r2,r3
cmp_add 4,r1,2,r3
cmp_sub 4,r1,r2,r3
cmp_sub 4,r1,2,r3
cmp_mov 4,r1,r2,r3
cmp_mov 4,r1,2,r3
cmp_asr 4,r1,r2,r3
cmp_asr 4,r1,2,r3
cmp_lsr 4,r1,r2,r3
cmp_lsr 4,r1,2,r3
cmp_asl 4,r1,r2,r3
cmp_asl 4,r1,2,r3
sub_add 4,r1,r2,r3
sub_add 4,r1,2,r3
sub_sub 4,r1,r2,r3
sub_sub 4,r1,2,r3
sub_cmp 4,r1,r2,r3
sub_cmp 4,r1,2,r3
sub_mov 4,r1,r2,r3
sub_mov 4,r1,2,r3
sub_asr 4,r1,r2,r3
sub_asr 4,r1,2,r3
sub_lsr 4,r1,r2,r3
sub_lsr 4,r1,2,r3
sub_asl 4,r1,r2,r3
sub_asl 4,r1,2,r3
mov_add 4,r1,r2,r3
mov_add 4,r1,2,r3
mov_sub 4,r1,r2,r3
mov_sub 4,r1,2,r3
mov_cmp 4,r1,r2,r3
mov_cmp 4,r1,2,r3
mov_mov 4,r1,r2,r3
mov_mov 4,r1,2,r3
mov_asr 4,r1,r2,r3
mov_asr 4,r1,2,r3
mov_lsr 4,r1,r2,r3
mov_lsr 4,r1,2,r3
mov_asl 4,r1,r2,r3
mov_asl 4,r1,2,r3
and_add r4,r1,r2,r3
and_add r4,r1,2,r3
and_sub r4,r1,r2,r3
and_sub r4,r1,2,r3
and_cmp r4,r1,r2,r3
and_cmp r4,r1,2,r3
and_mov r4,r1,r2,r3
and_mov r4,r1,2,r3
and_asr r4,r1,r2,r3
and_asr r4,r1,2,r3
and_lsr r4,r1,r2,r3
and_lsr r4,r1,2,r3
and_asl r4,r1,r2,r3
and_asl r4,r1,2,r3
dmach_add r4,r1,r2,r3
dmach_add r4,r1,2,r3
dmach_sub r4,r1,r2,r3
dmach_sub r4,r1,2,r3
dmach_cmp r4,r1,r2,r3
dmach_cmp r4,r1,2,r3
dmach_mov r4,r1,r2,r3
dmach_mov r4,r1,2,r3
dmach_asr r4,r1,r2,r3
dmach_asr r4,r1,2,r3
dmach_lsr r4,r1,r2,r3
dmach_lsr r4,r1,2,r3
dmach_asl r4,r1,r2,r3
dmach_asl r4,r1,2,r3

70
gas/testsuite/gas/mn10300/am33_8.s Normal file
View File

@ -0,0 +1,70 @@
.text
.am33
xor_add r4,r1,r2,r3
xor_add r4,r1,2,r3
xor_sub r4,r1,r2,r3
xor_sub r4,r1,2,r3
xor_cmp r4,r1,r2,r3
xor_cmp r4,r1,2,r3
xor_mov r4,r1,r2,r3
xor_mov r4,r1,2,r3
xor_asr r4,r1,r2,r3
xor_asr r4,r1,2,r3
xor_lsr r4,r1,r2,r3
xor_lsr r4,r1,2,r3
xor_asl r4,r1,r2,r3
xor_asl r4,r1,2,r3
swhw_add r4,r1,r2,r3
swhw_add r4,r1,2,r3
swhw_sub r4,r1,r2,r3
swhw_sub r4,r1,2,r3
swhw_cmp r4,r1,r2,r3
swhw_cmp r4,r1,2,r3
swhw_mov r4,r1,r2,r3
swhw_mov r4,r1,2,r3
swhw_asr r4,r1,r2,r3
swhw_asr r4,r1,2,r3
swhw_lsr r4,r1,r2,r3
swhw_lsr r4,r1,2,r3
swhw_asl r4,r1,r2,r3
swhw_asl r4,r1,2,r3
or_add r4,r1,r2,r3
or_add r4,r1,2,r3
or_sub r4,r1,r2,r3
or_sub r4,r1,2,r3
or_cmp r4,r1,r2,r3
or_cmp r4,r1,2,r3
or_mov r4,r1,r2,r3
or_mov r4,r1,2,r3
or_asr r4,r1,r2,r3
or_asr r4,r1,2,r3
or_lsr r4,r1,r2,r3
or_lsr r4,r1,2,r3
or_asl r4,r1,r2,r3
or_asl r4,r1,2,r3
sat16_add r4,r1,r2,r3
sat16_add r4,r1,2,r3
sat16_sub r4,r1,r2,r3
sat16_sub r4,r1,2,r3
sat16_cmp r4,r1,r2,r3
sat16_cmp r4,r1,2,r3
sat16_mov r4,r1,r2,r3
sat16_mov r4,r1,2,r3
sat16_asr r4,r1,r2,r3
sat16_asr r4,r1,2,r3
sat16_lsr r4,r1,r2,r3
sat16_lsr r4,r1,2,r3
sat16_asl r4,r1,r2,r3
sat16_asl r4,r1,2,r3
mov_llt (r1+,4),r2
mov_lgt (r1+,4),r2
mov_lge (r1+,4),r2
mov_lle (r1+,4),r2
mov_lcs (r1+,4),r2
mov_lhi (r1+,4),r2
mov_lcc (r1+,4),r2
mov_lls (r1+,4),r2
mov_leq (r1+,4),r2
mov_lne (r1+,4),r2
mov_lra (r1+,4),r2

758
gas/testsuite/gas/mn10300/basic.exp
View File

@ -960,6 +960,756 @@ proc do_udf {} {
if [expr $x==160] then { pass $testname } else { fail $testname }
}
proc do_am33_1 {} {
set testname "am33.s: am33 tests part 1"
set x 0
gas_start "am33.s" "-al"
# Instead of having a variable for each match string just increment the
# total number of matches seen. That's simpler when testing large numbers
# of instructions (as these tests to).
while 1 {
expect {
-re "^ +\[0-9\]+ 0000 CD000134\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +3 +09\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0005 CD000132\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +4 +09\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000a CD000131\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +5 +09\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000f CD0001FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +6 +09\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0014 DDFFFF01\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +7 +003409\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001b DDFFFF01\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +8 +003209\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0022 DDFFFF01\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +9 +003109\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0029 DDFFFF01\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +10 +00FF09\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0030 CE34\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0032 CE32\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0034 CE31\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0036 CEFF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0038 CF34\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003a CF32\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003c CF31\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003e CFFF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0040 F8CE34\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0043 F8CE32\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0046 F8CE31\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0049 F8CEFF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 004c F8CF34\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 004f F8CF32\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0052 F8CF31\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0055 F8CFFF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0058 F020\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005a F025\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005c F02A\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005e F02F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0060 F030\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0062 F035\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0064 F03A\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0066 F0E4\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0068 F2EC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 006a F2F5\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 006c F501\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 006e F563\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0070 F595\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0072 F5DF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0074 F630\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0076 F665\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0078 F6C0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 007a F6D5\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 007c FCFC0000\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +45 +0200\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0082 FCFDFFFF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +46 +0000\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
}
}
# This was intended to do any cleanup necessary. It kinda looks like it
# isn't needed, but just in case, please keep it in for now.
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==54] then { pass $testname } else { fail $testname }
}
proc do_am33_2 {} {
set testname "am33_2.s: am33 tests part 2"
set x 0
gas_start "am33_2.s" "-al"
# Instead of having a variable for each match string just increment the
# total number of matches seen. That's simpler when testing large numbers
# of instructions (as these tests to).
while 1 {
expect {
-re "^ +\[0-9\]+ 0000 F90801\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0003 F91822\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0006 F92834\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0009 F93845\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000c F94867\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000f F95878\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0012 F96899\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0015 F978AB\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0018 F988CD\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001b F998EF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001e F9A8FE\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0021 F9B8DD\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0024 F9C8CC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0027 F9D8BA\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002a F9E801\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002d F9F812\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0030 F90901\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0033 F91923\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0036 F92945\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0039 F93966\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003c F94978\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003f F9599A\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0042 F969BC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0045 F979DD\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0048 F989EE\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 004b F999FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 004e F9A912\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0051 F9B934\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0054 F9C956\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0057 F9D978\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005a F90A21\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005d F91A34\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0060 F92A65\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0063 F93A78\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0066 F94AA9\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0069 F95ABC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 006c F96A21\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 006f F97A34\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0072 F98A50\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0075 F99A60\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0078 F9AA70\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 007b F9BA80\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 007e F9CA90\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0081 F9DAA0\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0084 F9EA76\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0087 F9FA89\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 008a F90B12\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 008d F91B34\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0090 F92B56\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0093 F93B78\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0096 F94B9A\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0099 F95BBC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 009c F96BDE\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 009f F97BFE\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a2 F98BDC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a5 F99BBA\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a8 F9AB98\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ab F9BB76\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ae F9CB54\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b1 F9DB32\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b4 F9EB10\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b7 F9FB12\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
}
}
# This was intended to do any cleanup necessary. It kinda looks like it
# isn't needed, but just in case, please keep it in for now.
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==62] then { pass $testname } else { fail $testname }
}
proc do_am33_3 {} {
set testname "am33_3.s: am33 tests part 3"
set x 0
gas_start "am33_3.s" "-al"
# Instead of having a variable for each match string just increment the
# total number of matches seen. That's simpler when testing large numbers
# of instructions (as these tests to).
while 1 {
expect {
-re "^ +\[0-9\]+ 0000 FB081110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0004 FB181110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0008 FB781110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000c FB881110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0010 FB981110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0014 FBA81110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0018 FBD81110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001c FBF81110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0020 FB091110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0024 FB191110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0028 FB291110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002c FB491110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0030 FB591110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0034 FB691110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0038 FBA91110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003c FBB91110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0040 FBE91110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0044 FB0A2110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0048 FB1A2110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 004c FB2A2110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0050 FB3A2110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0054 FB4A2110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0058 FB5A2110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005c FB8A2010\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0060 FB9A2010\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0064 FBAA2010\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0068 FBBA2010\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 006c FBCA2010\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0070 FBDA2010\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0074 FB0B1110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0078 FB1B1110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 007c FB2B1110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0080 FB3B1110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0084 FB4B1110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0088 FB5B1110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 008c FBBB1110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0090 FB7C1230\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0094 FB6A2110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0098 FB7A1210\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 009c FBEA2110\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a0 FBFA1210\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
}
}
# This was intended to do any cleanup necessary. It kinda looks like it
# isn't needed, but just in case, please keep it in for now.
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==41] then { pass $testname } else { fail $testname }
}
proc do_am33_4 {} {
set testname "am33_4.s: am33 tests part 4"
set x 0
gas_start "am33_4.s" "-al"
# Instead of having a variable for each match string just increment the
# total number of matches seen. That's simpler when testing large numbers
# of instructions (as these tests to).
while 1 {
expect {
-re "^ +\[0-9\]+ 0000 FD0822FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +3 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0006 FD1822FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +4 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000c FD7822FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +5 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0012 FD8822FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +6 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0018 FD9822FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +7 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001e FDA822FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +8 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0024 FDD822FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +9 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002a FDF822FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +10 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0030 FD0922FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +11 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0036 FD1922FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +12 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003c FD2922FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +13 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0042 FD4922FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +14 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0048 FD5922FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +15 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 004e FD6922FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +16 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0054 FDA922FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +17 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005a FDB922FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +18 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0060 FDE922FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +19 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0066 FD0A21FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +20 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 006c FD1A21FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +21 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0072 FD2A21FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +22 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0078 FD3A21FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +23 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 007e FD4A21FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +24 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0084 FD5A21FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +25 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 008a FD8A20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +26 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0090 FD9A20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +27 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0096 FDAA20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +28 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 009c FDBA20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +29 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a2 FDCA20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +30 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a8 FDDA20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +31 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ae FD0B22FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +32 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b4 FD1B22FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +33 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ba FD2B22FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +34 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c0 FD3B22FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +35 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c6 FD4B22FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +36 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00cc FD5B22FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +37 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d2 FD0E20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +38 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d8 FD1E20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +39 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00de FD2E20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +40 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e4 FD3E20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +41 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ea FD4E20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +42 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f0 FD5E20FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +43 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f6 FD6A21FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +44 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00fc FD7A12FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +45 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0102 FDEA21FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +46 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0108 FDFA12FF\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +47 +FE1F\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
}
}
# This was intended to do any cleanup necessary. It kinda looks like it
# isn't needed, but just in case, please keep it in for now.
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==90] then { pass $testname } else { fail $testname }
}
proc do_am33_5 {} {
set testname "am33_5.s: am33 tests part 5"
set x 0
gas_start "am33_5.s" "-al"
# Instead of having a variable for each match string just increment the
# total number of matches seen. That's simpler when testing large numbers
# of instructions (as these tests to).
while 1 {
expect {
-re "^ +\[0-9\]+ 0000 FE0822FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +3 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0007 FE1822FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +4 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000e FE7822FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +5 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0015 FE8822FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +6 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001c FE9822FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +7 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0023 FEA822FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +8 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002a FED822FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +9 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0031 FEF822FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +10 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0038 FE0922FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +11 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003f FE1922FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +12 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0046 FE2922FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +13 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 004d FE4922FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +14 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0054 FE5922FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +15 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005b FE6922FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +16 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0062 FEA922FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +17 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0069 FEB922FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +18 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0070 FEE922FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +19 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0077 FE0A21FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +20 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 007e FE1A21FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +21 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0085 FE2A21FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +22 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 008c FE3A21FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +23 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0093 FE4A21FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +24 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 009a FE5A21FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +25 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a1 FE8A20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +26 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a8 FE9A20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +27 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00af FEAA20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +28 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b6 FEBA20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +29 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00bd FECA20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +30 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c4 FEDA20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +31 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00cb FE0B22FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +32 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d2 FE1B22FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +33 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d9 FE2B22FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +34 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e0 FE3B22FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +35 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e7 FE4B22FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +36 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ee FE5B22FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +37 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f5 FE6B22FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +38 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00fc FE7B22FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +39 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0103 FE8B22FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +40 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 010a FE9B22FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +41 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0111 FE0E20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +42 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0118 FE1E20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +43 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 011f FE2E20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +44 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0126 FE3E20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +45 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 012d FE4E20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +46 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0134 FE5E20FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +47 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 013b FBADCD89\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 013f FBBDCD89\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0143 FE6A21FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +50 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 014a FE7A12FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +51 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0151 FEEA21FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +52 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0158 FEFA12FC\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +53 +FDFE7F\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
}
}
# This was intended to do any cleanup necessary. It kinda looks like it
# isn't needed, but just in case, please keep it in for now.
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==100] then { pass $testname } else { fail $testname }
}
proc do_am33_6 {} {
set testname "am33_6.s: am33 tests part 6"
set x 0
gas_start "am33_6.s" "-al"
# Instead of having a variable for each match string just increment the
# total number of matches seen. That's simpler when testing large numbers
# of instructions (as these tests to).
while 1 {
expect {
-re "^ +\[0-9\]+ 0000 F7004123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0004 F7104123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0008 F7204123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000c F7304123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0010 F7404123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0014 F7504123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0018 F7604123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001c F7704123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0020 F7804123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0024 F7904123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0028 F7A04123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002c F7B04123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0030 F7C04123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0034 F7D04123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0038 F7014123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003c F7114123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0040 F7214123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0044 F7314123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0048 F7614123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 004c F7714123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0050 F7814123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0054 F7914123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0058 F7A14123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005c F7B14123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0060 F7C14123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0064 F7D14123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0068 F7024123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 006c F7124123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0070 F7224123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0074 F7324123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0078 F7424123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 007c F7524123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0080 F7624123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0084 F7724123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0088 F7824123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 008c F7924123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0090 F7A24123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0094 F7B24123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0098 F7C24123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 009c F7D24123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a0 F7034123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a4 F7134123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a8 F7234123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ac F7334123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b0 F7434123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b4 F7534123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b8 F7634123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00bc F7734123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c0 F7834123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c4 F7934123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c8 F7A34123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00cc F7B34123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d0 F7C34123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d4 F7D34123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d8 F7044123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00dc F7144123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e0 F7244123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e4 F7344123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e8 F7444123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ec F7544123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f0 F7644123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f4 F7744123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f8 F7844123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00fc F7944123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0100 F7A44123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0104 F7B44123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0108 F7C44123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 010c F7D44123\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
}
}
# This was intended to do any cleanup necessary. It kinda looks like it
# isn't needed, but just in case, please keep it in for now.
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==68] then { pass $testname } else { fail $testname }
}
proc do_am33_7 {} {
set testname "am33_7.s: am33 tests part 7"
set x 0
gas_start "am33_7.s" "-al"
# Instead of having a variable for each match string just increment the
# total number of matches seen. That's simpler when testing large numbers
# of instructions (as these tests to).
while 1 {
expect {
-re "^ +\[0-9\]+ 0000 F7054123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0004 F7154123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0008 F7254123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000c F7354123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0010 F7654123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0014 F7754123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0018 F7854123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001c F7954123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0020 F7A54123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0024 F7B54123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0028 F7C54123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002c F7D54123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0030 F7064123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0034 F7164123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0038 F7264123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003c F7364123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0040 F7464123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0044 F7564123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0048 F7664123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 004c F7764123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0050 F7864123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0054 F7964123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0058 F7A64123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005c F7B64123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0060 F7C64123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0064 F7D64123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0068 F7074123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 006c F7174123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0070 F7274123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0074 F7374123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0078 F7474123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 007c F7574123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0080 F7674123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0084 F7774123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0088 F7874123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 008c F7974123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0090 F7A74123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0094 F7B74123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0098 F7C74123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 009c F7D74123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a0 F7084123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a4 F7184123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a8 F7284123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ac F7384123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b0 F7484123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b4 F7584123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b8 F7684123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00bc F7784123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c0 F7884123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c4 F7984123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c8 F7A84123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00cc F7B84123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d0 F7C84123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d4 F7D84123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d8 F7094123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00dc F7194123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e0 F7294123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e4 F7394123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e8 F7494123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ec F7594123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f0 F7694123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f4 F7794123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f8 F7894123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00fc F7994123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0100 F7A94123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0104 F7B94123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0108 F7C94123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 010c F7D94123\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
}
}
# This was intended to do any cleanup necessary. It kinda looks like it
# isn't needed, but just in case, please keep it in for now.
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==68] then { pass $testname } else { fail $testname }
}
proc do_am33_8 {} {
set testname "am33_8.s: am33 tests part 8"
set x 0
gas_start "am33_8.s" "-al"
# Instead of having a variable for each match string just increment the
# total number of matches seen. That's simpler when testing large numbers
# of instructions (as these tests to).
while 1 {
expect {
-re "^ +\[0-9\]+ 0000 F70A4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0004 F71A4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0008 F72A4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000c F73A4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0010 F74A4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0014 F75A4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0018 F76A4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001c F77A4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0020 F78A4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0024 F79A4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0028 F7AA4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 002c F7BA4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0030 F7CA4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0034 F7DA4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0038 F70B4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 003c F71B4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0040 F72B4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0044 F73B4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0048 F74B4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 004c F75B4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0050 F76B4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0054 F77B4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0058 F78B4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005c F79B4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0060 F7AB4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0064 F7BB4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0068 F7CB4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 006c F7DB4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0070 F70C4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0074 F71C4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0078 F72C4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 007c F73C4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0080 F74C4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0084 F75C4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0088 F76C4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 008c F77C4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0090 F78C4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0094 F79C4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0098 F7AC4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 009c F7BC4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a0 F7CC4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a4 F7DC4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00a8 F70D4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ac F71D4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b0 F72D4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b4 F73D4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00b8 F74D4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00bc F75D4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c0 F76D4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c4 F77D4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00c8 F78D4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00cc F79D4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d0 F7AD4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d4 F7BD4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00d8 F7CD4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00dc F7DD4123\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e0 F7E02140\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e4 F7E02141\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00e8 F7E02142\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00ec F7E02143\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f0 F7E02144\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f4 F7E02145\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f8 F7E02146\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00fc F7E02147\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0100 F7E02148\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0104 F7E02149\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0108 F7E0214A\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
}
}
# This was intended to do any cleanup necessary. It kinda looks like it
# isn't needed, but just in case, please keep it in for now.
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==67] then { pass $testname } else { fail $testname }
}
if [istarget mn10300*-*-*] then {
# Test the basic instruction parser.
@ -983,4 +1733,12 @@ if [istarget mn10300*-*-*] then {
do_shift
do_sub
do_udf
do_am33_1
do_am33_2
do_am33_3
do_am33_4
do_am33_5
do_am33_6
do_am33_7
do_am33_8
}