[binutils-gdb] Use require !skip_opencl_tests

[Tom Tromey]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=465ee8475ef28147460fbe241c3b1dcd82d75fc4

commit 465ee8475ef28147460fbe241c3b1dcd82d75fc4
Author: Tom Tromey <tom@tromey.com>
Date:   Thu Dec 15 16:45:27 2022 -0700

    Use require !skip_opencl_tests
    
    This changes some tests to use "require !skip_opencl_tests".

Diff:
---
 gdb/testsuite/gdb.opencl/callfuncs.exp   | 5 +----
 gdb/testsuite/gdb.opencl/convs_casts.exp | 5 +----
 gdb/testsuite/gdb.opencl/datatypes.exp   | 5 +----
 gdb/testsuite/gdb.opencl/operators.exp   | 5 +----
 gdb/testsuite/gdb.opencl/vec_comps.exp   | 5 +----
 5 files changed, 5 insertions(+), 20 deletions(-)

diff --git a/gdb/testsuite/gdb.opencl/callfuncs.exp b/gdb/testsuite/gdb.opencl/callfuncs.exp
index f5bd28f66a0..98b34ab08cd 100644
--- a/gdb/testsuite/gdb.opencl/callfuncs.exp
+++ b/gdb/testsuite/gdb.opencl/callfuncs.exp
@@ -19,10 +19,7 @@
 
 load_lib opencl.exp
 
-if { [skip_opencl_tests] } {
-    unsupported "OpenCL support not detected"
-    return 0
-}
+require !skip_opencl_tests
 
 set testfile "callfuncs"
 set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl]
diff --git a/gdb/testsuite/gdb.opencl/convs_casts.exp b/gdb/testsuite/gdb.opencl/convs_casts.exp
index adfc2982613..9764d75fcb5 100644
--- a/gdb/testsuite/gdb.opencl/convs_casts.exp
+++ b/gdb/testsuite/gdb.opencl/convs_casts.exp
@@ -19,10 +19,7 @@
 
 load_lib opencl.exp
 
-if { [skip_opencl_tests] } {
-    unsupported "OpenCL support not detected"
-    return 0
-}
+require !skip_opencl_tests
 
 set testfile "convs_casts"
 set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl]
diff --git a/gdb/testsuite/gdb.opencl/datatypes.exp b/gdb/testsuite/gdb.opencl/datatypes.exp
index 07558537744..69d07e7b695 100644
--- a/gdb/testsuite/gdb.opencl/datatypes.exp
+++ b/gdb/testsuite/gdb.opencl/datatypes.exp
@@ -19,10 +19,7 @@
 
 load_lib opencl.exp
 
-if { [skip_opencl_tests] } {
-    unsupported "OpenCL support not detected"
-    return 0
-}
+require !skip_opencl_tests
 
 set testfile "datatypes"
 set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl]
diff --git a/gdb/testsuite/gdb.opencl/operators.exp b/gdb/testsuite/gdb.opencl/operators.exp
index fd1bf87482d..31a7ee87873 100644
--- a/gdb/testsuite/gdb.opencl/operators.exp
+++ b/gdb/testsuite/gdb.opencl/operators.exp
@@ -19,10 +19,7 @@
 
 load_lib opencl.exp
 
-if { [skip_opencl_tests] } {
-    unsupported "OpenCL support not detected"
-    return 0
-}
+require !skip_opencl_tests
 
 set testfile "operators"
 set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl]
diff --git a/gdb/testsuite/gdb.opencl/vec_comps.exp b/gdb/testsuite/gdb.opencl/vec_comps.exp
index 7eb2e8f92ae..1ea2bd9d7ec 100644
--- a/gdb/testsuite/gdb.opencl/vec_comps.exp
+++ b/gdb/testsuite/gdb.opencl/vec_comps.exp
@@ -19,10 +19,7 @@
 
 load_lib opencl.exp
 
-if { [skip_opencl_tests] } {
-    unsupported "OpenCL support not detected"
-    return 0
-}
+require !skip_opencl_tests
 
 set testfile "vec_comps"
 set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl]