diff options
Diffstat (limited to 'gas')
| -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 | 4 | ||||
| -rw-r--r-- | gas/testsuite/gas/hppa/more.parse/xmpyubug.s | 17 | ||||
| -rw-r--r-- | gas/testsuite/gas/hppa/parse/.Sanitize | 1 | ||||
| -rwxr-xr-x | gas/testsuite/gas/hppa/parse/parse.exp | 4 | ||||
| -rw-r--r-- | gas/testsuite/gas/hppa/parse/xmpyubug.s | 17 |
7 files changed, 49 insertions, 0 deletions
diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index 803816b..5387173 100644 --- 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 --- 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 --- 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 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 --- 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 --- 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 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 + + |