aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/lib
diff options
context:
space:
mode:
authorTom Tromey <tom@tromey.com>2023-01-08 11:48:57 -0700
committerTom Tromey <tom@tromey.com>2023-01-13 13:18:58 -0700
commit1cf897dec9466eed3d63f3b0c42257f41eb55fcc (patch)
tree71ee4e98bfcc000ec68bc126b88b2904292879d1 /gdb/testsuite/lib
parentd6195dc9b1eecc358100d6f4e8a611a0b563c4f4 (diff)
downloadgdb-1cf897dec9466eed3d63f3b0c42257f41eb55fcc.zip
gdb-1cf897dec9466eed3d63f3b0c42257f41eb55fcc.tar.gz
gdb-1cf897dec9466eed3d63f3b0c42257f41eb55fcc.tar.bz2
Rename to allow_tsx_tests
This changes skip_tsx_tests to invert the sense, and renames it to allow_tsx_tests.
Diffstat (limited to 'gdb/testsuite/lib')
-rw-r--r--gdb/testsuite/lib/gdb.exp20
1 files changed, 10 insertions, 10 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index c989d9e..94dccf8 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -3649,13 +3649,13 @@ gdb_caching_proc skip_vsx_tests {
return $skip_vsx_tests
}
-# Run a test on the target to see if it supports TSX hardware. Return 0 if so,
-# 1 if it does not. Based on 'check_vmx_hw_available' from the GCC testsuite.
+# Run a test on the target to see if it supports TSX hardware. Return 1 if so,
+# 0 if it does not. Based on 'check_vmx_hw_available' from the GCC testsuite.
-gdb_caching_proc skip_tsx_tests {
+gdb_caching_proc allow_tsx_tests {
global srcdir subdir gdb_prompt inferior_exited_re
- set me "skip_tsx_tests"
+ set me "allow_tsx_tests"
# Compile a test program.
set src {
@@ -3667,7 +3667,7 @@ gdb_caching_proc skip_tsx_tests {
}
}
if {![gdb_simple_compile $me $src executable]} {
- return 1
+ return 0
}
# No error message, compilation succeeded so now run it via gdb.
@@ -3680,22 +3680,22 @@ gdb_caching_proc skip_tsx_tests {
gdb_expect {
-re ".*Illegal instruction.*${gdb_prompt} $" {
verbose -log "$me: TSX hardware not detected."
- set skip_tsx_tests 1
+ set allow_tsx_tests 0
}
-re ".*$inferior_exited_re normally.*${gdb_prompt} $" {
verbose -log "$me: TSX hardware detected."
- set skip_tsx_tests 0
+ set allow_tsx_tests 1
}
default {
warning "\n$me: default case taken."
- set skip_tsx_tests 1
+ set allow_tsx_tests 0
}
}
gdb_exit
remote_file build delete $obj
- verbose "$me: returning $skip_tsx_tests" 2
- return $skip_tsx_tests
+ verbose "$me: returning $allow_tsx_tests" 2
+ return $allow_tsx_tests
}
# Run a test on the target to see if it supports avx512bf16. Return 1 if so,