diff options
-rw-r--r-- | gdb/testsuite/gdb.opencl/callfuncs.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.opencl/convs_casts.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.opencl/datatypes.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.opencl/operators.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.opencl/vec_comps.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/lib/opencl.exp | 16 |
6 files changed, 13 insertions, 13 deletions
diff --git a/gdb/testsuite/gdb.opencl/callfuncs.exp b/gdb/testsuite/gdb.opencl/callfuncs.exp index 98b34ab..1fa3f8a 100644 --- a/gdb/testsuite/gdb.opencl/callfuncs.exp +++ b/gdb/testsuite/gdb.opencl/callfuncs.exp @@ -19,7 +19,7 @@ load_lib opencl.exp -require !skip_opencl_tests +require allow_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 9764d75..d648b7f 100644 --- a/gdb/testsuite/gdb.opencl/convs_casts.exp +++ b/gdb/testsuite/gdb.opencl/convs_casts.exp @@ -19,7 +19,7 @@ load_lib opencl.exp -require !skip_opencl_tests +require allow_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 69d07e7..b59567f 100644 --- a/gdb/testsuite/gdb.opencl/datatypes.exp +++ b/gdb/testsuite/gdb.opencl/datatypes.exp @@ -19,7 +19,7 @@ load_lib opencl.exp -require !skip_opencl_tests +require allow_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 31a7ee8..a70e169 100644 --- a/gdb/testsuite/gdb.opencl/operators.exp +++ b/gdb/testsuite/gdb.opencl/operators.exp @@ -19,7 +19,7 @@ load_lib opencl.exp -require !skip_opencl_tests +require allow_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 1ea2bd9..4c9f801 100644 --- a/gdb/testsuite/gdb.opencl/vec_comps.exp +++ b/gdb/testsuite/gdb.opencl/vec_comps.exp @@ -19,7 +19,7 @@ load_lib opencl.exp -require !skip_opencl_tests +require allow_opencl_tests set testfile "vec_comps" set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl] diff --git a/gdb/testsuite/lib/opencl.exp b/gdb/testsuite/lib/opencl.exp index 3f1b364..4c66d2a 100644 --- a/gdb/testsuite/lib/opencl.exp +++ b/gdb/testsuite/lib/opencl.exp @@ -27,13 +27,13 @@ proc gdb_compile_opencl_hostapp {clsource executable options} { return [gdb_compile ${src} ${binfile} "executable" ${options_opencl}] } -# Run a test on the target to check if it supports OpenCL. Return 0 if so, 1 if +# Run a test on the target to check if it supports OpenCL. Return 1 if so, 0 if # it does not. -gdb_caching_proc skip_opencl_tests { +gdb_caching_proc allow_opencl_tests { global srcdir objdir subdir gdb_prompt global inferior_exited_re - set me "skip_opencl_tests" + set me "allow_opencl_tests" # Set up, compile, and execute an OpenCL program. Include the current # process ID in the file name of the executable to prevent conflicts with @@ -46,8 +46,8 @@ gdb_caching_proc skip_opencl_tests { if { [gdb_compile_opencl_hostapp "${clprogram}" "${executable}" "${compile_flags}" ] != "" } { remote_file target delete ${clprogram} - verbose "$me: compiling OpenCL binary failed, returning 1" 2 - return 1 + verbose "$me: compiling OpenCL binary failed, returning 0" 2 + return 0 } # Compilation succeeded so now run it via gdb. @@ -56,15 +56,15 @@ gdb_caching_proc skip_opencl_tests { gdb_expect 30 { -re ".*$inferior_exited_re normally.*${gdb_prompt} $" { verbose -log "\n$me: OpenCL support detected" - set result 0 + set result 1 } -re ".*$inferior_exited_re with code.*${gdb_prompt} $" { verbose -log "\n$me: OpenCL support not detected" - set result 1 + set result 0 } default { verbose -log "\n$me OpenCL support not detected (default case)" - set result 1 + set result 0 } } gdb_exit |