aboutsummaryrefslogtreecommitdiff
path: root/gas
diff options
context:
space:
mode:
authorJeff Law <law@redhat.com>1999-08-28 10:32:43 +0000
committerJeff Law <law@redhat.com>1999-08-28 10:32:43 +0000
commit436709eeb33dbba26fcfa6fbb4e0e2f3273a43a9 (patch)
tree80c6de1e38ccd6e0c3221c791462b8f063874465 /gas
parent680ef6de906133116bf777c55cde55327225b7ce (diff)
downloadgdb-436709eeb33dbba26fcfa6fbb4e0e2f3273a43a9.zip
gdb-436709eeb33dbba26fcfa6fbb4e0e2f3273a43a9.tar.gz
gdb-436709eeb33dbba26fcfa6fbb4e0e2f3273a43a9.tar.bz2
* gas/hppa/basic/add.s,addi.s,dcor.s,shladd.s,sub.s,subi.s,unit.s:
Add new syntax versions of instructions to tests. * gas/hppa/basic/add2.s,dcor2.s,perf.s,purge2.s,shladd2.s,sub2.s, system2.s, unit2.s: New tests. * hppa/basic/basic.exp: Add new tests.
Diffstat (limited to 'gas')
-rw-r--r--gas/testsuite/ChangeLog6
-rw-r--r--gas/testsuite/gas/hppa/basic/add.s68
-rw-r--r--gas/testsuite/gas/hppa/basic/add2.s101
-rw-r--r--gas/testsuite/gas/hppa/basic/addi.s53
-rw-r--r--gas/testsuite/gas/hppa/basic/basic.exp1051
-rw-r--r--gas/testsuite/gas/hppa/basic/dcor.s16
-rw-r--r--gas/testsuite/gas/hppa/basic/dcor2.s43
-rw-r--r--gas/testsuite/gas/hppa/basic/perf.s19
-rw-r--r--gas/testsuite/gas/hppa/basic/purge2.s21
-rw-r--r--gas/testsuite/gas/hppa/basic/shladd.s169
-rw-r--r--gas/testsuite/gas/hppa/basic/shladd2.s170
-rw-r--r--gas/testsuite/gas/hppa/basic/sub.s85
-rw-r--r--gas/testsuite/gas/hppa/basic/sub2.s118
-rw-r--r--gas/testsuite/gas/hppa/basic/subi.s17
-rw-r--r--gas/testsuite/gas/hppa/basic/system2.s28
-rw-r--r--gas/testsuite/gas/hppa/basic/unit.s15
-rw-r--r--gas/testsuite/gas/hppa/basic/unit2.s56
17 files changed, 2031 insertions, 5 deletions
diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 5ca3ac0..9460eee 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,5 +1,11 @@
Sat Aug 28 00:16:12 1999 Jerry Quinn <jquinn@nortelnetworks.com>
+ * gas/hppa/basic/add.s,addi.s,dcor.s,shladd.s,sub.s,subi.s,unit.s:
+ Add new syntax versions of instructions to tests.
+ * gas/hppa/basic/add2.s,dcor2.s,perf.s,purge2.s,shladd2.s,sub2.s,
+ system2.s, unit2.s: New tests.
+ * hppa/basic/basic.exp: Add new tests.
+
* gas/hppa/basic/basic.exp:
* gas/hppa/basic/media.s: Add test cases for new instructions.
diff --git a/gas/testsuite/gas/hppa/basic/add.s b/gas/testsuite/gas/hppa/basic/add.s
index 4d1d4cd..7c2eb09 100644
--- a/gas/testsuite/gas/hppa/basic/add.s
+++ b/gas/testsuite/gas/hppa/basic/add.s
@@ -98,3 +98,71 @@
addco,vnz %r4,%r5,%r6
addco,nsv %r4,%r5,%r6
addco,ev %r4,%r5,%r6
+
+ add,l %r4,%r5,%r6
+ add,l,= %r4,%r5,%r6
+ add,l,< %r4,%r5,%r6
+ add,l,<= %r4,%r5,%r6
+ add,l,nuv %r4,%r5,%r6
+ add,l,znv %r4,%r5,%r6
+ add,l,sv %r4,%r5,%r6
+ add,l,od %r4,%r5,%r6
+ add,l,tr %r4,%r5,%r6
+ add,l,<> %r4,%r5,%r6
+ add,l,>= %r4,%r5,%r6
+ add,l,> %r4,%r5,%r6
+ add,l,uv %r4,%r5,%r6
+ add,l,vnz %r4,%r5,%r6
+ add,l,nsv %r4,%r5,%r6
+ add,l,ev %r4,%r5,%r6
+
+ add,tsv %r4,%r5,%r6
+ add,tsv,= %r4,%r5,%r6
+ add,tsv,< %r4,%r5,%r6
+ add,tsv,<= %r4,%r5,%r6
+ add,tsv,nuv %r4,%r5,%r6
+ add,tsv,znv %r4,%r5,%r6
+ add,tsv,sv %r4,%r5,%r6
+ add,tsv,od %r4,%r5,%r6
+ add,tsv,tr %r4,%r5,%r6
+ add,tsv,<> %r4,%r5,%r6
+ add,tsv,>= %r4,%r5,%r6
+ add,tsv,> %r4,%r5,%r6
+ add,tsv,uv %r4,%r5,%r6
+ add,tsv,vnz %r4,%r5,%r6
+ add,tsv,nsv %r4,%r5,%r6
+ add,tsv,ev %r4,%r5,%r6
+
+ add,c %r4,%r5,%r6
+ add,c,= %r4,%r5,%r6
+ add,c,< %r4,%r5,%r6
+ add,c,<= %r4,%r5,%r6
+ add,c,nuv %r4,%r5,%r6
+ add,c,znv %r4,%r5,%r6
+ add,c,sv %r4,%r5,%r6
+ add,c,od %r4,%r5,%r6
+ add,c,tr %r4,%r5,%r6
+ add,c,<> %r4,%r5,%r6
+ add,c,>= %r4,%r5,%r6
+ add,c,> %r4,%r5,%r6
+ add,c,uv %r4,%r5,%r6
+ add,c,vnz %r4,%r5,%r6
+ add,c,nsv %r4,%r5,%r6
+ add,c,ev %r4,%r5,%r6
+
+ add,c,tsv %r4,%r5,%r6
+ add,c,tsv,= %r4,%r5,%r6
+ add,c,tsv,< %r4,%r5,%r6
+ add,c,tsv,<= %r4,%r5,%r6
+ add,c,tsv,nuv %r4,%r5,%r6
+ add,c,tsv,znv %r4,%r5,%r6
+ add,c,tsv,sv %r4,%r5,%r6
+ add,c,tsv,od %r4,%r5,%r6
+ add,tsv,c,tr %r4,%r5,%r6
+ add,tsv,c,<> %r4,%r5,%r6
+ add,tsv,c,>= %r4,%r5,%r6
+ add,tsv,c,> %r4,%r5,%r6
+ add,tsv,c,uv %r4,%r5,%r6
+ add,tsv,c,vnz %r4,%r5,%r6
+ add,tsv,c,nsv %r4,%r5,%r6
+ add,tsv,c,ev %r4,%r5,%r6
diff --git a/gas/testsuite/gas/hppa/basic/add2.s b/gas/testsuite/gas/hppa/basic/add2.s
new file mode 100644
index 0000000..c8dbacb
--- /dev/null
+++ b/gas/testsuite/gas/hppa/basic/add2.s
@@ -0,0 +1,101 @@
+ .LEVEL 2.0
+ .SPACE $PRIVATE$
+ .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+ .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+ .SPACE $TEXT$
+ .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+ .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+ .SPACE $TEXT$
+ .SUBSPA $CODE$
+
+ .align 4
+; Basic add/sh?add instruction tests.
+;
+; We could/should test some of the corner cases for register and
+; immediate fields. We should also check the assorted field
+; selectors to make sure they're handled correctly.
+ add,* %r4,%r5,%r6
+ add,*= %r4,%r5,%r6
+ add,*< %r4,%r5,%r6
+ add,*<= %r4,%r5,%r6
+ add,*nuv %r4,%r5,%r6
+ add,*znv %r4,%r5,%r6
+ add,*sv %r4,%r5,%r6
+ add,*od %r4,%r5,%r6
+ add,*tr %r4,%r5,%r6
+ add,*<> %r4,%r5,%r6
+ add,*>= %r4,%r5,%r6
+ add,*> %r4,%r5,%r6
+ add,*uv %r4,%r5,%r6
+ add,*vnz %r4,%r5,%r6
+ add,*nsv %r4,%r5,%r6
+ add,*ev %r4,%r5,%r6
+
+ add,l,* %r4,%r5,%r6
+ add,l,*= %r4,%r5,%r6
+ add,l,*< %r4,%r5,%r6
+ add,l,*<= %r4,%r5,%r6
+ add,l,*nuv %r4,%r5,%r6
+ add,l,*znv %r4,%r5,%r6
+ add,l,*sv %r4,%r5,%r6
+ add,l,*od %r4,%r5,%r6
+ add,l,*tr %r4,%r5,%r6
+ add,l,*<> %r4,%r5,%r6
+ add,l,*>= %r4,%r5,%r6
+ add,l,*> %r4,%r5,%r6
+ add,l,*uv %r4,%r5,%r6
+ add,l,*vnz %r4,%r5,%r6
+ add,l,*nsv %r4,%r5,%r6
+ add,l,*ev %r4,%r5,%r6
+
+ add,tsv,* %r4,%r5,%r6
+ add,tsv,*= %r4,%r5,%r6
+ add,tsv,*< %r4,%r5,%r6
+ add,tsv,*<= %r4,%r5,%r6
+ add,tsv,*nuv %r4,%r5,%r6
+ add,tsv,*znv %r4,%r5,%r6
+ add,tsv,*sv %r4,%r5,%r6
+ add,tsv,*od %r4,%r5,%r6
+ add,tsv,*tr %r4,%r5,%r6
+ add,tsv,*<> %r4,%r5,%r6
+ add,tsv,*>= %r4,%r5,%r6
+ add,tsv,*> %r4,%r5,%r6
+ add,tsv,*uv %r4,%r5,%r6
+ add,tsv,*vnz %r4,%r5,%r6
+ add,tsv,*nsv %r4,%r5,%r6
+ add,tsv,*ev %r4,%r5,%r6
+
+ add,dc,* %r4,%r5,%r6
+ add,dc,*= %r4,%r5,%r6
+ add,dc,*< %r4,%r5,%r6
+ add,dc,*<= %r4,%r5,%r6
+ add,dc,*nuv %r4,%r5,%r6
+ add,dc,*znv %r4,%r5,%r6
+ add,dc,*sv %r4,%r5,%r6
+ add,dc,*od %r4,%r5,%r6
+ add,dc,*tr %r4,%r5,%r6
+ add,dc,*<> %r4,%r5,%r6
+ add,dc,*>= %r4,%r5,%r6
+ add,dc,*> %r4,%r5,%r6
+ add,dc,*uv %r4,%r5,%r6
+ add,dc,*vnz %r4,%r5,%r6
+ add,dc,*nsv %r4,%r5,%r6
+ add,dc,*ev %r4,%r5,%r6
+
+ add,dc,tsv,* %r4,%r5,%r6
+ add,dc,tsv,*= %r4,%r5,%r6
+ add,dc,tsv,*< %r4,%r5,%r6
+ add,dc,tsv,*<= %r4,%r5,%r6
+ add,dc,tsv,*nuv %r4,%r5,%r6
+ add,dc,tsv,*znv %r4,%r5,%r6
+ add,dc,tsv,*sv %r4,%r5,%r6
+ add,dc,tsv,*od %r4,%r5,%r6
+ add,tsv,dc,*tr %r4,%r5,%r6
+ add,tsv,dc,*<> %r4,%r5,%r6
+ add,tsv,dc,*>= %r4,%r5,%r6
+ add,tsv,dc,*> %r4,%r5,%r6
+ add,tsv,dc,*uv %r4,%r5,%r6
+ add,tsv,dc,*vnz %r4,%r5,%r6
+ add,tsv,dc,*nsv %r4,%r5,%r6
+ add,tsv,dc,*ev %r4,%r5,%r6
diff --git a/gas/testsuite/gas/hppa/basic/addi.s b/gas/testsuite/gas/hppa/basic/addi.s
index b036b80..4cba260 100644
--- a/gas/testsuite/gas/hppa/basic/addi.s
+++ b/gas/testsuite/gas/hppa/basic/addi.s
@@ -9,7 +9,7 @@
.SUBSPA $CODE$
.align 4
-; Basic immediate instruction tests.
+; Basic add immediate instruction tests.
;
; We could/should test some of the corner cases for register and
; immediate fields. We should also check the assorted field
@@ -81,3 +81,54 @@
addito,vnz 123,%r5,%r6
addito,nsv 123,%r5,%r6
addito,ev 123,%r5,%r6
+
+ addi,tsv 123,%r5,%r6
+ addi,tsv,= 123,%r5,%r6
+ addi,tsv,< 123,%r5,%r6
+ addi,tsv,<= 123,%r5,%r6
+ addi,tsv,nuv 123,%r5,%r6
+ addi,tsv,znv 123,%r5,%r6
+ addi,tsv,sv 123,%r5,%r6
+ addi,tsv,od 123,%r5,%r6
+ addi,tsv,tr 123,%r5,%r6
+ addi,tsv,<> 123,%r5,%r6
+ addi,tsv,>= 123,%r5,%r6
+ addi,tsv,> 123,%r5,%r6
+ addi,tsv,uv 123,%r5,%r6
+ addi,tsv,vnz 123,%r5,%r6
+ addi,tsv,nsv 123,%r5,%r6
+ addi,tsv,ev 123,%r5,%r6
+
+ addi,tc 123,%r5,%r6
+ addi,tc,= 123,%r5,%r6
+ addi,tc,< 123,%r5,%r6
+ addi,tc,<= 123,%r5,%r6
+ addi,tc,nuv 123,%r5,%r6
+ addi,tc,znv 123,%r5,%r6
+ addi,tc,sv 123,%r5,%r6
+ addi,tc,od 123,%r5,%r6
+ addi,tc,tr 123,%r5,%r6
+ addi,tc,<> 123,%r5,%r6
+ addi,tc,>= 123,%r5,%r6
+ addi,tc,> 123,%r5,%r6
+ addi,tc,uv 123,%r5,%r6
+ addi,tc,vnz 123,%r5,%r6
+ addi,tc,nsv 123,%r5,%r6
+ addi,tc,ev 123,%r5,%r6
+
+ addi,tc,tsv 123,%r5,%r6
+ addi,tc,tsv,= 123,%r5,%r6
+ addi,tc,tsv,< 123,%r5,%r6
+ addi,tc,tsv,<= 123,%r5,%r6
+ addi,tc,tsv,nuv 123,%r5,%r6
+ addi,tc,tsv,znv 123,%r5,%r6
+ addi,tc,tsv,sv 123,%r5,%r6
+ addi,tc,tsv,od 123,%r5,%r6
+ addi,tsv,tc,tr 123,%r5,%r6
+ addi,tsv,tc,<> 123,%r5,%r6
+ addi,tsv,tc,>= 123,%r5,%r6
+ addi,tsv,tc,> 123,%r5,%r6
+ addi,tsv,tc,uv 123,%r5,%r6
+ addi,tsv,tc,vnz 123,%r5,%r6
+ addi,tsv,tc,nsv 123,%r5,%r6
+ addi,tsv,tc,ev 123,%r5,%r6
diff --git a/gas/testsuite/gas/hppa/basic/basic.exp b/gas/testsuite/gas/hppa/basic/basic.exp
index 508527e..e28227d 100644
--- a/gas/testsuite/gas/hppa/basic/basic.exp
+++ b/gas/testsuite/gas/hppa/basic/basic.exp
@@ -500,6 +500,179 @@ proc do_add {} {
-re "^ +\[0-9\]+ 0134 08A4BF06\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0138 08A4DF06\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 013c 08A4FF06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0140 08A40A06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0144 08A42A06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0148 08A44A06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 014c 08A46A06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0150 08A48A06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0154 08A4AA06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0158 08A4CA06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 015c 08A4EA06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0160 08A41A06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0164 08A43A06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0168 08A45A06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 016c 08A47A06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0170 08A49A06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0174 08A4BA06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0178 08A4DA06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 017c 08A4FA06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0180 08A40E06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0184 08A42E06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0188 08A44E06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 018c 08A46E06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0190 08A48E06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0194 08A4AE06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0198 08A4CE06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 019c 08A4EE06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a0 08A41E06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a4 08A43E06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a8 08A45E06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01ac 08A47E06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b0 08A49E06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b4 08A4BE06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b8 08A4DE06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01bc 08A4FE06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c0 08A40706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c4 08A42706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c8 08A44706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01cc 08A46706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d0 08A48706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d4 08A4A706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d8 08A4C706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01dc 08A4E706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e0 08A41706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e4 08A43706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e8 08A45706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01ec 08A47706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f0 08A49706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f4 08A4B706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f8 08A4D706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01fc 08A4F706\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0200 08A40F06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0204 08A42F06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0208 08A44F06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 020c 08A46F06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0210 08A48F06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0214 08A4AF06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0218 08A4CF06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 021c 08A4EF06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0220 08A41F06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0224 08A43F06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0228 08A45F06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 022c 08A47F06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0230 08A49F06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0234 08A4BF06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0238 08A4DF06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 023c 08A4FF06\[^\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==144] then { pass $testname } else { fail $testname }
+}
+
+proc do_add2 {} {
+ set testname "add2.s: add2 tests"
+ set x 0
+
+ gas_start "add2.s" "-al"
+
+ # Check the assembled instruction against a table built by the HP assembler
+ # Any differences should be checked by hand -- with the number of problems
+ # I've seen in the HP assembler I don't completely trust it.
+ #
+ # 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 08A40626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0004 08A42626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0008 08A44626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 000c 08A46626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0010 08A48626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0014 08A4A626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0018 08A4C626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 001c 08A4E626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0020 08A41626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0024 08A43626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0028 08A45626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 002c 08A47626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0030 08A49626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0034 08A4B626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0038 08A4D626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 003c 08A4F626\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0040 08A40A26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0044 08A42A26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0048 08A44A26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 004c 08A46A26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0050 08A48A26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0054 08A4AA26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0058 08A4CA26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 005c 08A4EA26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0060 08A41A26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0064 08A43A26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0068 08A45A26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 006c 08A47A26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0070 08A49A26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0074 08A4BA26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0078 08A4DA26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 007c 08A4FA26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0080 08A40E26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0084 08A42E26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0088 08A44E26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 008c 08A46E26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0090 08A48E26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0094 08A4AE26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0098 08A4CE26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 009c 08A4EE26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a0 08A41E26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a4 08A43E26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a8 08A45E26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00ac 08A47E26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b0 08A49E26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b4 08A4BE26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b8 08A4DE26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00bc 08A4FE26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c0 08A40726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c4 08A42726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c8 08A44726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00cc 08A46726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d0 08A48726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d4 08A4A726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d8 08A4C726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00dc 08A4E726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e0 08A41726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e4 08A43726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e8 08A45726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00ec 08A47726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f0 08A49726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f4 08A4B726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f8 08A4D726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00fc 08A4F726\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0100 08A40F26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0104 08A42F26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0108 08A44F26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 010c 08A46F26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0110 08A48F26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0114 08A4AF26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0118 08A4CF26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 011c 08A4EF26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0120 08A41F26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0124 08A43F26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0128 08A45F26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 012c 08A47F26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0130 08A49F26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0134 08A4BF26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0138 08A4DF26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 013c 08A4FF26\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
@@ -745,6 +918,352 @@ proc do_sh3add {} {
if [expr $x==48] then { pass $testname } else { fail $testname }
}
+proc do_shladd {} {
+ set testname "shladd.s: shladd tests"
+ set x 0
+
+ gas_start "shladd.s" "-al"
+
+ # Check the assembled instruction against a table built by the HP assembler
+ # Any differences should be checked by hand -- with the number of problems
+ # I've seen in the HP assembler I don't completely trust it.
+ #
+ # 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 08A40646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0004 08A42646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0008 08A44646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 000c 08A46646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0010 08A48646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0014 08A4A646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0018 08A4C646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 001c 08A4E646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0020 08A41646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0024 08A43646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0028 08A45646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 002c 08A47646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0030 08A49646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0034 08A4B646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0038 08A4D646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 003c 08A4F646\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0040 08A40A46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0044 08A42A46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0048 08A44A46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 004c 08A46A46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0050 08A48A46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0054 08A4AA46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0058 08A4CA46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 005c 08A4EA46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0060 08A41A46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0064 08A43A46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0068 08A45A46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 006c 08A47A46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0070 08A49A46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0074 08A4BA46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0078 08A4DA46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 007c 08A4FA46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0080 08A40E46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0084 08A42E46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0088 08A44E46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 008c 08A46E46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0090 08A48E46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0094 08A4AE46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0098 08A4CE46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 009c 08A4EE46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a0 08A41E46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a4 08A43E46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a8 08A45E46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00ac 08A47E46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b0 08A49E46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b4 08A4BE46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b8 08A4DE46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00bc 08A4FE46\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c0 08A40686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c4 08A42686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c8 08A44686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00cc 08A46686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d0 08A48686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d4 08A4A686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d8 08A4C686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00dc 08A4E686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e0 08A41686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e4 08A43686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e8 08A45686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00ec 08A47686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f0 08A49686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f4 08A4B686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f8 08A4D686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00fc 08A4F686\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0100 08A40A86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0104 08A42A86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0108 08A44A86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 010c 08A46A86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0110 08A48A86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0114 08A4AA86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0118 08A4CA86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 011c 08A4EA86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0120 08A41A86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0124 08A43A86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0128 08A45A86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 012c 08A47A86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0130 08A49A86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0134 08A4BA86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0138 08A4DA86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 013c 08A4FA86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0140 08A40E86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0144 08A42E86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0148 08A44E86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 014c 08A46E86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0150 08A48E86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0154 08A4AE86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0158 08A4CE86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 015c 08A4EE86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0160 08A41E86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0164 08A43E86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0168 08A45E86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 016c 08A47E86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0170 08A49E86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0174 08A4BE86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0178 08A4DE86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 017c 08A4FE86\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0180 08A406C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0184 08A426C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0188 08A446C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 018c 08A466C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0190 08A486C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0194 08A4A6C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0198 08A4C6C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 019c 08A4E6C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a0 08A416C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a4 08A436C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a8 08A456C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01ac 08A476C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b0 08A496C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b4 08A4B6C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b8 08A4D6C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01bc 08A4F6C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c0 08A40AC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c4 08A42AC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c8 08A44AC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01cc 08A46AC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d0 08A48AC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d4 08A4AAC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d8 08A4CAC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01dc 08A4EAC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e0 08A41AC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e4 08A43AC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e8 08A45AC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01ec 08A47AC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f0 08A49AC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f4 08A4BAC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f8 08A4DAC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01fc 08A4FAC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0200 08A40EC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0204 08A42EC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0208 08A44EC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 020c 08A46EC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0210 08A48EC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0214 08A4AEC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0218 08A4CEC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 021c 08A4EEC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0220 08A41EC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0224 08A43EC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0228 08A45EC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 022c 08A47EC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0230 08A49EC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0234 08A4BEC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0238 08A4DEC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 023c 08A4FEC6\[^\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==144] then { pass $testname } else { fail $testname }
+}
+
+proc do_shladd2 {} {
+ set testname "shladd2.s: shladd2 tests"
+ set x 0
+
+ gas_start "shladd2.s" "-al"
+
+ # Check the assembled instruction against a table built by the HP assembler
+ # Any differences should be checked by hand -- with the number of problems
+ # I've seen in the HP assembler I don't completely trust it.
+ #
+ # 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 08A40666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0004 08A42666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0008 08A44666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 000c 08A46666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0010 08A48666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0014 08A4A666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0018 08A4C666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 001c 08A4E666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0020 08A41666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0024 08A43666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0028 08A45666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 002c 08A47666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0030 08A49666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0034 08A4B666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0038 08A4D666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 003c 08A4F666\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0040 08A40A66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0044 08A42A66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0048 08A44A66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 004c 08A46A66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0050 08A48A66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0054 08A4AA66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0058 08A4CA66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 005c 08A4EA66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0060 08A41A66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0064 08A43A66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0068 08A45A66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 006c 08A47A66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0070 08A49A66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0074 08A4BA66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0078 08A4DA66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 007c 08A4FA66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0080 08A40E66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0084 08A42E66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0088 08A44E66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 008c 08A46E66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0090 08A48E66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0094 08A4AE66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0098 08A4CE66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 009c 08A4EE66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a0 08A41E66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a4 08A43E66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a8 08A45E66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00ac 08A47E66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b0 08A49E66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b4 08A4BE66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b8 08A4DE66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00bc 08A4FE66\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c0 08A406A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c4 08A426A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c8 08A446A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00cc 08A466A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d0 08A486A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d4 08A4A6A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d8 08A4C6A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00dc 08A4E6A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e0 08A416A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e4 08A436A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e8 08A456A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00ec 08A476A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f0 08A496A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f4 08A4B6A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f8 08A4D6A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00fc 08A4F6A6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0100 08A40AA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0104 08A42AA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0108 08A44AA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 010c 08A46AA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0110 08A48AA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0114 08A4AAA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0118 08A4CAA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 011c 08A4EAA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0120 08A41AA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0124 08A43AA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0128 08A45AA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 012c 08A47AA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0130 08A49AA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0134 08A4BAA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0138 08A4DAA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 013c 08A4FAA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0140 08A40EA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0144 08A42EA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0148 08A44EA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 014c 08A46EA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0150 08A48EA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0154 08A4AEA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0158 08A4CEA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 015c 08A4EEA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0160 08A41EA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0164 08A43EA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0168 08A45EA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 016c 08A47EA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0170 08A49EA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0174 08A4BEA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0178 08A4DEA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 017c 08A4FEA6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0180 08A406E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0184 08A426E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0188 08A446E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 018c 08A466E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0190 08A486E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0194 08A4A6E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0198 08A4C6E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 019c 08A4E6E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a0 08A416E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a4 08A436E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a8 08A456E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01ac 08A476E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b0 08A496E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b4 08A4B6E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b8 08A4D6E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01bc 08A4F6E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c0 08A40AE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c4 08A42AE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c8 08A44AE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01cc 08A46AE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d0 08A48AE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d4 08A4AAE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d8 08A4CAE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01dc 08A4EAE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e0 08A41AE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e4 08A43AE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e8 08A45AE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01ec 08A47AE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f0 08A49AE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f4 08A4BAE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f8 08A4DAE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01fc 08A4FAE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0200 08A40EE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0204 08A42EE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0208 08A44EE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 020c 08A46EE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0210 08A48EE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0214 08A4AEE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0218 08A4CEE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 021c 08A4EEE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0220 08A41EE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0224 08A43EE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0228 08A45EE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 022c 08A47EE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0230 08A49EE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0234 08A4BEE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0238 08A4DEE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 023c 08A4FEE6\[^\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==144] then { pass $testname } else { fail $testname }
+}
+
proc do_sub {} {
set testname "sub.s: sub tests"
set x 0
@@ -856,6 +1375,211 @@ proc do_sub {} {
-re "^ +\[0-9\]+ 0174 08A4BCC6\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0178 08A4DCC6\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 017c 08A4FCC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0180 08A40C06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0184 08A42C06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0188 08A44C06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 018c 08A46C06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0190 08A48C06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0194 08A4AC06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0198 08A4CC06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 019c 08A4EC06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a0 08A41C06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a4 08A43C06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a8 08A45C06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01ac 08A47C06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b0 08A49C06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b4 08A4BC06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b8 08A4DC06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01bc 08A4FC06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c0 08A40506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c4 08A42506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01c8 08A44506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01cc 08A46506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d0 08A48506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d4 08A4A506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01d8 08A4C506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01dc 08A4E506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e0 08A41506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e4 08A43506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01e8 08A45506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01ec 08A47506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f0 08A49506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f4 08A4B506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01f8 08A4D506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01fc 08A4F506\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0200 08A40D06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0204 08A42D06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0208 08A44D06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 020c 08A46D06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0210 08A48D06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0214 08A4AD06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0218 08A4CD06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 021c 08A4ED06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0220 08A41D06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0224 08A43D06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0228 08A45D06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 022c 08A47D06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0230 08A49D06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0234 08A4BD06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0238 08A4DD06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 023c 08A4FD06\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0240 08A404C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0244 08A424C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0248 08A444C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 024c 08A464C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0250 08A484C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0254 08A4A4C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0258 08A4C4C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 025c 08A4E4C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0260 08A414C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0264 08A434C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0268 08A454C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 026c 08A474C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0270 08A494C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0274 08A4B4C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0278 08A4D4C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 027c 08A4F4C6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0280 08A40CC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0284 08A42CC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0288 08A44CC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 028c 08A46CC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0290 08A48CC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0294 08A4ACC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0298 08A4CCC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 029c 08A4ECC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 02a0 08A41CC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 02a4 08A43CC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 02a8 08A45CC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 02ac 08A47CC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 02b0 08A49CC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 02b4 08A4BCC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 02b8 08A4DCC6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 02bc 08A4FCC6\[^\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==176] then { pass $testname } else { fail $testname }
+}
+
+proc do_sub2 {} {
+ set testname "sub2.s: sub2 tests"
+ set x 0
+
+ gas_start "sub2.s" "-al"
+
+ # Check the assembled instruction against a table built by the HP assembler
+ # Any differences should be checked by hand -- with the number of problems
+ # I've seen in the HP assembler I don't completely trust it.
+ #
+ # 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 08A40426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0004 08A42426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0008 08A44426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 000c 08A46426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0010 08A48426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0014 08A4A426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0018 08A4C426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 001c 08A4E426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0020 08A41426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0024 08A43426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0028 08A45426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 002c 08A47426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0030 08A49426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0034 08A4B426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0038 08A4D426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 003c 08A4F426\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0040 08A40C26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0044 08A42C26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0048 08A44C26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 004c 08A46C26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0050 08A48C26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0054 08A4AC26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0058 08A4CC26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 005c 08A4EC26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0060 08A41C26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0064 08A43C26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0068 08A45C26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 006c 08A47C26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0070 08A49C26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0074 08A4BC26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0078 08A4DC26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 007c 08A4FC26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0080 08A40526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0084 08A42526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0088 08A44526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 008c 08A46526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0090 08A48526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0094 08A4A526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0098 08A4C526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 009c 08A4E526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a0 08A41526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a4 08A43526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a8 08A45526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00ac 08A47526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b0 08A49526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b4 08A4B526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b8 08A4D526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00bc 08A4F526\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c0 08A40D26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c4 08A42D26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00c8 08A44D26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00cc 08A46D26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d0 08A48D26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d4 08A4AD26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00d8 08A4CD26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00dc 08A4ED26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e0 08A41D26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e4 08A43D26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00e8 08A45D26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00ec 08A47D26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f0 08A49D26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f4 08A4BD26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00f8 08A4DD26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00fc 08A4FD26\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0100 08A404E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0104 08A424E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0108 08A444E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 010c 08A464E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0110 08A484E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0114 08A4A4E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0118 08A4C4E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 011c 08A4E4E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0120 08A414E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0124 08A434E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0128 08A454E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 012c 08A474E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0130 08A494E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0134 08A4B4E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0138 08A4D4E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 013c 08A4F4E6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0140 08A40CE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0144 08A42CE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0148 08A44CE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 014c 08A46CE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0150 08A48CE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0154 08A4ACE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0158 08A4CCE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 015c 08A4ECE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0160 08A41CE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0164 08A43CE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0168 08A45CE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 016c 08A47CE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0170 08A49CE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0174 08A4BCE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0178 08A4DCE6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 017c 08A4FCE6\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
@@ -1096,6 +1820,83 @@ proc do_unit {} {
-re "^ +\[0-9\]+ 0084 08A499C6\[^\n]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0088 08A4D9C6\[^\n]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 008c 08A4F9C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0090 08A409C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0094 08A449C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0098 08A469C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 009c 08A489C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a0 08A4C9C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a4 08A4E9C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a8 08A419C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00ac 08A459C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b0 08A479C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b4 08A499C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b8 08A4D9C6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00bc 08A4F9C6\[^\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==48] then { pass $testname } else { fail $testname }
+}
+
+proc do_unit2 {} {
+ set testname "unit2.s: unit2 tests"
+ set x 0
+
+ gas_start "unit2.s" "-al"
+
+ # Check the assembled instruction against a table built by the HP assembler
+ # Any differences should be checked by hand -- with the number of problems
+ # I've seen in the HP assembler I don't completely trust it.
+ #
+ # 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 08A403A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0004 08A443A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0008 08A463A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 000c 08A483A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0010 08A4C3A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0014 08A4E3A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0018 08A413A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 001c 08A453A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0020 08A473A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0024 08A493A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0028 08A4D3A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 002c 08A4F3A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0030 08A409A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0034 08A449A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0038 08A469A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 003c 08A489A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0040 08A4C9A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0044 08A4E9A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0048 08A419A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 004c 08A459A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0050 08A479A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0054 08A499A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0058 08A4D9A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 005c 08A4F9A6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0060 08A409E6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0064 08A449E6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0068 08A469E6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 006c 08A489E6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0070 08A4C9E6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0074 08A4E9E6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0078 08A419E6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 007c 08A459E6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0080 08A479E6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0084 08A499E6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0088 08A4D9E6\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 008c 08A4F9E6\[^\n]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
@@ -1149,6 +1950,71 @@ proc do_dcor {} {
-re "^ +\[0-9\]+ 0054 08809BC5\[^\n]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0058 0880DBC5\[^\n]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 005c 0880FBC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0060 08800BC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0064 08804BC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0068 08806BC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 006c 08808BC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0070 0880CBC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0074 0880EBC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0078 08801BC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 007c 08805BC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0080 08807BC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0084 08809BC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0088 0880DBC5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 008c 0880FBC5\[^\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==36] then { pass $testname } else { fail $testname }
+}
+
+proc do_dcor2 {} {
+ set testname "dcor2.s: dcor2 tests"
+ set x 0
+
+ gas_start "dcor2.s" "-al"
+
+ # Check the assembled instruction against a table built by the HP assembler
+ # Any differences should be checked by hand -- with the number of problems
+ # I've seen in the HP assembler I don't completely trust it.
+ #
+ # 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 08800BA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0004 08804BA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0008 08806BA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 000c 08808BA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0010 0880CBA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0014 0880EBA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0018 08801BA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 001c 08805BA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0020 08807BA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0024 08809BA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0028 0880DBA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 002c 0880FBA5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0030 08800BE5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0034 08804BE5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0038 08806BE5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 003c 08808BE5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0040 0880CBE5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0044 0880EBE5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0048 08801BE5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 004c 08805BE5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0050 08807BE5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0054 08809BE5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0058 0880DBE5\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 005c 0880FBE5\[^\n]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
@@ -1242,6 +2108,54 @@ proc do_addi {} {
-re "^ +\[0-9\]+ 00f4 B0A6B8F6\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00f8 B0A6D8F6\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 00fc B0A6F8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0100 B4A608F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0104 B4A628F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0108 B4A648F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 010c B4A668F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0110 B4A688F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0114 B4A6A8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0118 B4A6C8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 011c B4A6E8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0120 B4A618F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0124 B4A638F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0128 B4A658F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 012c B4A678F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0130 B4A698F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0134 B4A6B8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0138 B4A6D8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 013c B4A6F8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0140 B0A600F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0144 B0A620F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0148 B0A640F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 014c B0A660F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0150 B0A680F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0154 B0A6A0F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0158 B0A6C0F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 015c B0A6E0F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0160 B0A610F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0164 B0A630F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0168 B0A650F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 016c B0A670F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0170 B0A690F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0174 B0A6B0F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0178 B0A6D0F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 017c B0A6F0F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0180 B0A608F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0184 B0A628F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0188 B0A648F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 018c B0A668F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0190 B0A688F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0194 B0A6A8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0198 B0A6C8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 019c B0A6E8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a0 B0A618F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a4 B0A638F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01a8 B0A658F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01ac B0A678F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b0 B0A698F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b4 B0A6B8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01b8 B0A6D8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 01bc B0A6F8F6\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
@@ -1253,7 +2167,7 @@ proc do_addi {} {
gas_finish
# Did we find what we were looking for? If not, flunk it.
- if [expr $x==64] then { pass $testname } else { fail $testname }
+ if [expr $x==112] then { pass $testname } else { fail $testname }
}
proc do_subi {} {
@@ -1303,6 +2217,22 @@ proc do_subi {} {
-re "^ +\[0-9\]+ 0074 94A6B8F6\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0078 94A6D8F6\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 007c 94A6F8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0080 94A608F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0084 94A628F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0088 94A648F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 008c 94A668F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0090 94A688F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0094 94A6A8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0098 94A6C8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 009c 94A6E8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a0 94A618F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a4 94A638F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00a8 94A658F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00ac 94A678F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b0 94A698F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b4 94A6B8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00b8 94A6D8F6\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 00bc 94A6F8F6\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
@@ -1314,7 +2244,7 @@ proc do_subi {} {
gas_finish
# Did we find what we were looking for? If not, flunk it.
- if [expr $x==32] then { pass $testname } else { fail $testname }
+ if [expr $x==48] then { pass $testname } else { fail $testname }
}
proc do_shift {} {
@@ -1572,6 +2502,44 @@ proc do_system {} {
if [expr $x==27] then { pass $testname } else { fail $testname }
}
+proc do_system2 {} {
+ set testname "system2.s: system2 tests"
+ set x 0
+
+ gas_start "system2.s" "-al"
+
+ # Check the assembled instruction against a table built by the HP assembler
+ # Any differences should be checked by hand -- with the number of problems
+ # I've seen in the HP assembler I don't completely trust it.
+ #
+ # 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 00000C00\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0004 00000CA0\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0008 039B0D64\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 000c 039B0E64\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0010 016048A4\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0014 04A61187\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0018 04A13187\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 001c 04A611C7\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0020 04A131C7\[^\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==9] then { pass $testname } else { fail $testname }
+}
+
proc do_purge {} {
set testname "purge.s: purge tests"
set x 0
@@ -1620,6 +2588,40 @@ proc do_purge {} {
if [expr $x==18] then { pass $testname } else { fail $testname }
}
+proc do_purge2 {} {
+ set testname "purge2.s: purge2 tests"
+ set x 0
+
+ gas_start "purge2.s" "-al"
+
+ # Check the assembled instruction against a table built by the HP assembler
+ # Any differences should be checked by hand -- with the number of problems
+ # I've seen in the HP assembler I don't completely trust it.
+ #
+ # 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 04A41600\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0004 04A41620\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0008 04A42600\[^\n]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 000c 04A42620\[^\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==4] then { pass $testname } else { fail $testname }
+}
+
proc do_fp_misc {} {
set testname "fp_misc.s: fp_misc tests"
set x 0
@@ -2157,6 +3159,42 @@ proc do_special {} {
if [expr $x==4] then { pass $testname } else { fail $testname }
}
+proc do_perf {} {
+ set testname "perf.s: perf tests"
+ set x 0
+
+ gas_start "perf.s" "-al"
+
+ # Check the assembled instruction against a table built by the HP assembler
+ # Any differences should be checked by hand -- with the number of problems
+ # I've seen in the HP assembler I don't completely trust it.
+ #
+ # 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).
+
+ # The third one is questionable. HP as doesn't generate what the book
+ # says. It outputs the nullify flag at 30 instead.
+
+ while 1 {
+ expect {
+ -re "^ +\[0-9\]+ 0000 30000680\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0004 30000280\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0008 300002A0\[^\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==3] then { pass $testname } else { fail $testname }
+}
+
proc do_spop {} {
set testname "spop.s: spop tests"
set x 0
@@ -2372,28 +3410,37 @@ if [istarget hppa*-*-*] then {
do_immed
do_branch
do_add
+ do_add2
do_sh1add
do_sh2add
do_sh3add
+ do_shladd
+ do_shladd2
do_sub
+ do_sub2
do_ds
do_comclr
do_logical
do_unit
+ do_unit2
do_dcor
+ do_dcor2
do_addi
do_subi
do_shift
do_extract
do_deposit
do_system
+ do_system2
do_purge
+ do_purge2
do_fp_misc
do_fmem
do_fp_comp
do_fp_conv
do_fp_fcmp
do_special
+ do_perf
do_spop
do_copr
do_coprmem
diff --git a/gas/testsuite/gas/hppa/basic/dcor.s b/gas/testsuite/gas/hppa/basic/dcor.s
index 8474554..fbac274 100644
--- a/gas/testsuite/gas/hppa/basic/dcor.s
+++ b/gas/testsuite/gas/hppa/basic/dcor.s
@@ -9,7 +9,7 @@
.SUBSPA $CODE$
.align 4
-; Basic immediate instruction tests.
+; decimal correction instruction tests.
;
; We could/should test some of the corner cases for register and
; immediate fields. We should also check the assorted field
@@ -39,3 +39,17 @@
idcor,ndc %r4,%r5
idcor,nbc %r4,%r5
idcor,nhc %r4,%r5
+
+ dcor,i %r4,%r5
+ dcor,i,sbz %r4,%r5
+ dcor,i,shz %r4,%r5
+ dcor,i,sdc %r4,%r5
+ dcor,i,sbc %r4,%r5
+ dcor,i,shc %r4,%r5
+ dcor,i,tr %r4,%r5
+ dcor,i,nbz %r4,%r5
+ dcor,i,nhz %r4,%r5
+ dcor,i,ndc %r4,%r5
+ dcor,i,nbc %r4,%r5
+ dcor,i,nhc %r4,%r5
+
diff --git a/gas/testsuite/gas/hppa/basic/dcor2.s b/gas/testsuite/gas/hppa/basic/dcor2.s
new file mode 100644
index 0000000..100b379
--- /dev/null
+++ b/gas/testsuite/gas/hppa/basic/dcor2.s
@@ -0,0 +1,43 @@
+ .LEVEL 2.0
+ .SPACE $PRIVATE$
+ .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+ .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+ .SPACE $TEXT$
+ .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+ .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+ .SPACE $TEXT$
+ .SUBSPA $CODE$
+
+ .align 4
+; PA2.0 decimal correction instruction tests.
+;
+; We could/should test some of the corner cases for register and
+; immediate fields. We should also check the assorted field
+; selectors to make sure they're handled correctly.
+ dcor,* %r4,%r5
+ dcor,*sbz %r4,%r5
+ dcor,*shz %r4,%r5
+ dcor,*sdc %r4,%r5
+ dcor,*sbc %r4,%r5
+ dcor,*shc %r4,%r5
+ dcor,*tr %r4,%r5
+ dcor,*nbz %r4,%r5
+ dcor,*nhz %r4,%r5
+ dcor,*ndc %r4,%r5
+ dcor,*nbc %r4,%r5
+ dcor,*nhc %r4,%r5
+
+ dcor,i,* %r4,%r5
+ dcor,i,*sbz %r4,%r5
+ dcor,i,*shz %r4,%r5
+ dcor,i,*sdc %r4,%r5
+ dcor,i,*sbc %r4,%r5
+ dcor,i,*shc %r4,%r5
+ dcor,i,*tr %r4,%r5
+ dcor,i,*nbz %r4,%r5
+ dcor,i,*nhz %r4,%r5
+ dcor,i,*ndc %r4,%r5
+ dcor,i,*nbc %r4,%r5
+ dcor,i,*nhc %r4,%r5
+
diff --git a/gas/testsuite/gas/hppa/basic/perf.s b/gas/testsuite/gas/hppa/basic/perf.s
new file mode 100644
index 0000000..d53bfb9
--- /dev/null
+++ b/gas/testsuite/gas/hppa/basic/perf.s
@@ -0,0 +1,19 @@
+ .LEVEL 2.0
+ .SPACE $PRIVATE$
+ .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+ .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+ .SPACE $TEXT$
+ .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+ .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+ .SPACE $TEXT$
+ .SUBSPA $CODE$
+
+ .align 4
+; PA2.0 performance monitor instruction tests
+
+
+ pmenb
+ pmdis
+ pmdis,n
+
diff --git a/gas/testsuite/gas/hppa/basic/purge2.s b/gas/testsuite/gas/hppa/basic/purge2.s
new file mode 100644
index 0000000..658a553
--- /dev/null
+++ b/gas/testsuite/gas/hppa/basic/purge2.s
@@ -0,0 +1,21 @@
+ .LEVEL 2.0
+ .SPACE $PRIVATE$
+ .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+ .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+ .SPACE $TEXT$
+ .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+ .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+ .SPACE $TEXT$
+ .SUBSPA $CODE$
+
+ .align 4
+; PA2.0 purge instruction tests.
+;
+; We could/should test some of the corner cases for register and
+; immediate fields. We should also check the assorted field
+; selectors to make sure they're handled correctly.
+ pdtlb,l %r4(%sr0,%r5)
+ pdtlb,l,m %r4(%sr0,%r5)
+ pitlb,l %r4(%sr4,%r5)
+ pitlb,l,m %r4(%sr4,%r5)
diff --git a/gas/testsuite/gas/hppa/basic/shladd.s b/gas/testsuite/gas/hppa/basic/shladd.s
new file mode 100644
index 0000000..d1f9dc5
--- /dev/null
+++ b/gas/testsuite/gas/hppa/basic/shladd.s
@@ -0,0 +1,169 @@
+ .SPACE $PRIVATE$
+ .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+ .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+ .SPACE $TEXT$
+ .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+ .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+ .SPACE $TEXT$
+ .SUBSPA $CODE$
+
+ .align 4
+; Basic shladd instruction tests.
+;
+; We could/should test some of the corner cases for register and
+; immediate fields. We should also check the assorted field
+; selectors to make sure they're handled correctly.
+ shladd %r4,1,%r5,%r6
+ shladd,= %r4,1,%r5,%r6
+ shladd,< %r4,1,%r5,%r6
+ shladd,<= %r4,1,%r5,%r6
+ shladd,nuv %r4,1,%r5,%r6
+ shladd,znv %r4,1,%r5,%r6
+ shladd,sv %r4,1,%r5,%r6
+ shladd,od %r4,1,%r5,%r6
+ shladd,tr %r4,1,%r5,%r6
+ shladd,<> %r4,1,%r5,%r6
+ shladd,>= %r4,1,%r5,%r6
+ shladd,> %r4,1,%r5,%r6
+ shladd,uv %r4,1,%r5,%r6
+ shladd,vnz %r4,1,%r5,%r6
+ shladd,nsv %r4,1,%r5,%r6
+ shladd,ev %r4,1,%r5,%r6
+
+ shladd,l %r4,1,%r5,%r6
+ shladd,l,= %r4,1,%r5,%r6
+ shladd,l,< %r4,1,%r5,%r6
+ shladd,l,<= %r4,1,%r5,%r6
+ shladd,l,nuv %r4,1,%r5,%r6
+ shladd,l,znv %r4,1,%r5,%r6
+ shladd,l,sv %r4,1,%r5,%r6
+ shladd,l,od %r4,1,%r5,%r6
+ shladd,l,tr %r4,1,%r5,%r6
+ shladd,l,<> %r4,1,%r5,%r6
+ shladd,l,>= %r4,1,%r5,%r6
+ shladd,l,> %r4,1,%r5,%r6
+ shladd,l,uv %r4,1,%r5,%r6
+ shladd,l,vnz %r4,1,%r5,%r6
+ shladd,l,nsv %r4,1,%r5,%r6
+ shladd,l,ev %r4,1,%r5,%r6
+
+ shladd,tsv %r4,1,%r5,%r6
+ shladd,tsv,= %r4,1,%r5,%r6
+ shladd,tsv,< %r4,1,%r5,%r6
+ shladd,tsv,<= %r4,1,%r5,%r6
+ shladd,tsv,nuv %r4,1,%r5,%r6
+ shladd,tsv,znv %r4,1,%r5,%r6
+ shladd,tsv,sv %r4,1,%r5,%r6
+ shladd,tsv,od %r4,1,%r5,%r6
+ shladd,tsv,tr %r4,1,%r5,%r6
+ shladd,tsv,<> %r4,1,%r5,%r6
+ shladd,tsv,>= %r4,1,%r5,%r6
+ shladd,tsv,> %r4,1,%r5,%r6
+ shladd,tsv,uv %r4,1,%r5,%r6
+ shladd,tsv,vnz %r4,1,%r5,%r6
+ shladd,tsv,nsv %r4,1,%r5,%r6
+ shladd,tsv,ev %r4,1,%r5,%r6
+
+ shladd %r4,2,%r5,%r6
+ shladd,= %r4,2,%r5,%r6
+ shladd,< %r4,2,%r5,%r6
+ shladd,<= %r4,2,%r5,%r6
+ shladd,nuv %r4,2,%r5,%r6
+ shladd,znv %r4,2,%r5,%r6
+ shladd,sv %r4,2,%r5,%r6
+ shladd,od %r4,2,%r5,%r6
+ shladd,tr %r4,2,%r5,%r6
+ shladd,<> %r4,2,%r5,%r6
+ shladd,>= %r4,2,%r5,%r6
+ shladd,> %r4,2,%r5,%r6
+ shladd,uv %r4,2,%r5,%r6
+ shladd,vnz %r4,2,%r5,%r6
+ shladd,nsv %r4,2,%r5,%r6
+ shladd,ev %r4,2,%r5,%r6
+
+ shladd,l %r4,2,%r5,%r6
+ shladd,l,= %r4,2,%r5,%r6
+ shladd,l,< %r4,2,%r5,%r6
+ shladd,l,<= %r4,2,%r5,%r6
+ shladd,l,nuv %r4,2,%r5,%r6
+ shladd,l,znv %r4,2,%r5,%r6
+ shladd,l,sv %r4,2,%r5,%r6
+ shladd,l,od %r4,2,%r5,%r6
+ shladd,l,tr %r4,2,%r5,%r6
+ shladd,l,<> %r4,2,%r5,%r6
+ shladd,l,>= %r4,2,%r5,%r6
+ shladd,l,> %r4,2,%r5,%r6
+ shladd,l,uv %r4,2,%r5,%r6
+ shladd,l,vnz %r4,2,%r5,%r6
+ shladd,l,nsv %r4,2,%r5,%r6
+ shladd,l,ev %r4,2,%r5,%r6
+
+ shladd,tsv %r4,2,%r5,%r6
+ shladd,tsv,= %r4,2,%r5,%r6
+ shladd,tsv,< %r4,2,%r5,%r6
+ shladd,tsv,<= %r4,2,%r5,%r6
+ shladd,tsv,nuv %r4,2,%r5,%r6
+ shladd,tsv,znv %r4,2,%r5,%r6
+ shladd,tsv,sv %r4,2,%r5,%r6
+ shladd,tsv,od %r4,2,%r5,%r6
+ shladd,tsv,tr %r4,2,%r5,%r6
+ shladd,tsv,<> %r4,2,%r5,%r6
+ shladd,tsv,>= %r4,2,%r5,%r6
+ shladd,tsv,> %r4,2,%r5,%r6
+ shladd,tsv,uv %r4,2,%r5,%r6
+ shladd,tsv,vnz %r4,2,%r5,%r6
+ shladd,tsv,nsv %r4,2,%r5,%r6
+ shladd,tsv,ev %r4,2,%r5,%r6
+
+ shladd %r4,3,%r5,%r6
+ shladd,= %r4,3,%r5,%r6
+ shladd,< %r4,3,%r5,%r6
+ shladd,<= %r4,3,%r5,%r6
+ shladd,nuv %r4,3,%r5,%r6
+ shladd,znv %r4,3,%r5,%r6
+ shladd,sv %r4,3,%r5,%r6
+ shladd,od %r4,3,%r5,%r6
+ shladd,tr %r4,3,%r5,%r6
+ shladd,<> %r4,3,%r5,%r6
+ shladd,>= %r4,3,%r5,%r6
+ shladd,> %r4,3,%r5,%r6
+ shladd,uv %r4,3,%r5,%r6
+ shladd,vnz %r4,3,%r5,%r6
+ shladd,nsv %r4,3,%r5,%r6
+ shladd,ev %r4,3,%r5,%r6
+
+ shladd,l %r4,3,%r5,%r6
+ shladd,l,= %r4,3,%r5,%r6
+ shladd,l,< %r4,3,%r5,%r6
+ shladd,l,<= %r4,3,%r5,%r6
+ shladd,l,nuv %r4,3,%r5,%r6
+ shladd,l,znv %r4,3,%r5,%r6
+ shladd,l,sv %r4,3,%r5,%r6
+ shladd,l,od %r4,3,%r5,%r6
+ shladd,l,tr %r4,3,%r5,%r6
+ shladd,l,<> %r4,3,%r5,%r6
+ shladd,l,>= %r4,3,%r5,%r6
+ shladd,l,> %r4,3,%r5,%r6
+ shladd,l,uv %r4,3,%r5,%r6
+ shladd,l,vnz %r4,3,%r5,%r6
+ shladd,l,nsv %r4,3,%r5,%r6
+ shladd,l,ev %r4,3,%r5,%r6
+
+ shladd,tsv %r4,3,%r5,%r6
+ shladd,tsv,= %r4,3,%r5,%r6
+ shladd,tsv,< %r4,3,%r5,%r6
+ shladd,tsv,<= %r4,3,%r5,%r6
+ shladd,tsv,nuv %r4,3,%r5,%r6
+ shladd,tsv,znv %r4,3,%r5,%r6
+ shladd,tsv,sv %r4,3,%r5,%r6
+ shladd,tsv,od %r4,3,%r5,%r6
+ shladd,tsv,tr %r4,3,%r5,%r6
+ shladd,tsv,<> %r4,3,%r5,%r6
+ shladd,tsv,>= %r4,3,%r5,%r6
+ shladd,tsv,> %r4,3,%r5,%r6
+ shladd,tsv,uv %r4,3,%r5,%r6
+ shladd,tsv,vnz %r4,3,%r5,%r6
+ shladd,tsv,nsv %r4,3,%r5,%r6
+ shladd,tsv,ev %r4,3,%r5,%r6
+
diff --git a/gas/testsuite/gas/hppa/basic/shladd2.s b/gas/testsuite/gas/hppa/basic/shladd2.s
new file mode 100644
index 0000000..91cfb10
--- /dev/null
+++ b/gas/testsuite/gas/hppa/basic/shladd2.s
@@ -0,0 +1,170 @@
+ .LEVEL 2.0
+ .SPACE $PRIVATE$
+ .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+ .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+ .SPACE $TEXT$
+ .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+ .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+ .SPACE $TEXT$
+ .SUBSPA $CODE$
+
+ .align 4
+; PA2.0 shladd instruction tests.
+;
+; We could/should test some of the corner cases for register and
+; immediate fields. We should also check the assorted field
+; selectors to make sure they're handled correctly.
+ shladd,* %r4,1,%r5,%r6
+ shladd,*= %r4,1,%r5,%r6
+ shladd,*< %r4,1,%r5,%r6
+ shladd,*<= %r4,1,%r5,%r6
+ shladd,*nuv %r4,1,%r5,%r6
+ shladd,*znv %r4,1,%r5,%r6
+ shladd,*sv %r4,1,%r5,%r6
+ shladd,*od %r4,1,%r5,%r6
+ shladd,*tr %r4,1,%r5,%r6
+ shladd,*<> %r4,1,%r5,%r6
+ shladd,*>= %r4,1,%r5,%r6
+ shladd,*> %r4,1,%r5,%r6
+ shladd,*uv %r4,1,%r5,%r6
+ shladd,*vnz %r4,1,%r5,%r6
+ shladd,*nsv %r4,1,%r5,%r6
+ shladd,*ev %r4,1,%r5,%r6
+
+ shladd,l,* %r4,1,%r5,%r6
+ shladd,l,*= %r4,1,%r5,%r6
+ shladd,l,*< %r4,1,%r5,%r6
+ shladd,l,*<= %r4,1,%r5,%r6
+ shladd,l,*nuv %r4,1,%r5,%r6
+ shladd,l,*znv %r4,1,%r5,%r6
+ shladd,l,*sv %r4,1,%r5,%r6
+ shladd,l,*od %r4,1,%r5,%r6
+ shladd,l,*tr %r4,1,%r5,%r6
+ shladd,l,*<> %r4,1,%r5,%r6
+ shladd,l,*>= %r4,1,%r5,%r6
+ shladd,l,*> %r4,1,%r5,%r6
+ shladd,l,*uv %r4,1,%r5,%r6
+ shladd,l,*vnz %r4,1,%r5,%r6
+ shladd,l,*nsv %r4,1,%r5,%r6
+ shladd,l,*ev %r4,1,%r5,%r6
+
+ shladd,tsv,* %r4,1,%r5,%r6
+ shladd,tsv,*= %r4,1,%r5,%r6
+ shladd,tsv,*< %r4,1,%r5,%r6
+ shladd,tsv,*<= %r4,1,%r5,%r6
+ shladd,tsv,*nuv %r4,1,%r5,%r6
+ shladd,tsv,*znv %r4,1,%r5,%r6
+ shladd,tsv,*sv %r4,1,%r5,%r6
+ shladd,tsv,*od %r4,1,%r5,%r6
+ shladd,tsv,*tr %r4,1,%r5,%r6
+ shladd,tsv,*<> %r4,1,%r5,%r6
+ shladd,tsv,*>= %r4,1,%r5,%r6
+ shladd,tsv,*> %r4,1,%r5,%r6
+ shladd,tsv,*uv %r4,1,%r5,%r6
+ shladd,tsv,*vnz %r4,1,%r5,%r6
+ shladd,tsv,*nsv %r4,1,%r5,%r6
+ shladd,tsv,*ev %r4,1,%r5,%r6
+
+ shladd,* %r4,2,%r5,%r6
+ shladd,*= %r4,2,%r5,%r6
+ shladd,*< %r4,2,%r5,%r6
+ shladd,*<= %r4,2,%r5,%r6
+ shladd,*nuv %r4,2,%r5,%r6
+ shladd,*znv %r4,2,%r5,%r6
+ shladd,*sv %r4,2,%r5,%r6
+ shladd,*od %r4,2,%r5,%r6
+ shladd,*tr %r4,2,%r5,%r6
+ shladd,*<> %r4,2,%r5,%r6
+ shladd,*>= %r4,2,%r5,%r6
+ shladd,*> %r4,2,%r5,%r6
+ shladd,*uv %r4,2,%r5,%r6
+ shladd,*vnz %r4,2,%r5,%r6
+ shladd,*nsv %r4,2,%r5,%r6
+ shladd,*ev %r4,2,%r5,%r6
+
+ shladd,l,* %r4,2,%r5,%r6
+ shladd,l,*= %r4,2,%r5,%r6
+ shladd,l,*< %r4,2,%r5,%r6
+ shladd,l,*<= %r4,2,%r5,%r6
+ shladd,l,*nuv %r4,2,%r5,%r6
+ shladd,l,*znv %r4,2,%r5,%r6
+ shladd,l,*sv %r4,2,%r5,%r6
+ shladd,l,*od %r4,2,%r5,%r6
+ shladd,l,*tr %r4,2,%r5,%r6
+ shladd,l,*<> %r4,2,%r5,%r6
+ shladd,l,*>= %r4,2,%r5,%r6
+ shladd,l,*> %r4,2,%r5,%r6
+ shladd,l,*uv %r4,2,%r5,%r6
+ shladd,l,*vnz %r4,2,%r5,%r6
+ shladd,l,*nsv %r4,2,%r5,%r6
+ shladd,l,*ev %r4,2,%r5,%r6
+
+ shladd,tsv,* %r4,2,%r5,%r6
+ shladd,tsv,*= %r4,2,%r5,%r6
+ shladd,tsv,*< %r4,2,%r5,%r6
+ shladd,tsv,*<= %r4,2,%r5,%r6
+ shladd,tsv,*nuv %r4,2,%r5,%r6
+ shladd,tsv,*znv %r4,2,%r5,%r6
+ shladd,tsv,*sv %r4,2,%r5,%r6
+ shladd,tsv,*od %r4,2,%r5,%r6
+ shladd,tsv,*tr %r4,2,%r5,%r6
+ shladd,tsv,*<> %r4,2,%r5,%r6
+ shladd,tsv,*>= %r4,2,%r5,%r6
+ shladd,tsv,*> %r4,2,%r5,%r6
+ shladd,tsv,*uv %r4,2,%r5,%r6
+ shladd,tsv,*vnz %r4,2,%r5,%r6
+ shladd,tsv,*nsv %r4,2,%r5,%r6
+ shladd,tsv,*ev %r4,2,%r5,%r6
+
+ shladd,* %r4,3,%r5,%r6
+ shladd,*= %r4,3,%r5,%r6
+ shladd,*< %r4,3,%r5,%r6
+ shladd,*<= %r4,3,%r5,%r6
+ shladd,*nuv %r4,3,%r5,%r6
+ shladd,*znv %r4,3,%r5,%r6
+ shladd,*sv %r4,3,%r5,%r6
+ shladd,*od %r4,3,%r5,%r6
+ shladd,*tr %r4,3,%r5,%r6
+ shladd,*<> %r4,3,%r5,%r6
+ shladd,*>= %r4,3,%r5,%r6
+ shladd,*> %r4,3,%r5,%r6
+ shladd,*uv %r4,3,%r5,%r6
+ shladd,*vnz %r4,3,%r5,%r6
+ shladd,*nsv %r4,3,%r5,%r6
+ shladd,*ev %r4,3,%r5,%r6
+
+ shladd,l,* %r4,3,%r5,%r6
+ shladd,l,*= %r4,3,%r5,%r6
+ shladd,l,*< %r4,3,%r5,%r6
+ shladd,l,*<= %r4,3,%r5,%r6
+ shladd,l,*nuv %r4,3,%r5,%r6
+ shladd,l,*znv %r4,3,%r5,%r6
+ shladd,l,*sv %r4,3,%r5,%r6
+ shladd,l,*od %r4,3,%r5,%r6
+ shladd,l,*tr %r4,3,%r5,%r6
+ shladd,l,*<> %r4,3,%r5,%r6
+ shladd,l,*>= %r4,3,%r5,%r6
+ shladd,l,*> %r4,3,%r5,%r6
+ shladd,l,*uv %r4,3,%r5,%r6
+ shladd,l,*vnz %r4,3,%r5,%r6
+ shladd,l,*nsv %r4,3,%r5,%r6
+ shladd,l,*ev %r4,3,%r5,%r6
+
+ shladd,tsv,* %r4,3,%r5,%r6
+ shladd,tsv,*= %r4,3,%r5,%r6
+ shladd,tsv,*< %r4,3,%r5,%r6
+ shladd,tsv,*<= %r4,3,%r5,%r6
+ shladd,tsv,*nuv %r4,3,%r5,%r6
+ shladd,tsv,*znv %r4,3,%r5,%r6
+ shladd,tsv,*sv %r4,3,%r5,%r6
+ shladd,tsv,*od %r4,3,%r5,%r6
+ shladd,tsv,*tr %r4,3,%r5,%r6
+ shladd,tsv,*<> %r4,3,%r5,%r6
+ shladd,tsv,*>= %r4,3,%r5,%r6
+ shladd,tsv,*> %r4,3,%r5,%r6
+ shladd,tsv,*uv %r4,3,%r5,%r6
+ shladd,tsv,*vnz %r4,3,%r5,%r6
+ shladd,tsv,*nsv %r4,3,%r5,%r6
+ shladd,tsv,*ev %r4,3,%r5,%r6
+
diff --git a/gas/testsuite/gas/hppa/basic/sub.s b/gas/testsuite/gas/hppa/basic/sub.s
index 64ff0df..398109d 100644
--- a/gas/testsuite/gas/hppa/basic/sub.s
+++ b/gas/testsuite/gas/hppa/basic/sub.s
@@ -115,3 +115,88 @@
subto,>> %r4,%r5,%r6
subto,nsv %r4,%r5,%r6
subto,ev %r4,%r5,%r6
+
+ sub,tsv %r4,%r5,%r6
+ sub,tsv,= %r4,%r5,%r6
+ sub,tsv,< %r4,%r5,%r6
+ sub,tsv,<= %r4,%r5,%r6
+ sub,tsv,<< %r4,%r5,%r6
+ sub,tsv,<<= %r4,%r5,%r6
+ sub,tsv,sv %r4,%r5,%r6
+ sub,tsv,od %r4,%r5,%r6
+ sub,tsv,tr %r4,%r5,%r6
+ sub,tsv,<> %r4,%r5,%r6
+ sub,tsv,>= %r4,%r5,%r6
+ sub,tsv,> %r4,%r5,%r6
+ sub,tsv,>>= %r4,%r5,%r6
+ sub,tsv,>> %r4,%r5,%r6
+ sub,tsv,nsv %r4,%r5,%r6
+ sub,tsv,ev %r4,%r5,%r6
+
+ sub,b %r4,%r5,%r6
+ sub,b,= %r4,%r5,%r6
+ sub,b,< %r4,%r5,%r6
+ sub,b,<= %r4,%r5,%r6
+ sub,b,<< %r4,%r5,%r6
+ sub,b,<<= %r4,%r5,%r6
+ sub,b,sv %r4,%r5,%r6
+ sub,b,od %r4,%r5,%r6
+ sub,b,tr %r4,%r5,%r6
+ sub,b,<> %r4,%r5,%r6
+ sub,b,>= %r4,%r5,%r6
+ sub,b,> %r4,%r5,%r6
+ sub,b,>>= %r4,%r5,%r6
+ sub,b,>> %r4,%r5,%r6
+ sub,b,nsv %r4,%r5,%r6
+ sub,b,ev %r4,%r5,%r6
+
+ sub,b,tsv %r4,%r5,%r6
+ sub,b,tsv,= %r4,%r5,%r6
+ sub,b,tsv,< %r4,%r5,%r6
+ sub,b,tsv,<= %r4,%r5,%r6
+ sub,b,tsv,<< %r4,%r5,%r6
+ sub,b,tsv,<<= %r4,%r5,%r6
+ sub,b,tsv,sv %r4,%r5,%r6
+ sub,b,tsv,od %r4,%r5,%r6
+ sub,tsv,b,tr %r4,%r5,%r6
+ sub,tsv,b,<> %r4,%r5,%r6
+ sub,tsv,b,>= %r4,%r5,%r6
+ sub,tsv,b,> %r4,%r5,%r6
+ sub,tsv,b,>>= %r4,%r5,%r6
+ sub,tsv,b,>> %r4,%r5,%r6
+ sub,tsv,b,nsv %r4,%r5,%r6
+ sub,tsv,b,ev %r4,%r5,%r6
+
+ sub,tc %r4,%r5,%r6
+ sub,tc,= %r4,%r5,%r6
+ sub,tc,< %r4,%r5,%r6
+ sub,tc,<= %r4,%r5,%r6
+ sub,tc,<< %r4,%r5,%r6
+ sub,tc,<<= %r4,%r5,%r6
+ sub,tc,sv %r4,%r5,%r6
+ sub,tc,od %r4,%r5,%r6
+ sub,tc,tr %r4,%r5,%r6
+ sub,tc,<> %r4,%r5,%r6
+ sub,tc,>= %r4,%r5,%r6
+ sub,tc,> %r4,%r5,%r6
+ sub,tc,>>= %r4,%r5,%r6
+ sub,tc,>> %r4,%r5,%r6
+ sub,tc,nsv %r4,%r5,%r6
+ sub,tc,ev %r4,%r5,%r6
+
+ sub,tc,tsv %r4,%r5,%r6
+ sub,tc,tsv,= %r4,%r5,%r6
+ sub,tc,tsv,< %r4,%r5,%r6
+ sub,tc,tsv,<= %r4,%r5,%r6
+ sub,tc,tsv,<< %r4,%r5,%r6
+ sub,tc,tsv,<<= %r4,%r5,%r6
+ sub,tc,tsv,sv %r4,%r5,%r6
+ sub,tc,tsv,od %r4,%r5,%r6
+ sub,tsv,tc,tr %r4,%r5,%r6
+ sub,tsv,tc,<> %r4,%r5,%r6
+ sub,tsv,tc,>= %r4,%r5,%r6
+ sub,tsv,tc,> %r4,%r5,%r6
+ sub,tsv,tc,>>= %r4,%r5,%r6
+ sub,tsv,tc,>> %r4,%r5,%r6
+ sub,tsv,tc,nsv %r4,%r5,%r6
+ sub,tsv,tc,ev %r4,%r5,%r6
diff --git a/gas/testsuite/gas/hppa/basic/sub2.s b/gas/testsuite/gas/hppa/basic/sub2.s
new file mode 100644
index 0000000..adf183b
--- /dev/null
+++ b/gas/testsuite/gas/hppa/basic/sub2.s
@@ -0,0 +1,118 @@
+ .LEVEL 2.0
+ .SPACE $PRIVATE$
+ .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+ .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+ .SPACE $TEXT$
+ .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+ .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+ .SPACE $TEXT$
+ .SUBSPA $CODE$
+
+ .align 4
+; Basic immediate instruction tests.
+;
+; We could/should test some of the corner cases for register and
+; immediate fields. We should also check the assorted field
+; selectors to make sure they're handled correctly.
+ sub,* %r4,%r5,%r6
+ sub,*= %r4,%r5,%r6
+ sub,*< %r4,%r5,%r6
+ sub,*<= %r4,%r5,%r6
+ sub,*<< %r4,%r5,%r6
+ sub,*<<= %r4,%r5,%r6
+ sub,*sv %r4,%r5,%r6
+ sub,*od %r4,%r5,%r6
+ sub,*tr %r4,%r5,%r6
+ sub,*<> %r4,%r5,%r6
+ sub,*>= %r4,%r5,%r6
+ sub,*> %r4,%r5,%r6
+ sub,*>>= %r4,%r5,%r6
+ sub,*>> %r4,%r5,%r6
+ sub,*nsv %r4,%r5,%r6
+ sub,*ev %r4,%r5,%r6
+
+ sub,tsv,* %r4,%r5,%r6
+ sub,tsv,*= %r4,%r5,%r6
+ sub,tsv,*< %r4,%r5,%r6
+ sub,tsv,*<= %r4,%r5,%r6
+ sub,tsv,*<< %r4,%r5,%r6
+ sub,tsv,*<<= %r4,%r5,%r6
+ sub,tsv,*sv %r4,%r5,%r6
+ sub,tsv,*od %r4,%r5,%r6
+ sub,tsv,*tr %r4,%r5,%r6
+ sub,tsv,*<> %r4,%r5,%r6
+ sub,tsv,*>= %r4,%r5,%r6
+ sub,tsv,*> %r4,%r5,%r6
+ sub,tsv,*>>= %r4,%r5,%r6
+ sub,tsv,*>> %r4,%r5,%r6
+ sub,tsv,*nsv %r4,%r5,%r6
+ sub,tsv,*ev %r4,%r5,%r6
+
+ sub,db,* %r4,%r5,%r6
+ sub,db,*= %r4,%r5,%r6
+ sub,db,*< %r4,%r5,%r6
+ sub,db,*<= %r4,%r5,%r6
+ sub,db,*<< %r4,%r5,%r6
+ sub,db,*<<= %r4,%r5,%r6
+ sub,db,*sv %r4,%r5,%r6
+ sub,db,*od %r4,%r5,%r6
+ sub,db,*tr %r4,%r5,%r6
+ sub,db,*<> %r4,%r5,%r6
+ sub,db,*>= %r4,%r5,%r6
+ sub,db,*> %r4,%r5,%r6
+ sub,db,*>>= %r4,%r5,%r6
+ sub,db,*>> %r4,%r5,%r6
+ sub,db,*nsv %r4,%r5,%r6
+ sub,db,*ev %r4,%r5,%r6
+
+ sub,db,tsv,* %r4,%r5,%r6
+ sub,db,tsv,*= %r4,%r5,%r6
+ sub,db,tsv,*< %r4,%r5,%r6
+ sub,db,tsv,*<= %r4,%r5,%r6
+ sub,db,tsv,*<< %r4,%r5,%r6
+ sub,db,tsv,*<<= %r4,%r5,%r6
+ sub,db,tsv,*sv %r4,%r5,%r6
+ sub,db,tsv,*od %r4,%r5,%r6
+ sub,tsv,db,*tr %r4,%r5,%r6
+ sub,tsv,db,*<> %r4,%r5,%r6
+ sub,tsv,db,*>= %r4,%r5,%r6
+ sub,tsv,db,*> %r4,%r5,%r6
+ sub,tsv,db,*>>= %r4,%r5,%r6
+ sub,tsv,db,*>> %r4,%r5,%r6
+ sub,tsv,db,*nsv %r4,%r5,%r6
+ sub,tsv,db,*ev %r4,%r5,%r6
+
+ sub,tc,* %r4,%r5,%r6
+ sub,tc,*= %r4,%r5,%r6
+ sub,tc,*< %r4,%r5,%r6
+ sub,tc,*<= %r4,%r5,%r6
+ sub,tc,*<< %r4,%r5,%r6
+ sub,tc,*<<= %r4,%r5,%r6
+ sub,tc,*sv %r4,%r5,%r6
+ sub,tc,*od %r4,%r5,%r6
+ sub,tc,*tr %r4,%r5,%r6
+ sub,tc,*<> %r4,%r5,%r6
+ sub,tc,*>= %r4,%r5,%r6
+ sub,tc,*> %r4,%r5,%r6
+ sub,tc,*>>= %r4,%r5,%r6
+ sub,tc,*>> %r4,%r5,%r6
+ sub,tc,*nsv %r4,%r5,%r6
+ sub,tc,*ev %r4,%r5,%r6
+
+ sub,tc,tsv,* %r4,%r5,%r6
+ sub,tc,tsv,*= %r4,%r5,%r6
+ sub,tc,tsv,*< %r4,%r5,%r6
+ sub,tc,tsv,*<= %r4,%r5,%r6
+ sub,tc,tsv,*<< %r4,%r5,%r6
+ sub,tc,tsv,*<<= %r4,%r5,%r6
+ sub,tc,tsv,*sv %r4,%r5,%r6
+ sub,tc,tsv,*od %r4,%r5,%r6
+ sub,tsv,tc,*tr %r4,%r5,%r6
+ sub,tsv,tc,*<> %r4,%r5,%r6
+ sub,tsv,tc,*>= %r4,%r5,%r6
+ sub,tsv,tc,*> %r4,%r5,%r6
+ sub,tsv,tc,*>>= %r4,%r5,%r6
+ sub,tsv,tc,*>> %r4,%r5,%r6
+ sub,tsv,tc,*nsv %r4,%r5,%r6
+ sub,tsv,tc,*ev %r4,%r5,%r6
diff --git a/gas/testsuite/gas/hppa/basic/subi.s b/gas/testsuite/gas/hppa/basic/subi.s
index 063267c..c7b8fab 100644
--- a/gas/testsuite/gas/hppa/basic/subi.s
+++ b/gas/testsuite/gas/hppa/basic/subi.s
@@ -47,3 +47,20 @@
subio,>> 123,%r5,%r6
subio,nsv 123,%r5,%r6
subio,ev 123,%r5,%r6
+
+ subi,tsv 123,%r5,%r6
+ subi,tsv,= 123,%r5,%r6
+ subi,tsv,< 123,%r5,%r6
+ subi,tsv,<= 123,%r5,%r6
+ subi,tsv,<< 123,%r5,%r6
+ subi,tsv,<<= 123,%r5,%r6
+ subi,tsv,sv 123,%r5,%r6
+ subi,tsv,od 123,%r5,%r6
+ subi,tsv,tr 123,%r5,%r6
+ subi,tsv,<> 123,%r5,%r6
+ subi,tsv,>= 123,%r5,%r6
+ subi,tsv,> 123,%r5,%r6
+ subi,tsv,>>= 123,%r5,%r6
+ subi,tsv,>> 123,%r5,%r6
+ subi,tsv,nsv 123,%r5,%r6
+ subi,tsv,ev 123,%r5,%r6
diff --git a/gas/testsuite/gas/hppa/basic/system2.s b/gas/testsuite/gas/hppa/basic/system2.s
new file mode 100644
index 0000000..0562b92
--- /dev/null
+++ b/gas/testsuite/gas/hppa/basic/system2.s
@@ -0,0 +1,28 @@
+ .LEVEL 2.0
+ .SPACE $PRIVATE$
+ .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+ .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+ .SPACE $TEXT$
+ .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+ .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+ .SPACE $TEXT$
+ .SUBSPA $CODE$
+
+ .align 4
+; PA2.0 system instruction tests.
+;
+; We could/should test some of the corner cases for register and
+; immediate fields. We should also check the assorted field
+; selectors to make sure they're handled correctly.
+ rfi
+ rfi,r
+ ssm 923,%r4
+ rsm 923,%r4
+ mfctl,w %cr11,%r4
+
+ probe,r (%sr0,%r5),%r6,%r7
+ probei,r (%sr0,%r5),1,%r7
+ probe,w (%sr0,%r5),%r6,%r7
+ probei,w (%sr0,%r5),1,%r7
+
diff --git a/gas/testsuite/gas/hppa/basic/unit.s b/gas/testsuite/gas/hppa/basic/unit.s
index b69b10e..df155de 100644
--- a/gas/testsuite/gas/hppa/basic/unit.s
+++ b/gas/testsuite/gas/hppa/basic/unit.s
@@ -9,7 +9,7 @@
.SUBSPA $CODE$
.align 4
-; Basic immediate instruction tests.
+; Basic unit instruction tests.
;
; We could/should test some of the corner cases for register and
; immediate fields. We should also check the assorted field
@@ -53,3 +53,16 @@
uaddcmt,ndc %r4,%r5,%r6
uaddcmt,nbc %r4,%r5,%r6
uaddcmt,nhc %r4,%r5,%r6
+
+ uaddcm,tc %r4,%r5,%r6
+ uaddcm,tc,sbz %r4,%r5,%r6
+ uaddcm,tc,shz %r4,%r5,%r6
+ uaddcm,tc,sdc %r4,%r5,%r6
+ uaddcm,tc,sbc %r4,%r5,%r6
+ uaddcm,tc,shc %r4,%r5,%r6
+ uaddcm,tc,tr %r4,%r5,%r6
+ uaddcm,tc,nbz %r4,%r5,%r6
+ uaddcm,tc,nhz %r4,%r5,%r6
+ uaddcm,tc,ndc %r4,%r5,%r6
+ uaddcm,tc,nbc %r4,%r5,%r6
+ uaddcm,tc,nhc %r4,%r5,%r6
diff --git a/gas/testsuite/gas/hppa/basic/unit2.s b/gas/testsuite/gas/hppa/basic/unit2.s
new file mode 100644
index 0000000..e5a80d0
--- /dev/null
+++ b/gas/testsuite/gas/hppa/basic/unit2.s
@@ -0,0 +1,56 @@
+ .LEVEL 2.0
+ .SPACE $PRIVATE$
+ .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+ .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+ .SPACE $TEXT$
+ .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+ .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+ .SPACE $TEXT$
+ .SUBSPA $CODE$
+
+ .align 4
+; PA2.0 unit instruction tests.
+;
+; We could/should test some of the corner cases for register and
+; immediate fields. We should also check the assorted field
+; selectors to make sure they're handled correctly.
+
+ uxor,* %r4,%r5,%r6
+ uxor,*sbz %r4,%r5,%r6
+ uxor,*shz %r4,%r5,%r6
+ uxor,*sdc %r4,%r5,%r6
+ uxor,*sbc %r4,%r5,%r6
+ uxor,*shc %r4,%r5,%r6
+ uxor,*tr %r4,%r5,%r6
+ uxor,*nbz %r4,%r5,%r6
+ uxor,*nhz %r4,%r5,%r6
+ uxor,*ndc %r4,%r5,%r6
+ uxor,*nbc %r4,%r5,%r6
+ uxor,*nhc %r4,%r5,%r6
+
+ uaddcm,* %r4,%r5,%r6
+ uaddcm,*sbz %r4,%r5,%r6
+ uaddcm,*shz %r4,%r5,%r6
+ uaddcm,*sdc %r4,%r5,%r6
+ uaddcm,*sbc %r4,%r5,%r6
+ uaddcm,*shc %r4,%r5,%r6
+ uaddcm,*tr %r4,%r5,%r6
+ uaddcm,*nbz %r4,%r5,%r6
+ uaddcm,*nhz %r4,%r5,%r6
+ uaddcm,*ndc %r4,%r5,%r6
+ uaddcm,*nbc %r4,%r5,%r6
+ uaddcm,*nhc %r4,%r5,%r6
+
+ uaddcm,tc,* %r4,%r5,%r6
+ uaddcm,tc,*sbz %r4,%r5,%r6
+ uaddcm,tc,*shz %r4,%r5,%r6
+ uaddcm,tc,*sdc %r4,%r5,%r6
+ uaddcm,tc,*sbc %r4,%r5,%r6
+ uaddcm,tc,*shc %r4,%r5,%r6
+ uaddcm,tc,*tr %r4,%r5,%r6
+ uaddcm,tc,*nbz %r4,%r5,%r6
+ uaddcm,tc,*nhz %r4,%r5,%r6
+ uaddcm,tc,*ndc %r4,%r5,%r6
+ uaddcm,tc,*nbc %r4,%r5,%r6
+ uaddcm,tc,*nhc %r4,%r5,%r6