riscv
/
binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

* gas/hppa/basic/basic.exp (do_branch2,do_media): New. 

* gas/hppa/basic/branch2.s:  New.
        * gas/hppa/basic/media.s:  New.
gdb-premipsmulti-2000-06-06-branch
Jeff Law 27 years ago
parent
a97685e901
commit
be3f1865fb
4 changed files with 156 additions and 2 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 8
      gas/testsuite/ChangeLog
  2. 84
      gas/testsuite/gas/hppa/basic/basic.exp
  3. 41
      gas/testsuite/gas/hppa/basic/branch2.s
  4. 25
      gas/testsuite/gas/hppa/basic/media.s

8
gas/testsuite/ChangeLog
View File

@ -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>

84
gas/testsuite/gas/hppa/basic/basic.exp
View File

@ -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
}

41
gas/testsuite/gas/hppa/basic/branch2.s
View File

@ -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

25
gas/testsuite/gas/hppa/basic/media.s
View File

@ -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
Write Preview
Loading…
Cancel
Save