Browse Source

Create a command queue from the program created from source which allows us to flush the command queue in the hope it will not generate a zero sized binary any more.

nfactor-troky
Con Kolivas 14 years ago
parent
commit
283d5d2343
  1. 15
      ocl.c

15
ocl.c

@ -514,6 +514,21 @@ build:
return NULL; return NULL;
} }
/* Create the command queue just so we can flush it to try and avoid
* zero sized binaries */
clState->commandQueue = clCreateCommandQueue(clState->context, devices[gpu], 0, &status);
if (status != CL_SUCCESS)
{
applog(LOG_ERR, "Creating Command Queue. (clCreateCommandQueue)");
return NULL;
}
status = clFinish(clState->commandQueue);
if (status != CL_SUCCESS)
{
applog(LOG_ERR, "Finishing command queue. (clFinish)");
return NULL;
}
status = clGetProgramInfo( clState->program, CL_PROGRAM_BINARY_SIZES, sizeof(size_t)*nDevices, binary_sizes, NULL ); status = clGetProgramInfo( clState->program, CL_PROGRAM_BINARY_SIZES, sizeof(size_t)*nDevices, binary_sizes, NULL );
if (unlikely(status != CL_SUCCESS)) if (unlikely(status != CL_SUCCESS))
{ {

Loading…
Cancel
Save