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

	FP load/store variants.
	* gdb.disasm/hppa.exp (fmemLRbug_tests): Test new variants.

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 {