mirror of
https://github.com/KhronosGroup/OpenCL-CTS.git
synced 2026-03-19 06:09:01 +00:00
094cc04e16
Fix various memory leaks around events. Convert test to use supplied typewrappers to avoid memory leaks. Also use error helper functions to reduce code size. Use stringstreams to synthesize kernel sources, and raw c+11 string literals. Signed-off-by: John Kesapides <john.kesapides@arm.com>
81 lines
2.6 KiB
C++
81 lines
2.6 KiB
C++
//
|
|
// Copyright (c) 2017 The Khronos Group Inc.
|
|
//
|
|
// Licensed under the Apache License, Version 2.0 (the "License");
|
|
// you may not use this file except in compliance with the License.
|
|
// You may obtain a copy of the License at
|
|
//
|
|
// http://www.apache.org/licenses/LICENSE-2.0
|
|
//
|
|
// Unless required by applicable law or agreed to in writing, software
|
|
// distributed under the License is distributed on an "AS IS" BASIS,
|
|
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
// See the License for the specific language governing permissions and
|
|
// limitations under the License.
|
|
//
|
|
#include "procs.h"
|
|
|
|
const char* pipe_kernel_code = {
|
|
"__kernel void pipe_kernel(__write_only pipe int out_pipe)\n"
|
|
"{}\n" };
|
|
|
|
int test_pipe_info( cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements )
|
|
{
|
|
clMemWrapper pipe;
|
|
cl_int err;
|
|
cl_uint pipe_width = 512;
|
|
cl_uint pipe_depth = 1024;
|
|
cl_uint returnVal;
|
|
clProgramWrapper program;
|
|
clKernelWrapper kernel;
|
|
|
|
pipe = clCreatePipe(context, CL_MEM_HOST_NO_ACCESS, pipe_width, pipe_depth,
|
|
NULL, &err);
|
|
test_error(err, "clCreatePipe failed.");
|
|
|
|
err = clGetPipeInfo(pipe, CL_PIPE_PACKET_SIZE, sizeof(pipe_width),
|
|
(void *)&returnVal, NULL);
|
|
test_error(err, "clGetPipeInfo failed.");
|
|
|
|
if (pipe_width != returnVal)
|
|
{
|
|
log_error("Error in clGetPipeInfo() check of pipe packet size\n");
|
|
return -1;
|
|
}
|
|
else
|
|
{
|
|
log_info( " CL_PIPE_PACKET_SIZE passed.\n" );
|
|
}
|
|
|
|
err = clGetPipeInfo(pipe, CL_PIPE_MAX_PACKETS, sizeof(pipe_depth), (void *)&returnVal, NULL);
|
|
test_error(err, "clGetPipeInfo failed.");
|
|
|
|
if(pipe_depth != returnVal)
|
|
{
|
|
log_error( "Error in clGetPipeInfo() check of pipe max packets\n" );
|
|
return -1;
|
|
}
|
|
else
|
|
{
|
|
log_info( " CL_PIPE_MAX_PACKETS passed.\n" );
|
|
}
|
|
|
|
err = create_single_kernel_helper_with_build_options(context, &program, &kernel, 1, (const char**)&pipe_kernel_code, "pipe_kernel", "-cl-std=CL2.0 -cl-kernel-arg-info");
|
|
test_error_ret(err, " Error creating program", -1);
|
|
|
|
cl_kernel_arg_type_qualifier arg_type_qualifier = 0;
|
|
cl_kernel_arg_type_qualifier expected_type_qualifier = CL_KERNEL_ARG_TYPE_PIPE;
|
|
err = clGetKernelArgInfo( kernel, 0, CL_KERNEL_ARG_TYPE_QUALIFIER, sizeof(arg_type_qualifier), &arg_type_qualifier, NULL );
|
|
test_error_ret(err, " clSetKernelArgInfo failed", -1);
|
|
err = (arg_type_qualifier != expected_type_qualifier);
|
|
|
|
if(err)
|
|
{
|
|
print_error(err, "ERROR: Bad type qualifier\n");
|
|
return -1;
|
|
}
|
|
|
|
return err;
|
|
|
|
}
|