* gdb.disasm/hppa.s (fmemLRbug_tests): Add tests for the indexing

FP load/store variants.
	* gdb.disasm/hppa.exp (fmemLRbug_tests): Test new variants.
This commit is contained in:
Jeff Law 1995-02-24 00:47:29 +00:00
parent 292210add5
commit b5f105b7eb
2 changed files with 71 additions and 15 deletions

View File

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

View File

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