diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.disasm/hppa.exp | 80 |
2 files changed, 71 insertions, 15 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 3cc1df3..9057f02 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +Thu Feb 23 17:44:55 1995 Jeff Law (law@snake.cs.utah.edu) + + * gdb.disasm/hppa.s (fmemLRbug_tests): Add tests for the indexing + FP load/store variants. + * gdb.disasm/hppa.exp (fmemLRbug_tests): Test new variants. + Wed Feb 22 18:29:08 1995 Jim Kingdon <kingdon@rtl.cygnus.com> * gdb.base/term.exp: Do not give a warning if not native, it is diff --git a/gdb/testsuite/gdb.disasm/hppa.exp b/gdb/testsuite/gdb.disasm/hppa.exp index 552a05d..e2b7ef7 100644 --- a/gdb/testsuite/gdb.disasm/hppa.exp +++ b/gdb/testsuite/gdb.disasm/hppa.exp @@ -1078,15 +1078,11 @@ proc all_fpu_comparison_tests { } { global prompt global hex global decimal - global timeout - - set oldtimeout $timeout - set timeout 30 set fpu_comparison_formats [list {sgl} {dbl} {quad} ] foreach i $fpu_comparison_formats { - send "x/16i fcmp_$i"; send "_tests_1\n" + send "x/8i fcmp_$i"; send "_tests_1\n" expect { -re ".* .*fcmp,$i,false\\? fr4,fr5.* @@ -1097,6 +1093,14 @@ proc all_fpu_comparison_tests { } { .*fcmp,$i,=t fr4,fr5.* .*fcmp,$i,\\?= fr4,fr5.* .*fcmp,$i,!<> fr4,fr5.* +.*$prompt $" { pass "$i tests (part1) " } + -re "$prompt $" { fail "fcmp_$i tests (part1) " } + timeout { fail "(timeout) fcmp_$i tests (part1) " } + } + + send "x/8i fcmp_$i"; send "_tests_2\n" + expect { + -re ".* .*fcmp,$i,!\\?>= fr4,fr5.* .*fcmp,$i,< fr4,fr5.* .*fcmp,$i,\\?< fr4,fr5.* @@ -1105,12 +1109,12 @@ proc all_fpu_comparison_tests { } { .*fcmp,$i,<= fr4,fr5.* .*fcmp,$i,\\?<= fr4,fr5.* .*fcmp,$i,!> fr4,fr5.* -.*$prompt $" { pass "$i tests (part1) " } - -re "$prompt $" { fail "fcmp_$i tests (part1) " } - timeout { fail "(timeout) fcmp_$i tests (part1) " } +.*$prompt $" { pass "$i tests (part2) " } + -re "$prompt $" { fail "fcmp_$i tests (part2) " } + timeout { fail "(timeout) fcmp_$i tests (part2) " } } - send "x/16i fcmp_$i"; send "_tests_2\n" + send "x/8i fcmp_$i"; send "_tests_3\n" expect { -re ".* .*fcmp,$i,!\\?<= fr4,fr5.* @@ -1121,6 +1125,14 @@ proc all_fpu_comparison_tests { } { .*fcmp,$i,>= fr4,fr5.* .*fcmp,$i,\\?>= fr4,fr5.* .*fcmp,$i,!< fr4,fr5.* +.*$prompt $" { pass "$i tests (part3) " } + -re "$prompt $" { fail "fcmp_$i tests (part3) " } + timeout { fail "(timeout) fcmp_$i tests (part3) " } + } + + send "x/16i fcmp_$i"; send "_tests_4\n" + expect { + -re ".* .*fcmp,$i,!\\?= fr4,fr5.* .*fcmp,$i,<> fr4,fr5.* .*fcmp,$i,!= fr4,fr5.* @@ -1129,13 +1141,11 @@ proc all_fpu_comparison_tests { } { .*fcmp,$i,<=> fr4,fr5.* .*fcmp,$i,true\\? fr4,fr5.* .*fcmp,$i,true fr4,fr5.* -.*$prompt $" { pass "$i tests (part2) " } - -re "$prompt $" { fail "fcmp_$i tests (part2) " } - timeout { fail "(timeout) fcmp_$i tests (part2) " } +.*$prompt $" { pass "$i tests (part4) " } + -re "$prompt $" { fail "fcmp_$i tests (part4) " } + timeout { fail "(timeout) fcmp_$i tests (part4) " } } } - - set timeout $oldtimeout } proc all_special_tests { } { @@ -1288,7 +1298,7 @@ proc fmemLRbug_tests { } { timeout { fail "(timeout) fmem LR register selector tests (part1)" } } - send "x/12i fmemLRbug_tests_1\n" + send "x/12i fmemLRbug_tests_2\n" expect { -re ".* .*fstws fr6R,0\\(sr0,r26\\).* @@ -1307,6 +1317,46 @@ proc fmemLRbug_tests { } { -re "$prompt $" { fail "fmem LR register selector tests (part2)" } timeout { fail "(timeout) fmem LR register selector tests (part2)" } } + + send "x/12i fmemLRbug_tests_3\n" + expect { + -re ".* +.*fstwx fr6R,r25\\(sr0,r26\\).* +.*fstwx fr6,r25\\(sr0,r26\\).* +.*fstwx fr6,r25\\(sr0,r26\\).* +.*fstdx fr6,r25\\(sr0,r26\\).* +.*fstdx fr6,r25\\(sr0,r26\\).* +.*fstdx fr6,r25\\(sr0,r26\\).* +.*fldwx r25\\(sr0,r26\\),fr6R.* +.*fldwx r25\\(sr0,r26\\),fr6.* +.*fldwx r25\\(sr0,r26\\),fr6.* +.*flddx r25\\(sr0,r26\\),fr6.* +.*flddx r25\\(sr0,r26\\),fr6.* +.*flddx r25\\(sr0,r26\\),fr6.* +.*$prompt $" { pass "fmem LR register selector tests (part3)" } + -re "$prompt $" { fail "fmem LR register selector tests (part3)" } + timeout { fail "(timeout) fmem LR register selector tests (part3)" } + } + + send "x/12i fmemLRbug_tests_4\n" + expect { + -re ".* +.*fstwx fr6R,r25\\(sr0,r26\\).* +.*fstwx fr6,r25\\(sr0,r26\\).* +.*fstwx fr6,r25\\(sr0,r26\\).* +.*fstdx fr6,r25\\(sr0,r26\\).* +.*fstdx fr6,r25\\(sr0,r26\\).* +.*fstdx fr6,r25\\(sr0,r26\\).* +.*fldwx r25\\(sr0,r26\\),fr6R.* +.*fldwx r25\\(sr0,r26\\),fr6.* +.*fldwx r25\\(sr0,r26\\),fr6.* +.*flddx r25\\(sr0,r26\\),fr6.* +.*flddx r25\\(sr0,r26\\),fr6.* +.*flddx r25\\(sr0,r26\\),fr6.* +.*$prompt $" { pass "fmem LR register selector tests (part4)" } + -re "$prompt $" { fail "fmem LR register selector tests (part4)" } + timeout { fail "(timeout) fmem LR register selector tests (part4)" } + } } if ![file exists $objdir/$subdir/$binfile] then { |