* gas/hppa/more.parse/xmpyubug.s: New test.

        * gas/hppa/more.parse/parse.exp: Run it.

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 803816b..5387173 100644 (file)
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Fri Feb  4 23:42:14 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
+
+       * gas/hppa/more.parse/xmpyubug.s: New test.
+       * gas/hppa/more.parse/parse.exp: Run it.
+
 Fri Feb  4 17:13:20 1994  Ken Raeburn  (raeburn@cujo.cygnus.com)
 
        * lib/gas-defs.exp (regexp_diff): New procedure, vaguely based on

diff --git a/gas/testsuite/gas/hppa/more.parse/.Sanitize b/gas/testsuite/gas/hppa/more.parse/.Sanitize
index 2b7f3a4..bb6ee7d 100644 (file)
--- a/gas/testsuite/gas/hppa/more.parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/more.parse/.Sanitize
@@ -50,6 +50,7 @@ stdreg.s
 stringer.s
 undefbug.s
 versionbug.s
+xmpyubug.s
 
 Things-to-lose:
 

diff --git a/gas/testsuite/gas/hppa/more.parse/parse.exp b/gas/testsuite/gas/hppa/more.parse/parse.exp
index 686e305..a0dd33b 100755 (executable)
--- a/gas/testsuite/gas/hppa/more.parse/parse.exp
+++ b/gas/testsuite/gas/hppa/more.parse/parse.exp
@@ -204,5 +204,9 @@ if [istarget hppa*-*-*] then {
 
     # Make sure we grok # line directives.
     gas_test "appbug.s" "" "" "Test acceptance of #line directives"
+
+    # Make sure we give errors if a floating point format is specified
+    # for an xmpyu instruction (integer multiple)
+    gas_test_error "xmpyubug.s" "" "Check for error on bogus argument to .block"
 }
 

diff --git a/gas/testsuite/gas/hppa/more.parse/xmpyubug.s b/gas/testsuite/gas/hppa/more.parse/xmpyubug.s
new file mode 100644 (file)
index 0000000..3ee7274
--- /dev/null
+++ b/gas/testsuite/gas/hppa/more.parse/xmpyubug.s
@@ -0,0 +1,17 @@
+       .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
+; No format selector for xmpyu!
+       xmpyu,sgl %fr4,%fr5,%fr6
+       xmpyu,dbl %fr4,%fr5,%fr6
+       xmpyu,quad %fr4,%fr5,%fr6
+
+

diff --git a/gas/testsuite/gas/hppa/parse/.Sanitize b/gas/testsuite/gas/hppa/parse/.Sanitize
index 2b7f3a4..bb6ee7d 100644 (file)
--- a/gas/testsuite/gas/hppa/parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/parse/.Sanitize
@@ -50,6 +50,7 @@ stdreg.s
 stringer.s
 undefbug.s
 versionbug.s
+xmpyubug.s
 
 Things-to-lose:
 

diff --git a/gas/testsuite/gas/hppa/parse/parse.exp b/gas/testsuite/gas/hppa/parse/parse.exp
index 686e305..a0dd33b 100755 (executable)
--- a/gas/testsuite/gas/hppa/parse/parse.exp
+++ b/gas/testsuite/gas/hppa/parse/parse.exp
@@ -204,5 +204,9 @@ if [istarget hppa*-*-*] then {
 
     # Make sure we grok # line directives.
     gas_test "appbug.s" "" "" "Test acceptance of #line directives"
+
+    # Make sure we give errors if a floating point format is specified
+    # for an xmpyu instruction (integer multiple)
+    gas_test_error "xmpyubug.s" "" "Check for error on bogus argument to .block"
 }
 

diff --git a/gas/testsuite/gas/hppa/parse/xmpyubug.s b/gas/testsuite/gas/hppa/parse/xmpyubug.s
new file mode 100644 (file)
index 0000000..3ee7274
--- /dev/null
+++ b/gas/testsuite/gas/hppa/parse/xmpyubug.s
@@ -0,0 +1,17 @@
+       .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
+; No format selector for xmpyu!
+       xmpyu,sgl %fr4,%fr5,%fr6
+       xmpyu,dbl %fr4,%fr5,%fr6
+       xmpyu,quad %fr4,%fr5,%fr6
+
+