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

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

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 5513c7dbfc4bec37468f495072ff078ee4d29131..78066bcc88fc8f90337adf7283ecf98a9b72a13f 100644 (file)
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Wed Mar 16 11:57:07 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
+
+       * gas/hppa/more.parse/regpopbug.s: New test.
+       * gas/hppa/more.parse/parse.exp: Run it.
+
 Mon Feb 28 14:10:04 1994  Ken Raeburn  (raeburn@cujo.cygnus.com)
 
        * lib/gas-defs.exp (objdump): New proc.

diff --git a/gas/testsuite/gas/hppa/more.parse/.Sanitize b/gas/testsuite/gas/hppa/more.parse/.Sanitize
index bb6ee7d69f7b051035ec158704c4ad5e8900c8a4..1661dcc23d0326a1319102939f71a92cb480e59f 100644 (file)
--- a/gas/testsuite/gas/hppa/more.parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/more.parse/.Sanitize
@@ -44,6 +44,7 @@ lselbug.s
 nosubspace.s
 parse.exp
 procbug.s
+regpopbug.s
 spacebug.s
 ssbug.s
 stdreg.s

diff --git a/gas/testsuite/gas/hppa/more.parse/parse.exp b/gas/testsuite/gas/hppa/more.parse/parse.exp
index 268ec69c260b0fd964e5920f1dd7edde8012c8b1..f572c8f8b1242aa427708c83a459c7a1780a1b2e 100755 (executable)
--- a/gas/testsuite/gas/hppa/more.parse/parse.exp
+++ b/gas/testsuite/gas/hppa/more.parse/parse.exp
@@ -209,5 +209,8 @@ if [istarget hppa*-*-*] then {
     # 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"
+
+    # Make sure gas handles various kinds of .reg pseudo-ops
+    gas_test "regpopbug.s" "" "" "Test for bugs in .reg pseudo-op"
 }
 

diff --git a/gas/testsuite/gas/hppa/more.parse/regpopbug.s b/gas/testsuite/gas/hppa/more.parse/regpopbug.s
new file mode 100644 (file)
index 0000000..dd442f9
--- /dev/null
+++ b/gas/testsuite/gas/hppa/more.parse/regpopbug.s
@@ -0,0 +1,14 @@
+       .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$
+
+r0     .reg    %r0
+shift  .reg    %sar
+fpreg10        .reg    %fr10
+shift2 .reg    shift

diff --git a/gas/testsuite/gas/hppa/parse/.Sanitize b/gas/testsuite/gas/hppa/parse/.Sanitize
index bb6ee7d69f7b051035ec158704c4ad5e8900c8a4..1661dcc23d0326a1319102939f71a92cb480e59f 100644 (file)
--- a/gas/testsuite/gas/hppa/parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/parse/.Sanitize
@@ -44,6 +44,7 @@ lselbug.s
 nosubspace.s
 parse.exp
 procbug.s
+regpopbug.s
 spacebug.s
 ssbug.s
 stdreg.s

diff --git a/gas/testsuite/gas/hppa/parse/parse.exp b/gas/testsuite/gas/hppa/parse/parse.exp
index 268ec69c260b0fd964e5920f1dd7edde8012c8b1..f572c8f8b1242aa427708c83a459c7a1780a1b2e 100755 (executable)
--- a/gas/testsuite/gas/hppa/parse/parse.exp
+++ b/gas/testsuite/gas/hppa/parse/parse.exp
@@ -209,5 +209,8 @@ if [istarget hppa*-*-*] then {
     # 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"
+
+    # Make sure gas handles various kinds of .reg pseudo-ops
+    gas_test "regpopbug.s" "" "" "Test for bugs in .reg pseudo-op"
 }
 

diff --git a/gas/testsuite/gas/hppa/parse/regpopbug.s b/gas/testsuite/gas/hppa/parse/regpopbug.s
new file mode 100644 (file)
index 0000000..dd442f9
--- /dev/null
+++ b/gas/testsuite/gas/hppa/parse/regpopbug.s
@@ -0,0 +1,14 @@
+       .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$
+
+r0     .reg    %r0
+shift  .reg    %sar
+fpreg10        .reg    %fr10
+shift2 .reg    shift