mirror of
https://github.com/KhronosGroup/OpenCL-CTS.git
synced 2026-03-23 15:39:03 +00:00
Mem-leaks from conformance pipes (#772)
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>
This commit is contained in:
@@ -21,29 +21,25 @@ const char* pipe_kernel_code = {
|
||||
|
||||
int test_pipe_info( cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements )
|
||||
{
|
||||
cl_mem pipe;
|
||||
clMemWrapper pipe;
|
||||
cl_int err;
|
||||
cl_uint pipe_width = 512;
|
||||
cl_uint pipe_depth = 1024;
|
||||
cl_uint returnVal;
|
||||
cl_program program;
|
||||
cl_kernel kernel;
|
||||
clProgramWrapper program;
|
||||
clKernelWrapper kernel;
|
||||
|
||||
pipe = clCreatePipe(context, CL_MEM_HOST_NO_ACCESS, pipe_width, pipe_depth, NULL, &err);
|
||||
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);
|
||||
if ( err )
|
||||
{
|
||||
log_error( "Error calling clGetPipeInfo(): %d\n", err );
|
||||
clReleaseMemObject(pipe);
|
||||
return -1;
|
||||
}
|
||||
err = clGetPipeInfo(pipe, CL_PIPE_PACKET_SIZE, sizeof(pipe_width),
|
||||
(void *)&returnVal, NULL);
|
||||
test_error(err, "clGetPipeInfo failed.");
|
||||
|
||||
if(pipe_width != returnVal)
|
||||
if (pipe_width != returnVal)
|
||||
{
|
||||
log_error( "Error in clGetPipeInfo() check of pipe packet size\n" );
|
||||
clReleaseMemObject(pipe);
|
||||
log_error("Error in clGetPipeInfo() check of pipe packet size\n");
|
||||
return -1;
|
||||
}
|
||||
else
|
||||
@@ -52,17 +48,11 @@ int test_pipe_info( cl_device_id deviceID, cl_context context, cl_command_queue
|
||||
}
|
||||
|
||||
err = clGetPipeInfo(pipe, CL_PIPE_MAX_PACKETS, sizeof(pipe_depth), (void *)&returnVal, NULL);
|
||||
if ( err )
|
||||
{
|
||||
log_error( "Error calling clGetPipeInfo(): %d\n", err );
|
||||
clReleaseMemObject(pipe);
|
||||
return -1;
|
||||
}
|
||||
test_error(err, "clGetPipeInfo failed.");
|
||||
|
||||
if(pipe_depth != returnVal)
|
||||
{
|
||||
log_error( "Error in clGetPipeInfo() check of pipe max packets\n" );
|
||||
clReleaseMemObject(pipe);
|
||||
return -1;
|
||||
}
|
||||
else
|
||||
@@ -71,39 +61,20 @@ int test_pipe_info( cl_device_id deviceID, cl_context context, cl_command_queue
|
||||
}
|
||||
|
||||
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");
|
||||
if(err)
|
||||
{
|
||||
clReleaseMemObject(pipe);
|
||||
print_error(err, "Error creating program\n");
|
||||
return -1;
|
||||
}
|
||||
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 );
|
||||
if(err)
|
||||
{
|
||||
clReleaseMemObject(pipe);
|
||||
clReleaseKernel(kernel);
|
||||
clReleaseProgram(program);
|
||||
print_error(err, "clSetKernelArg failed\n");
|
||||
return -1;
|
||||
}
|
||||
test_error_ret(err, " clSetKernelArgInfo failed", -1);
|
||||
err = (arg_type_qualifier != expected_type_qualifier);
|
||||
|
||||
if(err)
|
||||
{
|
||||
clReleaseMemObject(pipe);
|
||||
clReleaseKernel(kernel);
|
||||
clReleaseProgram(program);
|
||||
print_error(err, "ERROR: Bad type qualifier\n");
|
||||
return -1;
|
||||
}
|
||||
|
||||
// cleanup
|
||||
clReleaseMemObject(pipe);
|
||||
clReleaseKernel(kernel);
|
||||
clReleaseProgram(program);
|
||||
|
||||
return err;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user