* gas/hppa/basic/basic.exp (do_branch2,do_media): New.
* gas/hppa/basic/branch2.s: New.
* gas/hppa/basic/media.s: New.
This commit is contained in:
Jeff Law
parent
a97685e901
commit
be3f1865fb
|
|
@ -1,7 +1,11 @@
|
|||
Sat Aug 28 00:16:12 1999 Jerry Quinn <jquinn@nortelnetworks.com>
|
||||
|
||||
* gas/testsuite/gas/hppa/basic/basic.exp (do_fp_comp2): New.
|
||||
* gas/testsuite/gas/hppa/basic/fp_comp2.s: New.
|
||||
* gas/hppa/basic/basic.exp (do_branch2,do_media): New.
|
||||
* gas/hppa/basic/branch2.s: New.
|
||||
* gas/hppa/basic/media.s: New.
|
||||
|
||||
* gas/hppa/basic/basic.exp (do_fp_comp2): New.
|
||||
* gas/hppa/basic/fp_comp2.s: New.
|
||||
|
||||
1999-08-20 Alan Modra <alan@spri.levels.unisa.edu.au>
|
||||
|
||||
|
|
|
|||
|
|
@ -359,6 +359,52 @@ proc do_branch {} {
|
|||
if [expr $x==183] then { pass $testname } else { fail $testname }
|
||||
}
|
||||
|
||||
proc do_branch2 {} {
|
||||
set testname "branch2.s: branch tests"
|
||||
set x 0
|
||||
|
||||
gas_start "branch2.s" "-al"
|
||||
|
||||
# Check the assembled instruction against a table built by the HP assembler
|
||||
# Any differences should be checked by hand -- with the number of problems
|
||||
# I've seen in the HP assembler I don't completely trust it.
|
||||
#
|
||||
# Instead of having a variable for each match string just increment the
|
||||
# total number of matches seen. That's simpler when testing large numbers
|
||||
# of instructions (as these tests to).
|
||||
while 1 {
|
||||
expect {
|
||||
-re "^ +\[0-9\]+ 0000 C0045FF5\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0004 C004DFED\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0008 C0045FE7\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 000c C004DFDF\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0010 C0047FD5\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0014 C004FFCD\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0018 C0047FC7\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 001c C004FFBF\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0020 C4A47FB5\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0024 C4A4FFAD\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0028 C4A47FA7\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 002c C4A4FF9F\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0030 E8004005\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0034 E800400D\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0038 E8004F9D\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 003c E8004001\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0040 E8044001\[^\n\]*\n" { set x [expr $x+1] }
|
||||
-re "\[^\n\]*\n" { }
|
||||
timeout { perror "timeout\n"; break }
|
||||
eof { break }
|
||||
}
|
||||
}
|
||||
|
||||
# This was intended to do any cleanup necessary. It kinda looks like it
|
||||
# isn't needed, but just in case, please keep it in for now.
|
||||
gas_finish
|
||||
|
||||
# Did we find what we were looking for? If not, flunk it.
|
||||
if [expr $x==17] then { pass $testname } else { fail $testname }
|
||||
}
|
||||
|
||||
proc do_add {} {
|
||||
set testname "add.s: add tests"
|
||||
set x 0
|
||||
|
|
@ -2025,6 +2071,42 @@ proc do_fp_fcmp {} {
|
|||
if [expr $x==96] then { pass $testname } else { fail $testname }
|
||||
}
|
||||
|
||||
proc do_media {} {
|
||||
set testname "media.s: purge tests"
|
||||
set x 0
|
||||
|
||||
gas_start "media.s" "-al"
|
||||
|
||||
# Check the assembled instruction against a table built by the HP assembler
|
||||
# Any differences should be checked by hand -- with the number of problems
|
||||
# I've seen in the HP assembler I don't completely trust it.
|
||||
#
|
||||
# Instead of having a variable for each match string just increment the
|
||||
# total number of matches seen. That's simpler when testing large numbers
|
||||
# of instructions (as these tests to).
|
||||
while 1 {
|
||||
expect {
|
||||
-re "^ +\[0-9\]+ 0000 096702CC\[^\n]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0004 0967074C\[^\n]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0008 0967078C\[^\n]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 000c 096707CC\[^\n]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0010 0967054C\[^\n]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0014 0967058C\[^\n]*\n" { set x [expr $x+1] }
|
||||
-re "^ +\[0-9\]+ 0014 096705CC\[^\n]*\n" { set x [expr $x+1] }
|
||||
-re "\[^\n\]*\n" { }
|
||||
timeout { perror "timeout\n"; break }
|
||||
eof { break }
|
||||
}
|
||||
}
|
||||
|
||||
# This was intended to do any cleanup necessary. It kinda looks like it
|
||||
# isn't needed, but just in case, please keep it in for now.
|
||||
gas_finish
|
||||
|
||||
# Did we find what we were looking for? If not, flunk it.
|
||||
if [expr $x==18] then { pass $testname } else { fail $testname }
|
||||
}
|
||||
|
||||
proc do_special {} {
|
||||
set testname "special.s: special tests"
|
||||
set x 0
|
||||
|
|
@ -2309,4 +2391,6 @@ if [istarget hppa*-*-*] then {
|
|||
|
||||
# PA2.0 tests
|
||||
do_fp_comp2
|
||||
do_branch2
|
||||
do_media
|
||||
}
|
||||
|
|
|
|||
|
|
@ -0,0 +1,41 @@
|
|||
.LEVEL 2.0
|
||||
.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
|
||||
; More branching instructions than you ever knew what to do with.
|
||||
; PA 2.0 versions and new syntax.
|
||||
|
||||
;
|
||||
; We could/should test some of the corner cases for register and
|
||||
; immediate fields. We should also check the assorted field
|
||||
; selectors to make sure they're handled correctly.
|
||||
|
||||
bb_tests:
|
||||
bb,< %r4,%sar,bb_tests
|
||||
bb,>= %r4,%sar,bb_tests
|
||||
bb,<,n %r4,%cr11,bb_tests
|
||||
bb,>=,n %r4,%cr11,bb_tests
|
||||
bb,*< %r4,%sar,bb_tests
|
||||
bb,*>= %r4,%sar,bb_tests
|
||||
bb,*<,n %r4,%cr11,bb_tests
|
||||
bb,*>=,n %r4,%cr11,bb_tests
|
||||
bb,*< %r4,5,bb_tests
|
||||
bb,*>= %r4,5,bb_tests
|
||||
bb,*<,n %r4,5,bb_tests
|
||||
bb,*>=,n %r4,5,bb_tests
|
||||
|
||||
branch_stack:
|
||||
clrbts
|
||||
popbts 1
|
||||
popbts 499
|
||||
pushnom
|
||||
pushbts %r4
|
||||
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
.LEVEL 2.0
|
||||
.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
|
||||
; PA2.0 multimedia (halfword) instruction tests
|
||||
;
|
||||
; We could/should test some of the corner cases for register and
|
||||
; immediate fields. We should also check the assorted field
|
||||
; selectors to make sure they're handled correctly.
|
||||
|
||||
havg %r7,%r11,%r12
|
||||
hshladd %r7,1,%r11,%r12
|
||||
hshladd %r7,2,%r11,%r12
|
||||
hshladd %r7,3,%r11,%r12
|
||||
hshradd %r7,1,%r11,%r12
|
||||
hshradd %r7,2,%r11,%r12
|
||||
hshradd %r7,3,%r11,%r12
|
||||
Loading…
Reference in New Issue