* 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:
parent
292210add5
commit
b5f105b7eb
|
@ -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>
|
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
|
* gdb.base/term.exp: Do not give a warning if not native, it is
|
||||||
|
|
|
@ -1078,15 +1078,11 @@ proc all_fpu_comparison_tests { } {
|
||||||
global prompt
|
global prompt
|
||||||
global hex
|
global hex
|
||||||
global decimal
|
global decimal
|
||||||
global timeout
|
|
||||||
|
|
||||||
set oldtimeout $timeout
|
|
||||||
set timeout 30
|
|
||||||
|
|
||||||
set fpu_comparison_formats [list {sgl} {dbl} {quad} ]
|
set fpu_comparison_formats [list {sgl} {dbl} {quad} ]
|
||||||
|
|
||||||
foreach i $fpu_comparison_formats {
|
foreach i $fpu_comparison_formats {
|
||||||
send "x/16i fcmp_$i"; send "_tests_1\n"
|
send "x/8i fcmp_$i"; send "_tests_1\n"
|
||||||
expect {
|
expect {
|
||||||
-re ".*
|
-re ".*
|
||||||
.*fcmp,$i,false\\? fr4,fr5.*
|
.*fcmp,$i,false\\? fr4,fr5.*
|
||||||
|
@ -1097,6 +1093,14 @@ proc all_fpu_comparison_tests { } {
|
||||||
.*fcmp,$i,=t fr4,fr5.*
|
.*fcmp,$i,=t fr4,fr5.*
|
||||||
.*fcmp,$i,\\?= fr4,fr5.*
|
.*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) " }
|
||||||
|
}
|
||||||
|
|
||||||
|
send "x/8i fcmp_$i"; send "_tests_2\n"
|
||||||
|
expect {
|
||||||
|
-re ".*
|
||||||
.*fcmp,$i,!\\?>= fr4,fr5.*
|
.*fcmp,$i,!\\?>= fr4,fr5.*
|
||||||
.*fcmp,$i,< fr4,fr5.*
|
.*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.*
|
.*fcmp,$i,\\?<= fr4,fr5.*
|
||||||
.*fcmp,$i,!> fr4,fr5.*
|
.*fcmp,$i,!> fr4,fr5.*
|
||||||
.*$prompt $" { pass "$i tests (part1) " }
|
.*$prompt $" { pass "$i tests (part2) " }
|
||||||
-re "$prompt $" { fail "fcmp_$i tests (part1) " }
|
-re "$prompt $" { fail "fcmp_$i tests (part2) " }
|
||||||
timeout { fail "(timeout) fcmp_$i tests (part1) " }
|
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 {
|
expect {
|
||||||
-re ".*
|
-re ".*
|
||||||
.*fcmp,$i,!\\?<= fr4,fr5.*
|
.*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.*
|
.*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.*
|
.*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,<=> fr4,fr5.*
|
||||||
.*fcmp,$i,true\\? fr4,fr5.*
|
.*fcmp,$i,true\\? fr4,fr5.*
|
||||||
.*fcmp,$i,true fr4,fr5.*
|
.*fcmp,$i,true fr4,fr5.*
|
||||||
.*$prompt $" { pass "$i tests (part2) " }
|
.*$prompt $" { pass "$i tests (part4) " }
|
||||||
-re "$prompt $" { fail "fcmp_$i tests (part2) " }
|
-re "$prompt $" { fail "fcmp_$i tests (part4) " }
|
||||||
timeout { fail "(timeout) fcmp_$i tests (part2) " }
|
timeout { fail "(timeout) fcmp_$i tests (part4) " }
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
set timeout $oldtimeout
|
|
||||||
}
|
}
|
||||||
|
|
||||||
proc all_special_tests { } {
|
proc all_special_tests { } {
|
||||||
|
@ -1288,7 +1298,7 @@ proc fmemLRbug_tests { } {
|
||||||
timeout { fail "(timeout) fmem LR register selector tests (part1)" }
|
timeout { fail "(timeout) fmem LR register selector tests (part1)" }
|
||||||
}
|
}
|
||||||
|
|
||||||
send "x/12i fmemLRbug_tests_1\n"
|
send "x/12i fmemLRbug_tests_2\n"
|
||||||
expect {
|
expect {
|
||||||
-re ".*
|
-re ".*
|
||||||
.*fstws fr6R,0\\(sr0,r26\\).*
|
.*fstws fr6R,0\\(sr0,r26\\).*
|
||||||
|
@ -1307,6 +1317,46 @@ proc fmemLRbug_tests { } {
|
||||||
-re "$prompt $" { fail "fmem LR register selector tests (part2)" }
|
-re "$prompt $" { fail "fmem LR register selector tests (part2)" }
|
||||||
timeout { fail "(timeout) 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 {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
|
|
Loading…
Reference in New Issue