diff options
| -rw-r--r-- | gas/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gas/testsuite/gas/hppa/more.parse/.Sanitize | 1 | ||||
| -rwxr-xr-x | gas/testsuite/gas/hppa/more.parse/parse.exp | 3 | ||||
| -rw-r--r-- | gas/testsuite/gas/hppa/more.parse/regpopbug.s | 14 | ||||
| -rw-r--r-- | gas/testsuite/gas/hppa/parse/.Sanitize | 1 | ||||
| -rwxr-xr-x | gas/testsuite/gas/hppa/parse/parse.exp | 3 | ||||
| -rw-r--r-- | gas/testsuite/gas/hppa/parse/regpopbug.s | 14 |
7 files changed, 41 insertions, 0 deletions
diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index 5513c7d..78066bc 100644 --- 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 bb6ee7d..1661dcc 100644 --- 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 268ec69..f572c8f 100755 --- 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 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 bb6ee7d..1661dcc 100644 --- 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 268ec69..f572c8f 100755 --- 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 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 |