/**
- * Author......: Jens Steube <jens.steube@gmail.com>
+ * Authors.....: Jens Steube <jens.steube@gmail.com>
+ * Gabriele Gristina <matrix@hashcat.net>
+ *
* License.....: MIT
*/
#include <ext_OpenCL.h>
-void hc_clEnqueueNDRangeKernel (cl_command_queue command_queue, cl_kernel kernel, cl_uint work_dim, const size_t *global_work_offset, const size_t *global_work_size, const size_t *local_work_size, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
+const char *val2cstr_cl (cl_int CL_err)
{
- cl_int CL_err = clEnqueueNDRangeKernel (command_queue, kernel, work_dim, global_work_offset, global_work_size, local_work_size, num_events_in_wait_list, event_wait_list, event);
+ #define CLERR(a) case a: return #a
- if (CL_err != CL_SUCCESS)
+ switch (CL_err)
{
- log_error ("ERROR: %s %d\n", "clEnqueueNDRangeKernel()", CL_err);
-
- exit (-1);
+ CLERR (CL_BUILD_PROGRAM_FAILURE);
+ CLERR (CL_COMPILER_NOT_AVAILABLE);
+ CLERR (CL_DEVICE_NOT_FOUND);
+ CLERR (CL_INVALID_ARG_INDEX);
+ CLERR (CL_INVALID_ARG_SIZE);
+ CLERR (CL_INVALID_ARG_VALUE);
+ CLERR (CL_INVALID_BINARY);
+ CLERR (CL_INVALID_BUFFER_SIZE);
+ CLERR (CL_INVALID_BUILD_OPTIONS);
+ CLERR (CL_INVALID_COMMAND_QUEUE);
+ CLERR (CL_INVALID_CONTEXT);
+ CLERR (CL_INVALID_DEVICE);
+ CLERR (CL_INVALID_DEVICE_TYPE);
+ CLERR (CL_INVALID_EVENT);
+ CLERR (CL_INVALID_EVENT_WAIT_LIST);
+ CLERR (CL_INVALID_GLOBAL_OFFSET);
+ CLERR (CL_INVALID_HOST_PTR);
+ CLERR (CL_INVALID_KERNEL);
+ CLERR (CL_INVALID_KERNEL_ARGS);
+ CLERR (CL_INVALID_KERNEL_DEFINITION);
+ CLERR (CL_INVALID_KERNEL_NAME);
+ CLERR (CL_INVALID_MEM_OBJECT);
+ CLERR (CL_INVALID_OPERATION);
+ CLERR (CL_INVALID_PLATFORM);
+ CLERR (CL_INVALID_PROGRAM);
+ CLERR (CL_INVALID_PROGRAM_EXECUTABLE);
+ CLERR (CL_INVALID_QUEUE_PROPERTIES);
+ CLERR (CL_INVALID_SAMPLER);
+ CLERR (CL_INVALID_VALUE);
+ CLERR (CL_INVALID_WORK_DIMENSION);
+ CLERR (CL_INVALID_WORK_GROUP_SIZE);
+ CLERR (CL_INVALID_WORK_ITEM_SIZE);
+ CLERR (CL_MISALIGNED_SUB_BUFFER_OFFSET);
+ CLERR (CL_MAP_FAILURE);
+ CLERR (CL_MEM_COPY_OVERLAP);
+ CLERR (CL_MEM_OBJECT_ALLOCATION_FAILURE);
+ CLERR (CL_OUT_OF_HOST_MEMORY);
+ CLERR (CL_OUT_OF_RESOURCES);
}
+
+ return "CL_UNKNOWN_ERROR";
}
-void hc_clGetEventInfo (cl_event event, cl_event_info param_name, size_t param_value_size, void *param_value, size_t *param_value_size_ret)
+int ocl_init (OCL_PTR *ocl)
{
- cl_int CL_err = clGetEventInfo (event, param_name, param_value_size, param_value, param_value_size_ret);
-
- if (CL_err != CL_SUCCESS)
+ if (!ocl)
{
- log_error ("ERROR: %s %d\n", "clGetEventInfo()", CL_err);
+ log_error ("ERROR: OpenCL library pointer is null");
exit (-1);
}
-}
-void hc_clFlush (cl_command_queue command_queue)
-{
- cl_int CL_err = clFlush (command_queue);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clFlush()", CL_err);
+ memset (ocl, 0, sizeof (hc_opencl_lib_t));
- exit (-1);
- }
-}
+ #ifdef _WIN
+ ocl->lib = hc_dlopen ("OpenCL");
+ #elif __APPLE__
+ ocl->lib = hc_dlopen ("/System/Library/Frameworks/OpenCL.framework/OpenCL", RTLD_NOW);
+ #else
+ ocl->lib = hc_dlopen ("libOpenCL.so", RTLD_NOW);
-void hc_clFinish (cl_command_queue command_queue)
-{
- cl_int CL_err = clFinish (command_queue);
+ if (ocl->lib == NULL) ocl->lib = hc_dlopen ("libOpenCL.so.1", RTLD_NOW);
+ #endif
- if (CL_err != CL_SUCCESS)
+ if (ocl->lib == NULL)
{
- log_error ("ERROR: %s %d\n", "clFinish()", CL_err);
+ log_info ("");
+ log_info ("ATTENTION! Can't find OpenCL ICD loader library");
+ log_info ("");
+ #ifdef __linux__
+ log_info ("You're probably missing the \"ocl-icd-libopencl1\" package (Debian/Ubuntu)");
+ log_info (" sudo apt-get install ocl-icd-libopencl1");
+ log_info ("");
+ #elif defined (WIN)
+ log_info ("You're probably missing the OpenCL runtime installation");
+ log_info (" AMD users require AMD drivers 14.9 or later (recommended 15.12 or later)");
+ log_info (" Intel users require Intel OpenCL Runtime 14.2 or later (recommended 15.1 or later)");
+ log_info (" NVidia users require NVidia drivers 346.59 or later (recommended 361.x or later)");
+ log_info ("");
+ #endif
exit (-1);
}
+
+ HC_LOAD_FUNC(ocl, clBuildProgram, OCL_CLBUILDPROGRAM, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clCreateBuffer, OCL_CLCREATEBUFFER, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clCreateCommandQueue, OCL_CLCREATECOMMANDQUEUE, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clCreateContext, OCL_CLCREATECONTEXT, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clCreateKernel, OCL_CLCREATEKERNEL, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clCreateProgramWithBinary, OCL_CLCREATEPROGRAMWITHBINARY, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clCreateProgramWithSource, OCL_CLCREATEPROGRAMWITHSOURCE, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clEnqueueCopyBuffer, OCL_CLENQUEUECOPYBUFFER, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clEnqueueMapBuffer, OCL_CLENQUEUEMAPBUFFER, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clEnqueueNDRangeKernel, OCL_CLENQUEUENDRANGEKERNEL, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clEnqueueReadBuffer, OCL_CLENQUEUEREADBUFFER, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clEnqueueUnmapMemObject, OCL_CLENQUEUEUNMAPMEMOBJECT, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clEnqueueWriteBuffer, OCL_CLENQUEUEWRITEBUFFER, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clFinish, OCL_CLFINISH, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clFlush, OCL_CLFLUSH, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clGetDeviceIDs, OCL_CLGETDEVICEIDS, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clGetDeviceInfo, OCL_CLGETDEVICEINFO, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clGetEventInfo, OCL_CLGETEVENTINFO, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clGetKernelWorkGroupInfo, OCL_CLGETKERNELWORKGROUPINFO, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clGetPlatformIDs, OCL_CLGETPLATFORMIDS, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clGetPlatformInfo, OCL_CLGETPLATFORMINFO, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clGetProgramBuildInfo, OCL_CLGETPROGRAMBUILDINFO, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clGetProgramInfo, OCL_CLGETPROGRAMINFO, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clReleaseCommandQueue, OCL_CLRELEASECOMMANDQUEUE, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clReleaseContext, OCL_CLRELEASECONTEXT, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clReleaseKernel, OCL_CLRELEASEKERNEL, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clReleaseMemObject, OCL_CLRELEASEMEMOBJECT, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clReleaseProgram, OCL_CLRELEASEPROGRAM, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clSetKernelArg, OCL_CLSETKERNELARG, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clWaitForEvents, OCL_CLWAITFOREVENTS, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clGetEventProfilingInfo, OCL_CLGETEVENTPROFILINGINFO, OpenCL, 1)
+ HC_LOAD_FUNC(ocl, clReleaseEvent, OCL_CLRELEASEEVENT, OpenCL, 1)
+
+ return 0;
}
-void hc_clSetKernelArg (cl_kernel kernel, cl_uint arg_index, size_t arg_size, const void *arg_value)
+void ocl_close (OCL_PTR *ocl)
{
- cl_int CL_err = clSetKernelArg (kernel, arg_index, arg_size, arg_value);
-
- if (CL_err != CL_SUCCESS)
+ if (ocl)
{
- log_error ("ERROR: %s %d\n", "clSetKernelArg()", CL_err);
+ if (ocl->lib)
+ hc_dlclose (ocl->lib);
- exit (-1);
+ myfree (ocl);
}
}
-void hc_clEnqueueWriteBuffer (cl_command_queue command_queue, cl_mem buffer, cl_bool blocking_write, size_t offset, size_t cb, const void *ptr, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
+cl_int hc_clEnqueueNDRangeKernel (OCL_PTR *ocl, cl_command_queue command_queue, cl_kernel kernel, cl_uint work_dim, const size_t *global_work_offset, const size_t *global_work_size, const size_t *local_work_size, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
{
- cl_int CL_err = clEnqueueWriteBuffer (command_queue, buffer, blocking_write, offset, cb, ptr, num_events_in_wait_list, event_wait_list, event);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clEnqueueWriteBuffer()", CL_err);
-
- exit (-1);
- }
+ return ocl->clEnqueueNDRangeKernel (command_queue, kernel, work_dim, global_work_offset, global_work_size, local_work_size, num_events_in_wait_list, event_wait_list, event);
}
-void hc_clEnqueueCopyBuffer (cl_command_queue command_queue, cl_mem src_buffer, cl_mem dst_buffer, size_t src_offset, size_t dst_offset, size_t cb, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
+cl_int hc_clGetEventInfo (OCL_PTR *ocl, cl_event event, cl_event_info param_name, size_t param_value_size, void *param_value, size_t *param_value_size_ret)
{
- cl_int CL_err = clEnqueueCopyBuffer (command_queue, src_buffer, dst_buffer, src_offset, dst_offset, cb, num_events_in_wait_list, event_wait_list, event);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clEnqueueCopyBuffer()", CL_err);
-
- exit (-1);
- }
+ return ocl->clGetEventInfo (event, param_name, param_value_size, param_value, param_value_size_ret);
}
-void hc_clEnqueueReadBuffer (cl_command_queue command_queue, cl_mem buffer, cl_bool blocking_read, size_t offset, size_t cb, void *ptr, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
+cl_int hc_clFlush (OCL_PTR *ocl, cl_command_queue command_queue)
{
- cl_int CL_err = clEnqueueReadBuffer (command_queue, buffer, blocking_read, offset, cb, ptr, num_events_in_wait_list, event_wait_list, event);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clEnqueueReadBuffer()", CL_err);
-
- exit (-1);
- }
+ return ocl->clFlush (command_queue);
}
-void hc_clGetPlatformIDs (cl_uint num_entries, cl_platform_id *platforms, cl_uint *num_platforms)
+cl_int hc_clFinish (OCL_PTR *ocl, cl_command_queue command_queue)
{
- cl_int CL_err = clGetPlatformIDs (num_entries, platforms, num_platforms);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clGetPlatformIDs()", CL_err);
-
- exit (-1);
- }
+ return ocl->clFinish (command_queue);
}
-void hc_clGetPlatformInfo (cl_platform_id platform, cl_platform_info param_name, size_t param_value_size, void *param_value, size_t *param_value_size_ret)
+cl_int hc_clSetKernelArg (OCL_PTR *ocl, cl_kernel kernel, cl_uint arg_index, size_t arg_size, const void *arg_value)
{
- cl_int CL_err = clGetPlatformInfo (platform, param_name, param_value_size, param_value, param_value_size_ret);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clGetPlatformInfo()", CL_err);
-
- exit (-1);
- }
+ return ocl->clSetKernelArg (kernel, arg_index, arg_size, arg_value);
}
-void hc_clGetDeviceIDs (cl_platform_id platform, cl_device_type device_type, cl_uint num_entries, cl_device_id *devices, cl_uint *num_devices)
+cl_int hc_clEnqueueWriteBuffer (OCL_PTR *ocl, cl_command_queue command_queue, cl_mem buffer, cl_bool blocking_write, size_t offset, size_t cb, const void *ptr, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
{
- cl_int CL_err = clGetDeviceIDs (platform, device_type, num_entries, devices, num_devices);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clGetDeviceIDs()", CL_err);
-
- exit (-1);
- }
+ return ocl->clEnqueueWriteBuffer (command_queue, buffer, blocking_write, offset, cb, ptr, num_events_in_wait_list, event_wait_list, event);
}
-void hc_clGetDeviceInfo (cl_device_id device, cl_device_info param_name, size_t param_value_size, void *param_value, size_t *param_value_size_ret)
+cl_int hc_clEnqueueCopyBuffer (OCL_PTR *ocl, cl_command_queue command_queue, cl_mem src_buffer, cl_mem dst_buffer, size_t src_offset, size_t dst_offset, size_t cb, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
{
- cl_int CL_err = clGetDeviceInfo (device, param_name, param_value_size, param_value, param_value_size_ret);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clGetDeviceInfo()", CL_err);
-
- exit (-1);
- }
+ return ocl->clEnqueueCopyBuffer (command_queue, src_buffer, dst_buffer, src_offset, dst_offset, cb, num_events_in_wait_list, event_wait_list, event);
}
-cl_context hc_clCreateContext (cl_context_properties *properties, cl_uint num_devices, const cl_device_id *devices, void (CL_CALLBACK *pfn_notify) (const char *, const void *, size_t, void *), void *user_data)
+cl_int hc_clEnqueueReadBuffer (OCL_PTR *ocl, cl_command_queue command_queue, cl_mem buffer, cl_bool blocking_read, size_t offset, size_t cb, void *ptr, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
{
- cl_int CL_err;
-
- cl_context context = clCreateContext (properties, num_devices, devices, pfn_notify, user_data, &CL_err);
+ return ocl->clEnqueueReadBuffer (command_queue, buffer, blocking_read, offset, cb, ptr, num_events_in_wait_list, event_wait_list, event);
+}
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clCreateContext()", CL_err);
+cl_int hc_clGetPlatformIDs (OCL_PTR *ocl, cl_uint num_entries, cl_platform_id *platforms, cl_uint *num_platforms)
+{
+ return ocl->clGetPlatformIDs (num_entries, platforms, num_platforms);
+}
- exit (-1);
- }
+cl_int hc_clGetPlatformInfo (OCL_PTR *ocl, cl_platform_id platform, cl_platform_info param_name, size_t param_value_size, void *param_value, size_t *param_value_size_ret)
+{
+ return ocl->clGetPlatformInfo (platform, param_name, param_value_size, param_value, param_value_size_ret);
+}
- return (context);
+cl_int hc_clGetDeviceIDs (OCL_PTR *ocl, cl_platform_id platform, cl_device_type device_type, cl_uint num_entries, cl_device_id *devices, cl_uint *num_devices)
+{
+ return ocl->clGetDeviceIDs (platform, device_type, num_entries, devices, num_devices);
}
+cl_int hc_clGetDeviceInfo (OCL_PTR *ocl, cl_device_id device, cl_device_info param_name, size_t param_value_size, void *param_value, size_t *param_value_size_ret)
+{
+ return ocl->clGetDeviceInfo (device, param_name, param_value_size, param_value, param_value_size_ret);
+}
-cl_command_queue hc_clCreateCommandQueue (cl_context context, cl_device_id device, cl_command_queue_properties properties)
+cl_int hc_clCreateContext (OCL_PTR *ocl, cl_context_properties *properties, cl_uint num_devices, const cl_device_id *devices, void (CL_CALLBACK *pfn_notify) (const char *, const void *, size_t, void *), void *user_data, cl_context *context)
{
cl_int CL_err;
- cl_command_queue command_queue = clCreateCommandQueue (context, device, properties, &CL_err);
+ *context = ocl->clCreateContext (properties, num_devices, devices, pfn_notify, user_data, &CL_err);
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clCreateCommandQueue()", CL_err);
-
- exit (-1);
- }
-
- return (command_queue);
+ return CL_err;
}
-/*
-cl_command_queue hc_clCreateCommandQueueWithProperties (cl_context context, cl_device_id device, const cl_queue_properties *properties)
+cl_int hc_clCreateCommandQueue (OCL_PTR *ocl, cl_context context, cl_device_id device, cl_command_queue_properties properties, cl_command_queue *command_queue)
{
cl_int CL_err;
- cl_command_queue command_queue = clCreateCommandQueueWithProperties (context, device, properties, &CL_err);
+ *command_queue = ocl->clCreateCommandQueue (context, device, properties, &CL_err);
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clCreateCommandQueueWithProperties()", CL_err);
-
- exit (-1);
- }
-
- return (command_queue);
+ return CL_err;
}
-*/
-cl_mem hc_clCreateBuffer (cl_context context, cl_mem_flags flags, size_t size, void *host_ptr)
+cl_int hc_clCreateBuffer (OCL_PTR *ocl, cl_context context, cl_mem_flags flags, size_t size, void *host_ptr, cl_mem *mem)
{
cl_int CL_err;
- cl_mem mem = clCreateBuffer (context, flags, size, host_ptr, &CL_err);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clCreateBuffer()", CL_err);
+ *mem = ocl->clCreateBuffer (context, flags, size, host_ptr, &CL_err);
- exit (-1);
- }
-
- return (mem);
+ return CL_err;
}
-cl_program hc_clCreateProgramWithSource (cl_context context, cl_uint count, const char **strings, const size_t *lengths)
+cl_int hc_clCreateProgramWithSource (OCL_PTR *ocl, cl_context context, cl_uint count, const char **strings, const size_t *lengths, cl_program *program)
{
cl_int CL_err;
- cl_program program = clCreateProgramWithSource (context, count, strings, lengths, &CL_err);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clCreateProgramWithSource()", CL_err);
-
- exit (-1);
- }
+ *program = ocl->clCreateProgramWithSource (context, count, strings, lengths, &CL_err);
- return (program);
+ return CL_err;
}
-cl_program hc_clCreateProgramWithBinary (cl_context context, cl_uint num_devices, const cl_device_id *device_list, const size_t *lengths, const unsigned char **binaries, cl_int *binary_status)
+cl_int hc_clCreateProgramWithBinary (OCL_PTR *ocl, cl_context context, cl_uint num_devices, const cl_device_id *device_list, const size_t *lengths, const unsigned char **binaries, cl_int *binary_status, cl_program *program)
{
cl_int CL_err;
- cl_program program = clCreateProgramWithBinary (context, num_devices, device_list, lengths, binaries, binary_status, &CL_err);
+ *program = ocl->clCreateProgramWithBinary (context, num_devices, device_list, lengths, binaries, binary_status, &CL_err);
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clCreateProgramWithBinary()", CL_err);
-
- exit (-1);
- }
-
- return (program);
+ return CL_err;
}
-void hc_clBuildProgram (cl_program program, cl_uint num_devices, const cl_device_id *device_list, const char *options, void (CL_CALLBACK *pfn_notify) (cl_program program, void *user_data), void *user_data)
+cl_int hc_clBuildProgram (OCL_PTR *ocl, cl_program program, cl_uint num_devices, const cl_device_id *device_list, const char *options, void (CL_CALLBACK *pfn_notify) (cl_program program, void *user_data), void *user_data)
{
- cl_int CL_err = clBuildProgram (program, num_devices, device_list, options, pfn_notify, user_data);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clBuildProgram()", CL_err);
-
- exit (-1);
- }
+ return ocl->clBuildProgram (program, num_devices, device_list, options, pfn_notify, user_data);
}
-cl_kernel hc_clCreateKernel (cl_program program, const char *kernel_name)
+cl_int hc_clCreateKernel (OCL_PTR *ocl, cl_program program, const char *kernel_name, cl_kernel *kernel)
{
cl_int CL_err;
- cl_kernel kernel = clCreateKernel (program, kernel_name, &CL_err);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d - %s\n", "clCreateKernel()", CL_err, kernel_name);
+ *kernel = ocl->clCreateKernel (program, kernel_name, &CL_err);
- exit (-1);
- }
-
- return (kernel);
+ return CL_err;
}
-void hc_clReleaseMemObject (cl_mem mem)
+cl_int hc_clReleaseMemObject (OCL_PTR *ocl, cl_mem mem)
{
- cl_int CL_err = clReleaseMemObject (mem);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clReleaseMemObject()", CL_err);
-
- exit (-1);
- }
+ return ocl->clReleaseMemObject (mem);
}
-void hc_clReleaseKernel (cl_kernel kernel)
+cl_int hc_clReleaseKernel (OCL_PTR *ocl, cl_kernel kernel)
{
- cl_int CL_err = clReleaseKernel (kernel);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clReleaseProgram()", CL_err);
-
- exit (-1);
- }
+ return ocl->clReleaseKernel (kernel);
}
-void hc_clReleaseProgram (cl_program program)
+cl_int hc_clReleaseProgram (OCL_PTR *ocl, cl_program program)
{
- cl_int CL_err = clReleaseProgram (program);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clReleaseProgram()", CL_err);
-
- exit (-1);
- }
+ return ocl->clReleaseProgram (program);
}
-void hc_clReleaseCommandQueue (cl_command_queue command_queue)
+cl_int hc_clReleaseCommandQueue (OCL_PTR *ocl, cl_command_queue command_queue)
{
- cl_int CL_err = clReleaseCommandQueue (command_queue);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clReleaseCommandQueue()", CL_err);
-
- exit (-1);
- }
+ return ocl->clReleaseCommandQueue (command_queue);
}
-void hc_clReleaseContext (cl_context context)
+cl_int hc_clReleaseContext (OCL_PTR *ocl, cl_context context)
{
- cl_int CL_err = clReleaseContext (context);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clReleaseContext()", CL_err);
-
- exit (-1);
- }
+ return ocl->clReleaseContext (context);
}
-void *hc_clEnqueueMapBuffer (cl_command_queue command_queue, cl_mem buffer, cl_bool blocking_read, cl_map_flags map_flags, size_t offset, size_t cb, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
+cl_int hc_clEnqueueMapBuffer (OCL_PTR *ocl, cl_command_queue command_queue, cl_mem buffer, cl_bool blocking_read, cl_map_flags map_flags, size_t offset, size_t cb, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event, void **buf)
{
cl_int CL_err;
- void *buf = clEnqueueMapBuffer (command_queue, buffer, blocking_read, map_flags, offset, cb, num_events_in_wait_list, event_wait_list, event, &CL_err);
-
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clEnqueueMapBuffer()", CL_err);
+ *buf = ocl->clEnqueueMapBuffer (command_queue, buffer, blocking_read, map_flags, offset, cb, num_events_in_wait_list, event_wait_list, event, &CL_err);
- exit (-1);
- }
+ return CL_err;
+}
- return buf;
+cl_int hc_clEnqueueUnmapMemObject (OCL_PTR *ocl, cl_command_queue command_queue, cl_mem memobj, void *mapped_ptr, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
+{
+ return ocl->clEnqueueUnmapMemObject (command_queue, memobj, mapped_ptr, num_events_in_wait_list, event_wait_list, event);
}
-void hc_clEnqueueUnmapMemObject (cl_command_queue command_queue, cl_mem memobj, void *mapped_ptr, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
+cl_int hc_clGetKernelWorkGroupInfo (OCL_PTR *ocl, cl_kernel kernel, cl_device_id device, cl_kernel_work_group_info param_name, size_t param_value_size, void *param_value, size_t *param_value_size_ret)
{
- cl_int CL_err = clEnqueueUnmapMemObject (command_queue, memobj, mapped_ptr, num_events_in_wait_list, event_wait_list, event);
+ return ocl->clGetKernelWorkGroupInfo (kernel, device, param_name, param_value_size, param_value, param_value_size_ret);
+}
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clEnqueueUnmapMemObject()", CL_err);
+cl_int hc_clGetProgramBuildInfo (OCL_PTR *ocl, cl_program program, cl_device_id device, cl_program_build_info param_name, size_t param_value_size, void *param_value, size_t *param_value_size_ret)
+{
+ return ocl->clGetProgramBuildInfo (program, device, param_name, param_value_size, param_value, param_value_size_ret);
+}
- exit (-1);
- }
+cl_int hc_clGetProgramInfo (OCL_PTR *ocl, cl_program program, cl_program_info param_name, size_t param_value_size, void *param_value, size_t *param_value_size_ret)
+{
+ return ocl->clGetProgramInfo (program, param_name, param_value_size, param_value, param_value_size_ret);
}
-void hc_clEnqueueFillBuffer (cl_command_queue command_queue, cl_mem buffer, const void *pattern, size_t pattern_size, size_t offset, size_t size, cl_uint num_events_in_wait_list, const cl_event *event_wait_list, cl_event *event)
+cl_int hc_clWaitForEvents (OCL_PTR *ocl, cl_uint num_events, const cl_event *event_list)
{
- cl_int CL_err = clEnqueueFillBuffer (command_queue, buffer, pattern, pattern_size, offset, size, num_events_in_wait_list, event_wait_list, event);
+ return ocl->clWaitForEvents (num_events, event_list);
+}
- if (CL_err != CL_SUCCESS)
- {
- log_error ("ERROR: %s %d\n", "clEnqueueFillBuffer()", CL_err);
+cl_int hc_clGetEventProfilingInfo (OCL_PTR *ocl, cl_event event, cl_profiling_info param_name, size_t param_value_size, void *param_value, size_t *param_value_size_ret)
+{
+ return ocl->clGetEventProfilingInfo (event, param_name, param_value_size, param_value, param_value_size_ret);
+}
- exit (-1);
- }
+cl_int hc_clReleaseEvent (OCL_PTR *ocl, cl_event event)
+{
+ return ocl->clReleaseEvent (event);
}