aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite/gdb.reverse/i387-stack-reverse.exp')
-rw-r--r--gdb/testsuite/gdb.reverse/i387-stack-reverse.exp214
1 files changed, 105 insertions, 109 deletions
diff --git a/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp b/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp
index 9f8ff74..cadd4f7 100644
--- a/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp
@@ -16,7 +16,7 @@
# This file is part of the gdb testsuite.
-if ![istarget "i?86-*linux*"] then {
+if ![is_x86_like_target] then {
verbose "Skipping i387 reverse float tests."
return
}
@@ -48,112 +48,108 @@ gdb_test "until $location" ".*$srcfile:$location.*" \
"rewind to beginning of main"
gdb_test_no_output "set exec-dir forward" "set forward direction"
-# Test FPU stack. FPU stack includes st0, st1, st2, st3, st4,
-# st5, st6, st7. We push 8 values to FPU stack in record mode
-# and see whether all are getting recorded.
-
-set location [gdb_get_line_number "test st0 register"]
-gdb_test "until $location" ".*$srcfile:$location.*asm.*fld1.*" \
- "begin test st0"
-gdb_test "stepi" "asm.*fldl2t.*" "push st0 == 1"
-gdb_test "info register st0" "st0 *1\[ \t\]+.*" "verify st0 == 1"
-
-
-gdb_test "stepi" "asm.*fldl2e.*" "push st0 == 3.3219280948*"
-gdb_test "info register st0" "st0 *3.32192.*\[ \t\]+.*" "verify st0 == 3.321928094*"
-gdb_test "info register st1" "st1 *1\[ \t\]+.*" "verify st1 == 1"
-
-gdb_test "stepi" "asm.*fldpi.*" "push st0 == 1.4426950406*"
-gdb_test "info register st0" "st0 *1.44269.*\[ \t\]+.*" "verify st0 == 1.442695040*"
-gdb_test "info register st1" "st1 *3.32192.*\[ \t\]+.*" "verify st1 == 3.3219280948*"
-gdb_test "info register st2" "st2 *1\[ \t\]+.*" "verify st2 == 1"
-
-gdb_test "stepi" "asm.*fldlg2.*" "push st0 == 3.14159265*"
-gdb_test "info register st0" "st0 *3.14159.*\[ \t\]+.*" "verify st0 == 3.14159265*"
-gdb_test "info register st1" "st1 *1.44269.*\[ \t\]+.*" "verify st1 == 1.4426950*"
-gdb_test "info register st2" "st2 *3.32192.*\[ \t\]+.*" "verify st2 == 3.3219280*"
-gdb_test "info register st3" "st3 *1\[ \t\]+.*" "verify st3 == 1"
-
-gdb_test "stepi" "asm.*fldln2.*" "push st0 == 0.301029*"
-gdb_test "info register st0" "st0 *0.30102.*\[ \t\]+.*" "verify st0 == 0.301029*"
-gdb_test "info register st1" "st1 *3.14159.*\[ \t\]+.*" "verify st1 == 3.14159265*"
-gdb_test "info register st2" "st2 *1.44269.*\[ \t\]+.*" "verify st2 == 1.44269506*"
-gdb_test "info register st3" "st3 *3.32192.*\[ \t\]+.*" "verify st3 == 3.3219280948*"
-gdb_test "info register st4" "st4 *1\[ \t\]+.*" "verify st4 == 1"
-
-gdb_test "stepi" "asm.*fldz.*" "push st0 == 0.69314*"
-gdb_test "info register st0" "st0 *0.69314.*\[ \t\]+.*" "verify st0 == 0.69314*"
-gdb_test "info register st1" "st1 *0.30102.*\[ \t\]+.*" "verify st1 == 0.301029*"
-gdb_test "info register st2" "st2 *3.14159.*\[ \t\]+.*" "verify st2 == 3.14159265*"
-gdb_test "info register st3" "st3 *1.44269.*\[ \t\]+.*" "verify st3 == 1.442695040*"
-gdb_test "info register st4" "st4 *3.32192.*\[ \t\]+.*" "verify st4 == 3.3219280948*"
-gdb_test "info register st5" "st5 *1\[ \t\]+.*" "verify st5 == 1"
-
-gdb_test "stepi" "asm.*fld1.*" "push st0 == 0"
-gdb_test "info register st0" "st0 *0\[ \t\]+.*" "verify st0 == 0"
-gdb_test "info register st1" "st1 *0.69314.*\[ \t\]+.*" "verify st1 == 0.69314*"
-gdb_test "info register st2" "st2 *0.30102.*\[ \t\]+.*" "verify st2 == 0.301029*"
-gdb_test "info register st3" "st3 *3.14159.*\[ \t\]+.*" "verify st3 == 3.14159265*"
-gdb_test "info register st4" "st4 *1.44269.*\[ \t\]+.*" "verify st4 == 1.442695040*"
-gdb_test "info register st5" "st5 *3.32192.*\[ \t\]+.*" "verify st5 == 3.32192809*"
-gdb_test "info register st6" "st6 *1\[ \t\]+.*" "verify st6 == 1"
-
-gdb_test "stepi" "asm.*nop.*" "push st0 == 0"
-gdb_test "info register st0" "st0 *1\[ \t\]+.*" "verify st0 == 1"
-gdb_test "info register st1" "st1 *0\[ \t\]+.*" "verify st1 == 0"
-gdb_test "info register st2" "st2 *0.69314.*\[ \t\]+.*" "verify st2 == 0.69314*"
-gdb_test "info register st3" "st3 *0.30102.*\[ \t\]+.*" "verify st3 == 0.301029*"
-gdb_test "info register st4" "st4 *3.14159.*\[ \t\]+.*" "verify st4 == 3.14159265*"
-gdb_test "info register st5" "st5 *1.44269.*\[ \t\]+.*" "verify st5 == 1.44269504*"
-gdb_test "info register st6" "st6 *3.32192.*\[ \t\]+.*" "verify st6 == 3.3219280948*"
-gdb_test "info register st7" "st7 *1.*" "verify st7 == 1"
-
-# Now step backward, and check that st0 value reverts to zero.
-
-gdb_test "reverse-stepi" "asm.*fld1.*" "undo registers, st0-st7"
-gdb_test "info register st0" "st0 *0\[ \t\]+.*" "verify st0 == 0"
-gdb_test "info register st1" "st1 *0.69314.*\[ \t\]+.*" "verify st1 == 0.69314*"
-gdb_test "info register st2" "st2 *0.30102.*\[ \t\]+.*" "verify st2 == 0.301029*"
-gdb_test "info register st3" "st3 *3.14159.*\[ \t\]+.*" "verify st3 == 3.14159265*"
-gdb_test "info register st4" "st4 *1.44269.*\[ \t\]+.*" "verify st4 == 1.442695040*"
-gdb_test "info register st5" "st5 *3.32192.*\[ \t\]+.*" "verify st5 == 3.3219280948*"
-gdb_test "info register st6" "st6 *1\[ \t\]+.*" "verify st6 == 1"
-
-gdb_test "reverse-stepi" "asm.*fldz.*" "push st0 == 0.69314*"
-gdb_test "info register st0" "st0 *0.69314.*\[ \t\]+.*" "verify st0 == 0.69314*"
-gdb_test "info register st1" "st1 *0.30102.*\[ \t\]+.*" "verify st1 == 0.301029*"
-gdb_test "info register st2" "st2 *3.14159.*\[ \t\]+.*" "verify st2 == 3.14159265*"
-gdb_test "info register st3" "st3 *1.44269.*\[ \t\]+.*" "verify st3 == 1.442695040*"
-gdb_test "info register st4" "st4 *3.32192.*\[ \t\]+.*" "verify st4 == 3.3219280948*"
-gdb_test "info register st5" "st5 *1\[ \t\]+.*" "verify st5 == 1"
-
-gdb_test "reverse-stepi" "asm.*fldln2.*" "push st0 == 0.301029*"
-gdb_test "info register st0" "st0 *0.30102.*\[ \t\]+.*" "verify st0 == 0.301029*"
-gdb_test "info register st1" "st1 *3.14159.*\[ \t\]+.*" "verify st1 == 3.14159265*"
-gdb_test "info register st2" "st2 *1.44269.*\[ \t\]+.*" "verify st2 == 1.442695040*"
-gdb_test "info register st3" "st3 *3.32192.*\[ \t\]+.*" "verify st3 == 3.3219280948*"
-gdb_test "info register st4" "st4 *1\[ \t\]+.*" "verify st4 == 1"
-
-gdb_test "reverse-stepi" "asm.*fldlg2.*" "push st0 == 3.14159265*"
-gdb_test "info register st0" "st0 *3.14159.*\[ \t\]+.*" "verify st0 == 3.14159265*"
-gdb_test "info register st1" "st1 *1.44269.*\[ \t\]+.*" "verify st1 == 1.442695040*"
-gdb_test "info register st2" "st2 *3.32192.*\[ \t\]+.*" "verify st2 == 3.3219280948*"
-gdb_test "info register st3" "st3 *1\[ \t\]+.*" "verify st3 == 1"
-
-gdb_test "reverse-stepi" "asm.*fldpi.*" "push st0 == 1.44269504088*"
-gdb_test "info register st0" "st0 *1.44269.*\[ \t\]+.*" "verify st0 == 1.442695040*"
-gdb_test "info register st1" "st1 *3.32192.*\[ \t\]+.*" "verify st1 == 3.3219280948*"
-gdb_test "info register st2" "st2 *1\[ \t\]+.*" "verify st2 == 1"
-
-
-gdb_test "reverse-stepi" "asm.*fldl2e.*" "push st0 == 3.3219280948*"
-gdb_test "info register st0" "st0 *3.32192.*\[ \t\]+.*" "verify st0 == 3.3219280948*"
-gdb_test "info register st1" "st1 *1\[ \t\]+.*" "verify st1 == 1"
-
-gdb_test "reverse-stepi" "asm.*fldl2t.*" "push st0 == 1"
-gdb_test "info register st0" "st0 *1\[ \t\]+.*" "verify st0 == 1"
-
-
-
-
+with_test_prefix "forward" {
+ # Test FPU stack. FPU stack includes st0, st1, st2, st3, st4,
+ # st5, st6, st7. We push 8 values to FPU stack in record mode
+ # and see whether all are getting recorded.
+
+ set location [gdb_get_line_number "test st0 register"]
+ gdb_test "until $location" ".*$srcfile:$location.*asm.*fld1.*" \
+ "begin test st0"
+ gdb_test "stepi" "asm.*fldl2t.*" "push st0 == 1"
+ gdb_test "info register st0" "st0 *1\[ \t\]+.*" "verify st0 == 1"
+
+ gdb_test "stepi" "asm.*fldl2e.*" "push st0 == 3.3219280948*"
+ gdb_test "info register st0" "st0 *3.32192.*\[ \t\]+.*" "verify st0 == 3.321928094*"
+ gdb_test "info register st1" "st1 *1\[ \t\]+.*" "verify st1 == 1"
+
+ gdb_test "stepi" "asm.*fldpi.*" "push st0 == 1.4426950406*"
+ gdb_test "info register st0" "st0 *1.44269.*\[ \t\]+.*" "verify st0 == 1.442695040*"
+ gdb_test "info register st1" "st1 *3.32192.*\[ \t\]+.*" "verify st1 == 3.3219280948*"
+ gdb_test "info register st2" "st2 *1\[ \t\]+.*" "verify st2 == 1"
+
+ gdb_test "stepi" "asm.*fldlg2.*" "push st0 == 3.14159265*"
+ gdb_test "info register st0" "st0 *3.14159.*\[ \t\]+.*" "verify st0 == 3.14159265*"
+ gdb_test "info register st1" "st1 *1.44269.*\[ \t\]+.*" "verify st1 == 1.4426950*"
+ gdb_test "info register st2" "st2 *3.32192.*\[ \t\]+.*" "verify st2 == 3.3219280*"
+ gdb_test "info register st3" "st3 *1\[ \t\]+.*" "verify st3 == 1"
+
+ gdb_test "stepi" "asm.*fldln2.*" "push st0 == 0.301029*"
+ gdb_test "info register st0" "st0 *0.30102.*\[ \t\]+.*" "verify st0 == 0.301029*"
+ gdb_test "info register st1" "st1 *3.14159.*\[ \t\]+.*" "verify st1 == 3.14159265*"
+ gdb_test "info register st2" "st2 *1.44269.*\[ \t\]+.*" "verify st2 == 1.44269506*"
+ gdb_test "info register st3" "st3 *3.32192.*\[ \t\]+.*" "verify st3 == 3.3219280948*"
+ gdb_test "info register st4" "st4 *1\[ \t\]+.*" "verify st4 == 1"
+
+ gdb_test "stepi" "asm.*fldz.*" "push st0 == 0.69314*"
+ gdb_test "info register st0" "st0 *0.69314.*\[ \t\]+.*" "verify st0 == 0.69314*"
+ gdb_test "info register st1" "st1 *0.30102.*\[ \t\]+.*" "verify st1 == 0.301029*"
+ gdb_test "info register st2" "st2 *3.14159.*\[ \t\]+.*" "verify st2 == 3.14159265*"
+ gdb_test "info register st3" "st3 *1.44269.*\[ \t\]+.*" "verify st3 == 1.442695040*"
+ gdb_test "info register st4" "st4 *3.32192.*\[ \t\]+.*" "verify st4 == 3.3219280948*"
+ gdb_test "info register st5" "st5 *1\[ \t\]+.*" "verify st5 == 1"
+
+ gdb_test "stepi" "asm.*fld1.*" "push st0 == 0"
+ gdb_test "info register st0" "st0 *0\[ \t\]+.*" "verify st0 == 0"
+ gdb_test "info register st1" "st1 *0.69314.*\[ \t\]+.*" "verify st1 == 0.69314*"
+ gdb_test "info register st2" "st2 *0.30102.*\[ \t\]+.*" "verify st2 == 0.301029*"
+ gdb_test "info register st3" "st3 *3.14159.*\[ \t\]+.*" "verify st3 == 3.14159265*"
+ gdb_test "info register st4" "st4 *1.44269.*\[ \t\]+.*" "verify st4 == 1.442695040*"
+ gdb_test "info register st5" "st5 *3.32192.*\[ \t\]+.*" "verify st5 == 3.32192809*"
+ gdb_test "info register st6" "st6 *1\[ \t\]+.*" "verify st6 == 1"
+
+ gdb_test "stepi" "asm.*nop.*" "push st0 == 1, again"
+ gdb_test "info register st0" "st0 *1\[ \t\]+.*" "verify st0 == 1, again"
+ gdb_test "info register st1" "st1 *0\[ \t\]+.*" "verify st1 == 0"
+ gdb_test "info register st2" "st2 *0.69314.*\[ \t\]+.*" "verify st2 == 0.69314*"
+ gdb_test "info register st3" "st3 *0.30102.*\[ \t\]+.*" "verify st3 == 0.301029*"
+ gdb_test "info register st4" "st4 *3.14159.*\[ \t\]+.*" "verify st4 == 3.14159265*"
+ gdb_test "info register st5" "st5 *1.44269.*\[ \t\]+.*" "verify st5 == 1.44269504*"
+ gdb_test "info register st6" "st6 *3.32192.*\[ \t\]+.*" "verify st6 == 3.3219280948*"
+ gdb_test "info register st7" "st7 *1.*" "verify st7 == 1"
+}
+with_test_prefix "backward" {
+ # Now step backward, and check that st0 value reverts to zero.
+ gdb_test "reverse-stepi" "asm.*fld1.*" "undo registers, st0-st7"
+ gdb_test "info register st0" "st0 *0\[ \t\]+.*" "verify st0 == 0"
+ gdb_test "info register st1" "st1 *0.69314.*\[ \t\]+.*" "verify st1 == 0.69314*"
+ gdb_test "info register st2" "st2 *0.30102.*\[ \t\]+.*" "verify st2 == 0.301029*"
+ gdb_test "info register st3" "st3 *3.14159.*\[ \t\]+.*" "verify st3 == 3.14159265*"
+ gdb_test "info register st4" "st4 *1.44269.*\[ \t\]+.*" "verify st4 == 1.442695040*"
+ gdb_test "info register st5" "st5 *3.32192.*\[ \t\]+.*" "verify st5 == 3.3219280948*"
+ gdb_test "info register st6" "st6 *1\[ \t\]+.*" "verify st6 == 1"
+
+ gdb_test "reverse-stepi" "asm.*fldz.*" "push st0 == 0.69314*"
+ gdb_test "info register st0" "st0 *0.69314.*\[ \t\]+.*" "verify st0 == 0.69314*"
+ gdb_test "info register st1" "st1 *0.30102.*\[ \t\]+.*" "verify st1 == 0.301029*"
+ gdb_test "info register st2" "st2 *3.14159.*\[ \t\]+.*" "verify st2 == 3.14159265*"
+ gdb_test "info register st3" "st3 *1.44269.*\[ \t\]+.*" "verify st3 == 1.442695040*"
+ gdb_test "info register st4" "st4 *3.32192.*\[ \t\]+.*" "verify st4 == 3.3219280948*"
+ gdb_test "info register st5" "st5 *1\[ \t\]+.*" "verify st5 == 1"
+
+ gdb_test "reverse-stepi" "asm.*fldln2.*" "push st0 == 0.301029*"
+ gdb_test "info register st0" "st0 *0.30102.*\[ \t\]+.*" "verify st0 == 0.301029*"
+ gdb_test "info register st1" "st1 *3.14159.*\[ \t\]+.*" "verify st1 == 3.14159265*"
+ gdb_test "info register st2" "st2 *1.44269.*\[ \t\]+.*" "verify st2 == 1.442695040*"
+ gdb_test "info register st3" "st3 *3.32192.*\[ \t\]+.*" "verify st3 == 3.3219280948*"
+ gdb_test "info register st4" "st4 *1\[ \t\]+.*" "verify st4 == 1"
+
+ gdb_test "reverse-stepi" "asm.*fldlg2.*" "push st0 == 3.14159265*"
+ gdb_test "info register st0" "st0 *3.14159.*\[ \t\]+.*" "verify st0 == 3.14159265*"
+ gdb_test "info register st1" "st1 *1.44269.*\[ \t\]+.*" "verify st1 == 1.442695040*"
+ gdb_test "info register st2" "st2 *3.32192.*\[ \t\]+.*" "verify st2 == 3.3219280948*"
+ gdb_test "info register st3" "st3 *1\[ \t\]+.*" "verify st3 == 1"
+
+ gdb_test "reverse-stepi" "asm.*fldpi.*" "push st0 == 1.44269504088*"
+ gdb_test "info register st0" "st0 *1.44269.*\[ \t\]+.*" "verify st0 == 1.442695040*"
+ gdb_test "info register st1" "st1 *3.32192.*\[ \t\]+.*" "verify st1 == 3.3219280948*"
+ gdb_test "info register st2" "st2 *1\[ \t\]+.*" "verify st2 == 1"
+
+ gdb_test "reverse-stepi" "asm.*fldl2e.*" "push st0 == 3.3219280948*"
+ gdb_test "info register st0" "st0 *3.32192.*\[ \t\]+.*" "verify st0 == 3.3219280948*"
+ gdb_test "info register st1" "st1 *1\[ \t\]+.*" "verify st1 == 1"
+
+ gdb_test "reverse-stepi" "asm.*fldl2t.*" "push st0 == 1"
+ gdb_test "info register st0" "st0 *1\[ \t\]+.*" "verify st0 == 1"
+}
generated by cgit v1.1 at 2024-09-27 09:35:44 +0000