* gas/hppa/more.parse/xmpyubug.s: New test.
* gas/hppa/more.parse/parse.exp: Run it.
This commit is contained in:
parent
9dd7d585d6
commit
4fc3b3b493
@ -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
|
||||
|
@ -50,6 +50,7 @@ stdreg.s
|
||||
stringer.s
|
||||
undefbug.s
|
||||
versionbug.s
|
||||
xmpyubug.s
|
||||
|
||||
Things-to-lose:
|
||||
|
||||
|
@ -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"
|
||||
}
|
||||
|
||||
|
17
gas/testsuite/gas/hppa/more.parse/xmpyubug.s
Normal file
17
gas/testsuite/gas/hppa/more.parse/xmpyubug.s
Normal file
@ -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
|
||||
|
||||
|
@ -50,6 +50,7 @@ stdreg.s
|
||||
stringer.s
|
||||
undefbug.s
|
||||
versionbug.s
|
||||
xmpyubug.s
|
||||
|
||||
Things-to-lose:
|
||||
|
||||
|
@ -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"
|
||||
}
|
||||
|
||||
|
17
gas/testsuite/gas/hppa/parse/xmpyubug.s
Normal file
17
gas/testsuite/gas/hppa/parse/xmpyubug.s
Normal file
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user