From 3df8598e73c41b5dc5e3f5b71f331adbb2b699f8 Mon Sep 17 00:00:00 2001
From: Jeff Law <law@redhat.com>
Date: Mon, 17 Jan 1994 08:25:42 +0000
Subject: [PATCH]         * gas/hppa/basic/fp_misc.s: Delete copr instruction. 
 It's tested         elsewhere now.         * gas/hppa/basic/{copr, coprmem,
 spop}.s: New tests.         * gas/hppa/basic/basic.exp: Run them.

---
 gas/testsuite/ChangeLog                |  7 ++++++
 gas/testsuite/gas/hppa/basic/.Sanitize |  3 +++
 gas/testsuite/gas/hppa/basic/copr.s    | 19 ++++++++++++++
 gas/testsuite/gas/hppa/basic/spop.s    | 34 ++++++++++++++++++++++++++
 4 files changed, 63 insertions(+)
 create mode 100644 gas/testsuite/gas/hppa/basic/copr.s
 create mode 100644 gas/testsuite/gas/hppa/basic/spop.s

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 58ab7f9b387..9135d9c97ba 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+Mon Jan 17 00:25:03 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
+
+	* gas/hppa/basic/fp_misc.s: Delete copr instruction.  It's tested
+	elsewhere now.
+	* gas/hppa/basic/{copr, coprmem, spop}.s: New tests.
+	* gas/hppa/basic/basic.exp: Run them.
+
 Thu Jan 13 11:59:22 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
 
 	* gas/all/gas.exp: No longer expect difference of forward
diff --git a/gas/testsuite/gas/hppa/basic/.Sanitize b/gas/testsuite/gas/hppa/basic/.Sanitize
index f1ba750685e..821025ec61e 100644
--- a/gas/testsuite/gas/hppa/basic/.Sanitize
+++ b/gas/testsuite/gas/hppa/basic/.Sanitize
@@ -31,6 +31,8 @@ addi.s
 basic.exp
 branch.s
 comclr.s
+copr.s
+coprmem.s
 dcor.s
 deposit.s
 ds.s
@@ -49,6 +51,7 @@ sh2add.s
 sh3add.s
 shift.s
 special.s
+spop.s
 sub.s
 subi.s
 system.s
diff --git a/gas/testsuite/gas/hppa/basic/copr.s b/gas/testsuite/gas/hppa/basic/copr.s
new file mode 100644
index 00000000000..77cb6a271fa
--- /dev/null
+++ b/gas/testsuite/gas/hppa/basic/copr.s
@@ -0,0 +1,19 @@
+	.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
+; 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.
+copr_tests: 
+	copr,4,5
+	copr,4,115
+	copr,4,5,n
+	copr,4,115,n
diff --git a/gas/testsuite/gas/hppa/basic/spop.s b/gas/testsuite/gas/hppa/basic/spop.s
new file mode 100644
index 00000000000..7737312b68d
--- /dev/null
+++ b/gas/testsuite/gas/hppa/basic/spop.s
@@ -0,0 +1,34 @@
+	.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
+; 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.
+spop_tests: 
+	spop0,4,5
+	spop0,4,115
+	spop0,4,5,n
+	spop0,4,115,n
+	spop1,4,5 5
+	spop1,4,115 5
+	spop1,4,5,n 5
+	spop1,4,115,n 5
+	spop2,4,5 5
+	spop2,4,115 5
+	spop2,4,5,n 5
+	spop2,4,115,n 5
+	spop3,4,5 5,6
+	spop3,4,115 5,6
+	spop3,4,5,n 5,6
+	spop3,4,115,n 5,6
+
+; Gas fucks this up...  Thinks it has the expression 5 mod r5.
+;	spop1,4,5 %r5
-- 
2.30.2