diff options
author | Tom Tromey <tom@tromey.com> | 2023-01-08 11:48:57 -0700 |
---|---|---|
committer | Tom Tromey <tom@tromey.com> | 2023-01-13 13:18:58 -0700 |
commit | 1cf897dec9466eed3d63f3b0c42257f41eb55fcc (patch) | |
tree | 71ee4e98bfcc000ec68bc126b88b2904292879d1 /gdb/testsuite/lib | |
parent | d6195dc9b1eecc358100d6f4e8a611a0b563c4f4 (diff) | |
download | gdb-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.exp | 20 |
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, |