aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
authorJeff Law <law@redhat.com>1994-02-05 07:46:20 +0000
committerJeff Law <law@redhat.com>1994-02-05 07:46:20 +0000
commit6b4eae930cb9dbd296e96e07f43926dfa49469db (patch)
treea6f7071304d89fa2bc018fa67181cff532724b8f /gdb
parent881405be611595607b562bee4566217b76fa18b0 (diff)
downloadgdb-6b4eae930cb9dbd296e96e07f43926dfa49469db.zip
gdb-6b4eae930cb9dbd296e96e07f43926dfa49469db.tar.gz
gdb-6b4eae930cb9dbd296e96e07f43926dfa49469db.tar.bz2
* gdb.disasm/hppa.exp (xmpyu_tests): Fix buglet in expect
string. No longer expected to fail.
Diffstat (limited to 'gdb')
-rw-r--r--gdb/testsuite/ChangeLog5
-rw-r--r--gdb/testsuite/gdb.disasm/hppa.exp150
2 files changed, 135 insertions, 20 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 1ff90a7..d2cb986 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Fri Feb 4 23:45:11 1994 Jeffrey A. Law (law@snake.cs.utah.edu)
+
+ * gdb.disasm/hppa.exp (xmpyu_tests): Fix buglet in expect
+ string. No longer expected to fail.
+
Fri Feb 4 10:35:42 1994 Jim Kingdon (kingdon@lioth.cygnus.com)
* gdb.t24/demangle.exp: Remove a bunch more tests which differ
diff --git a/gdb/testsuite/gdb.disasm/hppa.exp b/gdb/testsuite/gdb.disasm/hppa.exp
index c3d790a..3ab5411 100644
--- a/gdb/testsuite/gdb.disasm/hppa.exp
+++ b/gdb/testsuite/gdb.disasm/hppa.exp
@@ -29,11 +29,6 @@ set bug_id 0
set binfile "hppa"
set srcfile $binfile.s
-if ![file exists $objdir/$subdir/$binfile] then {
- error "$objdir/$subdir/$binfile does not exist."
- continue
-}
-
proc all_integer_memory_tests { } {
global prompt
global hex
@@ -868,7 +863,7 @@ proc all_fpu_memory_tests { } {
global hex
global decimal
- send "x/16i fpu_memory_indexing_tests\n"
+ send "x/20i fpu_memory_indexing_tests\n"
expect {
-re ".*
.*fldwx r4\(sr0,r5\),fr6\r\n\
@@ -887,12 +882,16 @@ proc all_fpu_memory_tests { } {
.*fstdx,s fr6,r4\(sr0,r5\)\r\n\
.*fstdx,m fr6,r4\(sr0,r5\)\r\n\
.*fstdx,sm fr6,r4\(sr0,r5\)\r\n\
+.*fstqx fr6,r4\(sr0,r5\)\r\n\
+.*fstqx,s fr6,r4\(sr0,r5\)\r\n\
+.*fstqx,m fr6,r4\(sr0,r5\)\r\n\
+.*fstqx,sm fr6,r4\(sr0,r5\)\r\n\
.*$prompt $" { pass "fpu_memory_indexing_tests" }
-re "$prompt $" { fail "fpu_memory_indexing_tests" }
timeout { file "(timeout) fpu_memory_indexing_tests" }
}
- send "x/12i fpu_short_memory_tests\n"
+ send "x/15i fpu_short_memory_tests\n"
expect {
-re ".*
.*fldws 0\(sr0,r5\),fr6\r\n\
@@ -907,6 +906,9 @@ proc all_fpu_memory_tests { } {
.*fstds fr6,0\(sr0,r5\)\r\n\
.*fstds,mb fr6,0\(sr0,r5\)\r\n\
.*fstds,ma fr6,0\(sr0,r5\)\r\n\
+.*fstqs fr6,0\(sr0,r5\)\r\n\
+.*fstqs,mb fr6,0\(sr0,r5\)\r\n\
+.*fstqs,ma fr6,0\(sr0,r5\)\r\n\
.*$prompt $" { pass "fpu_short_memory_tests" }
-re "$prompt $" { fail "fpu_short_memory_tests" }
timeout { file "(timeout) fpu_short_memory_tests" }
@@ -919,12 +921,9 @@ proc all_fpu_computational_tests { } {
global hex
global decimal
- # Fails due to space between copr and ",".
- setup_xfail "hppa*-*-*"
- send "x/2i fpu_misc_tests\n"
+ send "x/1i fpu_misc_tests\n"
expect {
-re ".*
-.*copr,0,0\r\n\
.*ftest\r\n\
.*$prompt $" { pass "fpu_misc_tests" }
-re "$prompt $" { fail "fpu_misc_tests" }
@@ -1010,12 +1009,10 @@ proc all_fpu_computational_tests { } {
timeout { fail "(timeout) fmpy_addsub_tests" }
}
- # fails because it should not print a format
- setup_xfail hppa*-*-*
send "x/i xmpyu_tests\n"
expect {
-re ".*
-.*xmpyu fr4,fr5,fr6
+.*xmpyu fr4,fr5,fr6\r\n\
.*$prompt $" {pass "xmpyu_tests" }
-re "$prompt $" {fail "xmpyu_tests" }
timeout { fail "(timeout) xmpyu_tests" }
@@ -1094,14 +1091,124 @@ proc all_special_tests { } {
}
-# Start with a fresh gdb.
+proc all_sfu_tests { } {
+ global prompt
+ global hex
+ global decimal
+
+ send "x/16i sfu_tests\n"
+ expect {
+ -re ".*
+.*spop0,4,5\r\n\
+.*spop0,4,73\r\n\
+.*spop0,4,5,n\r\n\
+.*spop0,4,73,n\r\n\
+.*spop1,4,5 r5\r\n\
+.*spop1,4,73 r5\r\n\
+.*spop1,4,5,n r5\r\n\
+.*spop1,4,73,n r5\r\n\
+.*spop2,4,5 r5\r\n\
+.*spop2,4,73 r5\r\n\
+.*spop2,4,5,n r5\r\n\
+.*spop2,4,73,n r5\r\n\
+.*spop3,4,5 r5,r6\r\n\
+.*spop3,4,73 r5,r6\r\n\
+.*spop3,4,5,n r5,r6\r\n\
+.*spop3,4,73,n r5,r6\r\n\
+.*$prompt $" { pass "sfu tests" }
+ -re "$prompt $" { fail "sfu tests" }
+ timeout { fail "(timeout) sfu tests " }
+ }
+}
+
+proc all_copr_tests { } {
+ global prompt
+ global hex
+ global decimal
+
+ send "x/4i copr_tests\n"
+ expect {
+ -re ".*
+.*copr,4,5\r\n\
+.*copr,4,73\r\n\
+.*copr,4,5,n\r\n\
+.*copr,4,73,n\r\n\
+.*$prompt $" { pass "copr tests" }
+ -re "$prompt $" { fail "copr tests" }
+ timeout { fail "(timeout) copr tests " }
+ }
+}
+
+proc all_copr_mem_tests { } {
+ global prompt
+ global hex
+ global decimal
+
+ send "x/8i copr_indexing_load\n"
+ expect {
+ -re ".*
+.*cldwx,4 r5\(sr0,r4\),arg0\r\n\
+.*cldwx,4,s r5\(sr0,r4\),arg0\r\n\
+.*cldwx,4,m r5\(sr0,r4\),arg0\r\n\
+.*cldwx,4,sm r5\(sr0,r4\),arg0\r\n\
+.*clddx,4 r5\(sr0,r4\),arg0\r\n\
+.*clddx,4,s r5\(sr0,r4\),arg0\r\n\
+.*clddx,4,m r5\(sr0,r4\),arg0\r\n\
+.*clddx,4,sm r5\(sr0,r4\),arg0\r\n\
+.*$prompt $" { pass "copr indexed load tests" }
+ -re "$prompt $" { fail "copr indexed load tests" }
+ timeout { fail "(timeout) copr indexed load tests " }
+ }
+
+ send "x/8i copr_indexing_store\n"
+ expect {
+ -re ".*
+.*cstwx,4 arg0,r5\(sr0,r4\)\r\n\
+.*cstwx,4,s arg0,r5\(sr0,r4\)\r\n\
+.*cstwx,4,m arg0,r5\(sr0,r4\)\r\n\
+.*cstwx,4,sm arg0,r5\(sr0,r4\)\r\n\
+.*cstdx,4 arg0,r5\(sr0,r4\)\r\n\
+.*cstdx,4,s arg0,r5\(sr0,r4\)\r\n\
+.*cstdx,4,m arg0,r5\(sr0,r4\)\r\n\
+.*cstdx,4,sm arg0,r5\(sr0,r4\)\r\n\
+.*$prompt $" { pass "copr indexed store tests" }
+ -re "$prompt $" { fail "copr indexed store tests" }
+ timeout { fail "(timeout) copr indexed load tests " }
+ }
+
+ send "x/12i copr_short_memory\n"
+ expect {
+ -re ".*
+.*cldws,4 0\(sr0,r4\),arg0\r\n\
+.*cldws,4,mb 0\(sr0,r4\),arg0\r\n\
+.*cldws,4,ma 0\(sr0,r4\),arg0\r\n\
+.*cldds,4 0\(sr0,r4\),arg0\r\n\
+.*cldds,4,mb 0\(sr0,r4\),arg0\r\n\
+.*cldds,4,ma 0\(sr0,r4\),arg0\r\n\
+.*cstws,4 arg0,0\(sr0,r4\)\r\n\
+.*cstws,4,mb arg0,0\(sr0,r4\)\r\n\
+.*cstws,4,ma arg0,0\(sr0,r4\)\r\n\
+.*cstds,4 arg0,0\(sr0,r4\)\r\n\
+.*cstds,4,mb arg0,0\(sr0,r4\)\r\n\
+.*cstds,4,ma arg0,0\(sr0,r4\)\r\n\
+.*$prompt $" { pass "copr short memory tests" }
+ -re "$prompt $" { fail "copr short memory tests" }
+ timeout { fail "(timeout) copr short memory tests " }
+ }
+}
+
+if ![file exists $objdir/$subdir/$binfile] then {
+ if $all_flag then {
+ warning "$objdir/$subdir/$binfile does not exist; tests suppressed"
+ }
+} else {
+ # Start with a fresh gdb.
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-gdb_load $objdir/$subdir/$binfile
+ gdb_exit
+ gdb_start
+ gdb_reinitialize_dir $srcdir/$subdir
+ gdb_load $objdir/$subdir/$binfile
-if [istarget "hppa*-*-*"] then {
all_integer_memory_tests
all_immediate_tests
all_branch_tests
@@ -1111,4 +1218,7 @@ if [istarget "hppa*-*-*"] then {
all_fpu_computational_tests
all_fpu_comparison_tests
all_special_tests
+ all_sfu_tests
+ all_copr_tests
+ all_copr_mem_tests
}