src/ext_OpenCL.c

   1 /**
   2  * Authors.....: Jens Steube <jens.steube@gmail.com>
   3  *               Gabriele Gristina <matrix@hashcat.net>
   4  *
   5  * License.....: MIT
   6  */
   7
   8 #include <ext_OpenCL.h>
   9
  10 const char *val2cstr_cl (cl_int CL_err)
  11 {
  12   #define CLERR(a) case a: return #a
  13
  14   switch (CL_err)
  15   {
  16     CLERR (CL_BUILD_PROGRAM_FAILURE);
  17     CLERR (CL_COMPILER_NOT_AVAILABLE);
  18     CLERR (CL_DEVICE_NOT_FOUND);
  19     CLERR (CL_INVALID_ARG_INDEX);
  20     CLERR (CL_INVALID_ARG_SIZE);
  21     CLERR (CL_INVALID_ARG_VALUE);
  22     CLERR (CL_INVALID_BINARY);
  23     CLERR (CL_INVALID_BUFFER_SIZE);
  24     CLERR (CL_INVALID_BUILD_OPTIONS);
  25     CLERR (CL_INVALID_COMMAND_QUEUE);
  26     CLERR (CL_INVALID_CONTEXT);
  27     CLERR (CL_INVALID_DEVICE);
  28     CLERR (CL_INVALID_DEVICE_TYPE);
  29     CLERR (CL_INVALID_EVENT);
  30     CLERR (CL_INVALID_EVENT_WAIT_LIST);
  31     CLERR (CL_INVALID_GLOBAL_OFFSET);
  32     CLERR (CL_INVALID_HOST_PTR);
  33     CLERR (CL_INVALID_KERNEL);
  34     CLERR (CL_INVALID_KERNEL_ARGS);
  35     CLERR (CL_INVALID_KERNEL_DEFINITION);
  36     CLERR (CL_INVALID_KERNEL_NAME);
  37     CLERR (CL_INVALID_MEM_OBJECT);
  38     CLERR (CL_INVALID_OPERATION);
  39     CLERR (CL_INVALID_PLATFORM);
  40     CLERR (CL_INVALID_PROGRAM);
  41     CLERR (CL_INVALID_PROGRAM_EXECUTABLE);
  42     CLERR (CL_INVALID_QUEUE_PROPERTIES);
  43     CLERR (CL_INVALID_SAMPLER);
  44     CLERR (CL_INVALID_VALUE);
  45     CLERR (CL_INVALID_WORK_DIMENSION);
  46     CLERR (CL_INVALID_WORK_GROUP_SIZE);
  47     CLERR (CL_INVALID_WORK_ITEM_SIZE);
  48     CLERR (CL_MISALIGNED_SUB_BUFFER_OFFSET);
  49     CLERR (CL_MAP_FAILURE);
  50     CLERR (CL_MEM_COPY_OVERLAP);
  51     CLERR (CL_MEM_OBJECT_ALLOCATION_FAILURE);
  52     CLERR (CL_OUT_OF_HOST_MEMORY);
  53     CLERR (CL_OUT_OF_RESOURCES);
  54   }
  55
  56   return "CL_UNKNOWN_ERROR";
  57 }
  58
  59 int ocl_init (OCL_PTR *ocl)
  60 {
  61   if (!ocl)
  62   {
  63     log_error ("ERROR: opencl library ptr is null");
  64
  65     exit (-1);
  66   }
  67
  68   memset (ocl, 0, sizeof (hc_opencl_lib_t));
  69
  70   #ifdef _WIN
  71   ocl->lib = hc_dlopen ("OpenCL");
  72   #elif OSX
  73   ocl->lib = hc_dlopen ("/System/Library/Frameworks/OpenCL.framework/OpenCL", RTLD_NOW);
  74   #else
  75   ocl->lib = hc_dlopen ("libOpenCL.so", RTLD_NOW);
  76   #endif
  77
  78   if (!ocl->lib)
  79   {
  80     log_error ("ERROR: cannot load opencl library");
  81
  82     exit (-1);
  83   }
  84
  85   HC_LOAD_FUNC(ocl, clBuildProgram, OCL_CLBUILDPROGRAM, OpenCL, 1)
  86   HC_LOAD_FUNC(ocl, clCreateBuffer, OCL_CLCREATEBUFFER, OpenCL, 1)
  87   HC_LOAD_FUNC(ocl, clCreateCommandQueue, OCL_CLCREATECOMMANDQUEUE, OpenCL, 1)
  88   HC_LOAD_FUNC(ocl, clCreateContext, OCL_CLCREATECONTEXT, OpenCL, 1)
  89   HC_LOAD_FUNC(ocl, clCreateKernel, OCL_CLCREATEKERNEL, OpenCL, 1)
  90   HC_LOAD_FUNC(ocl, clCreateProgramWithBinary, OCL_CLCREATEPROGRAMWITHBINARY, OpenCL, 1)
  91   HC_LOAD_FUNC(ocl, clCreateProgramWithSource, OCL_CLCREATEPROGRAMWITHSOURCE, OpenCL, 1)
  92   HC_LOAD_FUNC(ocl, clEnqueueCopyBuffer, OCL_CLENQUEUECOPYBUFFER, OpenCL, 1)
  93   HC_LOAD_FUNC(ocl, clEnqueueFillBuffer, OCL_CLENQUEUEFILLBUFFER, OpenCL, -1)
  94   HC_LOAD_FUNC(ocl, clEnqueueMapBuffer, OCL_CLENQUEUEMAPBUFFER, OpenCL, 1)
  95   HC_LOAD_FUNC(ocl, clEnqueueNDRangeKernel, OCL_CLENQUEUENDRANGEKERNEL, OpenCL, 1)
  96   HC_LOAD_FUNC(ocl, clEnqueueReadBuffer, OCL_CLENQUEUEREADBUFFER, OpenCL, 1)
  97   HC_LOAD_FUNC(ocl, clEnqueueUnmapMemObject, OCL_CLENQUEUEUNMAPMEMOBJECT, OpenCL, 1)
  98   HC_LOAD_FUNC(ocl, clEnqueueWriteBuffer, OCL_CLENQUEUEWRITEBUFFER, OpenCL, 1)
  99   HC_LOAD_FUNC(ocl, clFinish, OCL_CLFINISH, OpenCL, 1)
 100   HC_LOAD_FUNC(ocl, clFlush, OCL_CLFLUSH, OpenCL, 1)
 101   HC_LOAD_FUNC(ocl, clGetDeviceIDs, OCL_CLGETDEVICEIDS, OpenCL, 1)
 102   HC_LOAD_FUNC(ocl, clGetDeviceInfo, OCL_CLGETDEVICEINFO, OpenCL, 1)
 103   HC_LOAD_FUNC(ocl, clGetEventInfo, OCL_CLGETEVENTINFO, OpenCL, 1)
 104   HC_LOAD_FUNC(ocl, clGetKernelWorkGroupInfo, OCL_CLGETKERNELWORKGROUPINFO, OpenCL, 1)
 105   HC_LOAD_FUNC(ocl, clGetPlatformIDs, OCL_CLGETPLATFORMIDS, OpenCL, 1)
 106   HC_LOAD_FUNC(ocl, clGetPlatformInfo, OCL_CLGETPLATFORMINFO, OpenCL, 1)
 107   HC_LOAD_FUNC(ocl, clGetProgramBuildInfo, OCL_CLGETPROGRAMBUILDINFO, OpenCL, 1)
 108   HC_LOAD_FUNC(ocl, clGetProgramInfo, OCL_CLGETPROGRAMINFO, OpenCL, 1)
 109   HC_LOAD_FUNC(ocl, clReleaseCommandQueue, OCL_CLRELEASECOMMANDQUEUE, OpenCL, 1)
 110   HC_LOAD_FUNC(ocl, clReleaseContext, OCL_CLRELEASECONTEXT, OpenCL, 1)
 111   HC_LOAD_FUNC(ocl, clReleaseKernel, OCL_CLRELEASEKERNEL, OpenCL, 1)
 112   HC_LOAD_FUNC(ocl, clReleaseMemObject, OCL_CLRELEASEMEMOBJECT, OpenCL, 1)
 113   HC_LOAD_FUNC(ocl, clReleaseProgram, OCL_CLRELEASEPROGRAM, OpenCL, 1)
 114   HC_LOAD_FUNC(ocl, clSetKernelArg, OCL_CLSETKERNELARG, OpenCL, 1)
 115   HC_LOAD_FUNC(ocl, clWaitForEvents, OCL_CLWAITFOREVENTS, OpenCL, 1)
 116   HC_LOAD_FUNC(ocl, clGetEventProfilingInfo, OCL_CLGETEVENTPROFILINGINFO, OpenCL, 1)
 117   HC_LOAD_FUNC(ocl, clReleaseEvent, CLRELEASEEVENT, OpenCL, 1)
 118
 119   return 0;
 120 }
 121
 122 void ocl_close (OCL_PTR *ocl)
 123 {
 124   if (ocl)
 125   {
 126     if (ocl->lib)
 127       hc_dlclose (ocl->lib);
 128
 129     free (ocl);
 130   }
 131 }
 132
 133 void 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)
 134 {
 135   cl_int CL_err = 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);
 136
 137   if (CL_err != CL_SUCCESS)
 138   {
 139     log_error ("ERROR: %s : %d : %s\n", "clEnqueueNDRangeKernel()", CL_err, val2cstr_cl (CL_err));
 140
 141     exit (-1);
 142   }
 143 }
 144
 145 void 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)
 146 {
 147   cl_int CL_err = ocl->clGetEventInfo (event, param_name, param_value_size, param_value, param_value_size_ret);
 148
 149   if (CL_err != CL_SUCCESS)
 150   {
 151     log_error ("ERROR: %s : %d : %s\n", "clGetEventInfo()", CL_err, val2cstr_cl (CL_err));
 152
 153     exit (-1);
 154   }
 155 }
 156
 157 void hc_clFlush (OCL_PTR *ocl, cl_command_queue command_queue)
 158 {
 159   cl_int CL_err = ocl->clFlush (command_queue);
 160
 161   if (CL_err != CL_SUCCESS)
 162   {
 163     log_error ("ERROR: %s : %d : %s\n", "clFlush()", CL_err, val2cstr_cl (CL_err));
 164
 165     exit (-1);
 166   }
 167 }
 168
 169 void hc_clFinish (OCL_PTR *ocl, cl_command_queue command_queue)
 170 {
 171   cl_int CL_err = ocl->clFinish (command_queue);
 172
 173   if (CL_err != CL_SUCCESS)
 174   {
 175     log_error ("ERROR: %s : %d : %s\n", "clFinish()", CL_err, val2cstr_cl (CL_err));
 176
 177     exit (-1);
 178   }
 179 }
 180
 181 void hc_clSetKernelArg (OCL_PTR *ocl, cl_kernel kernel, cl_uint arg_index, size_t arg_size, const void *arg_value)
 182 {
 183   cl_int CL_err = ocl->clSetKernelArg (kernel, arg_index, arg_size, arg_value);
 184
 185   if (CL_err != CL_SUCCESS)
 186   {
 187     log_error ("ERROR: %s : %d : %s\n", "clSetKernelArg()", CL_err, val2cstr_cl (CL_err));
 188
 189     exit (-1);
 190   }
 191 }
 192
 193 void 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)
 194 {
 195   cl_int CL_err = ocl->clEnqueueWriteBuffer (command_queue, buffer, blocking_write, offset, cb, ptr, num_events_in_wait_list, event_wait_list, event);
 196
 197   if (CL_err != CL_SUCCESS)
 198   {
 199     log_error ("ERROR: %s : %d : %s\n", "clEnqueueWriteBuffer()", CL_err, val2cstr_cl (CL_err));
 200
 201     exit (-1);
 202   }
 203 }
 204
 205 void 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)
 206 {
 207   cl_int CL_err = ocl->clEnqueueCopyBuffer (command_queue, src_buffer, dst_buffer, src_offset, dst_offset, cb, num_events_in_wait_list, event_wait_list, event);
 208
 209   if (CL_err != CL_SUCCESS)
 210   {
 211     log_error ("ERROR: %s : %d : %s\n", "clEnqueueCopyBuffer()", CL_err, val2cstr_cl (CL_err));
 212
 213     exit (-1);
 214   }
 215 }
 216
 217 void 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)
 218 {
 219   cl_int CL_err = ocl->clEnqueueReadBuffer (command_queue, buffer, blocking_read, offset, cb, ptr, num_events_in_wait_list, event_wait_list, event);
 220
 221   if (CL_err != CL_SUCCESS)
 222   {
 223     log_error ("ERROR: %s : %d : %s\n", "clEnqueueReadBuffer()", CL_err, val2cstr_cl (CL_err));
 224
 225     exit (-1);
 226   }
 227 }
 228
 229 void hc_clGetPlatformIDs (OCL_PTR *ocl, cl_uint num_entries, cl_platform_id *platforms, cl_uint *num_platforms)
 230 {
 231   cl_int CL_err = ocl->clGetPlatformIDs (num_entries, platforms, num_platforms);
 232
 233   if (CL_err != CL_SUCCESS)
 234   {
 235     log_error ("ERROR: %s : %d : %s\n", "clGetPlatformIDs()", CL_err, val2cstr_cl (CL_err));
 236
 237     exit (-1);
 238   }
 239 }
 240
 241 void 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)
 242 {
 243   cl_int CL_err = ocl->clGetPlatformInfo (platform, param_name, param_value_size, param_value, param_value_size_ret);
 244
 245   if (CL_err != CL_SUCCESS)
 246   {
 247     log_error ("ERROR: %s : %d : %s\n", "clGetPlatformInfo()", CL_err, val2cstr_cl (CL_err));
 248
 249     exit (-1);
 250   }
 251 }
 252
 253 void 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)
 254 {
 255   cl_int CL_err = ocl->clGetDeviceIDs (platform, device_type, num_entries, devices, num_devices);
 256
 257   if (CL_err != CL_SUCCESS)
 258   {
 259     log_error ("ERROR: %s : %d : %s\n", "clGetDeviceIDs()", CL_err, val2cstr_cl (CL_err));
 260
 261     exit (-1);
 262   }
 263 }
 264
 265 void 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)
 266 {
 267   cl_int CL_err = ocl->clGetDeviceInfo (device, param_name, param_value_size, param_value, param_value_size_ret);
 268
 269   if (CL_err != CL_SUCCESS)
 270   {
 271     log_error ("ERROR: %s : %d : %s\n", "clGetDeviceInfo()", CL_err, val2cstr_cl (CL_err));
 272
 273     exit (-1);
 274   }
 275 }
 276
 277 cl_context 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)
 278 {
 279   cl_int CL_err;
 280
 281   cl_context context = ocl->clCreateContext (properties, num_devices, devices, pfn_notify, user_data, &CL_err);
 282
 283   if (CL_err != CL_SUCCESS)
 284   {
 285     log_error ("ERROR: %s : %d : %s\n", "clCreateContext()", CL_err, val2cstr_cl (CL_err));
 286
 287     exit (-1);
 288   }
 289
 290   return (context);
 291 }
 292
 293 cl_command_queue hc_clCreateCommandQueue (OCL_PTR *ocl, cl_context context, cl_device_id device, cl_command_queue_properties properties)
 294 {
 295   cl_int CL_err;
 296
 297   cl_command_queue command_queue = ocl->clCreateCommandQueue (context, device, properties, &CL_err);
 298
 299   if (CL_err != CL_SUCCESS)
 300   {
 301     log_error ("ERROR: %s : %d : %s\n", "clCreateCommandQueue()", CL_err, val2cstr_cl (CL_err));
 302
 303     exit (-1);
 304   }
 305
 306   return (command_queue);
 307 }
 308
 309 /*
 310 cl_command_queue hc_clCreateCommandQueueWithProperties (cl_context context, cl_device_id device, const cl_queue_properties *properties)
 311 {
 312   cl_int CL_err;
 313
 314   cl_command_queue command_queue = clCreateCommandQueueWithProperties (context, device, properties, &CL_err);
 315
 316   if (CL_err != CL_SUCCESS)
 317   {
 318     log_error ("ERROR: %s : %d : %s\n", "clCreateCommandQueueWithProperties()", CL_err, val2cstr_cl (CL_err));
 319
 320     exit (-1);
 321   }
 322
 323   return (command_queue);
 324 }
 325 */
 326
 327 cl_mem hc_clCreateBuffer (OCL_PTR *ocl, cl_context context, cl_mem_flags flags, size_t size, void *host_ptr)
 328 {
 329   cl_int CL_err;
 330
 331   cl_mem mem = ocl->clCreateBuffer (context, flags, size, host_ptr, &CL_err);
 332
 333   if (CL_err != CL_SUCCESS)
 334   {
 335     log_error ("ERROR: %s : %d : %s\n", "clCreateBuffer()", CL_err, val2cstr_cl (CL_err));
 336
 337     exit (-1);
 338   }
 339
 340   return (mem);
 341 }
 342
 343 cl_program hc_clCreateProgramWithSource (OCL_PTR *ocl, cl_context context, cl_uint count, const char **strings, const size_t *lengths)
 344 {
 345   cl_int CL_err;
 346
 347   cl_program program = ocl->clCreateProgramWithSource (context, count, strings, lengths, &CL_err);
 348
 349   if (CL_err != CL_SUCCESS)
 350   {
 351     log_error ("ERROR: %s : %d : %s\n", "clCreateProgramWithSource()", CL_err, val2cstr_cl (CL_err));
 352
 353     exit (-1);
 354   }
 355
 356   return (program);
 357 }
 358
 359 cl_program 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)
 360 {
 361   cl_int CL_err;
 362
 363   cl_program program = ocl->clCreateProgramWithBinary (context, num_devices, device_list, lengths, binaries, binary_status, &CL_err);
 364
 365   if (CL_err != CL_SUCCESS)
 366   {
 367     log_error ("ERROR: %s : %d : %s\n", "clCreateProgramWithBinary()", CL_err, val2cstr_cl (CL_err));
 368
 369     exit (-1);
 370   }
 371
 372   return (program);
 373 }
 374
 375 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, bool exitOnFail)
 376 {
 377   cl_int CL_err = ocl->clBuildProgram (program, num_devices, device_list, options, pfn_notify, user_data);
 378
 379   if (CL_err != CL_SUCCESS)
 380   {
 381     size_t len = strlen (options) + 1 + 15;
 382
 383     char *options_update = (char *) mymalloc (len + 1);
 384
 385     options_update = strncat (options_update, options, len - 1 - 15);
 386     options_update = strncat (options_update, " -cl-opt-disable", 1 + 15);
 387
 388     if (data.quiet == 0) log_error ("\n=== Build failed, retry with optimization disabled ===\n");
 389
 390     CL_err = ocl->clBuildProgram (program, num_devices, device_list, options_update, pfn_notify, user_data);
 391
 392     myfree (options_update);
 393
 394     if (CL_err != CL_SUCCESS)
 395     {
 396       log_error ("ERROR: %s : %d : %s\n", "clBuildProgram()", CL_err, val2cstr_cl (CL_err));
 397
 398       log_error ("\n=== Build Options : %s ===\n", options);
 399
 400       size_t len = 0;
 401
 402       cl_int err = hc_clGetProgramBuildInfo (ocl, program, *device_list, CL_PROGRAM_BUILD_LOG, 0, NULL, &len);
 403
 404       if (err == CL_SUCCESS && len > 0)
 405       {
 406         char *buf = (char *) mymalloc (len + 1);
 407
 408         if (hc_clGetProgramBuildInfo (ocl, program, *device_list, CL_PROGRAM_BUILD_LOG, len, buf, NULL) == CL_SUCCESS)
 409         {
 410           fprintf (stderr, "\n=== Build Log (start) ===\n%s\n=== Build Log (end) ===\n", buf);
 411         }
 412
 413         myfree (buf);
 414       }
 415
 416       if (exitOnFail) exit (-1);
 417
 418       return (-1);
 419     }
 420   }
 421
 422   return 0;
 423 }
 424
 425 cl_kernel hc_clCreateKernel (OCL_PTR *ocl, cl_program program, const char *kernel_name)
 426 {
 427   cl_int CL_err;
 428
 429   cl_kernel kernel = ocl->clCreateKernel (program, kernel_name, &CL_err);
 430
 431   if (CL_err != CL_SUCCESS)
 432   {
 433     log_error ("ERROR: %s %d - %s\n", "clCreateKernel()", CL_err, kernel_name);
 434
 435     exit (-1);
 436   }
 437
 438   return (kernel);
 439 }
 440
 441 void hc_clReleaseMemObject (OCL_PTR *ocl, cl_mem mem)
 442 {
 443   cl_int CL_err = ocl->clReleaseMemObject (mem);
 444
 445   if (CL_err != CL_SUCCESS)
 446   {
 447     log_error ("ERROR: %s : %d : %s\n", "clReleaseMemObject()", CL_err, val2cstr_cl (CL_err));
 448
 449     exit (-1);
 450   }
 451 }
 452
 453 void hc_clReleaseKernel (OCL_PTR *ocl, cl_kernel kernel)
 454 {
 455   cl_int CL_err = ocl->clReleaseKernel (kernel);
 456
 457   if (CL_err != CL_SUCCESS)
 458   {
 459     log_error ("ERROR: %s : %d : %s\n", "clReleaseProgram()", CL_err, val2cstr_cl (CL_err));
 460
 461     exit (-1);
 462   }
 463 }
 464
 465 void hc_clReleaseProgram (OCL_PTR *ocl, cl_program program)
 466 {
 467   cl_int CL_err = ocl->clReleaseProgram (program);
 468
 469   if (CL_err != CL_SUCCESS)
 470   {
 471     log_error ("ERROR: %s : %d : %s\n", "clReleaseProgram()", CL_err, val2cstr_cl (CL_err));
 472
 473     exit (-1);
 474   }
 475 }
 476
 477 void hc_clReleaseCommandQueue (OCL_PTR *ocl, cl_command_queue command_queue)
 478 {
 479   cl_int CL_err = ocl->clReleaseCommandQueue (command_queue);
 480
 481   if (CL_err != CL_SUCCESS)
 482   {
 483     log_error ("ERROR: %s : %d : %s\n", "clReleaseCommandQueue()", CL_err, val2cstr_cl (CL_err));
 484
 485     exit (-1);
 486   }
 487 }
 488
 489 void hc_clReleaseContext (OCL_PTR *ocl, cl_context context)
 490 {
 491   cl_int CL_err = ocl->clReleaseContext (context);
 492
 493   if (CL_err != CL_SUCCESS)
 494   {
 495     log_error ("ERROR: %s : %d : %s\n", "clReleaseContext()", CL_err, val2cstr_cl (CL_err));
 496
 497     exit (-1);
 498   }
 499 }
 500
 501 void *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)
 502 {
 503   cl_int CL_err;
 504
 505   void *buf = ocl->clEnqueueMapBuffer (command_queue, buffer, blocking_read, map_flags, offset, cb, num_events_in_wait_list, event_wait_list, event, &CL_err);
 506
 507   if (CL_err != CL_SUCCESS)
 508   {
 509     log_error ("ERROR: %s : %d : %s\n", "clEnqueueMapBuffer()", CL_err, val2cstr_cl (CL_err));
 510
 511     exit (-1);
 512   }
 513
 514   return buf;
 515 }
 516
 517 void 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)
 518 {
 519   cl_int CL_err = ocl->clEnqueueUnmapMemObject (command_queue, memobj, mapped_ptr, num_events_in_wait_list, event_wait_list, event);
 520
 521   if (CL_err != CL_SUCCESS)
 522   {
 523     log_error ("ERROR: %s : %d : %s\n", "clEnqueueUnmapMemObject()", CL_err, val2cstr_cl (CL_err));
 524
 525     exit (-1);
 526   }
 527 }
 528
 529 cl_int hc_clEnqueueFillBuffer (OCL_PTR *ocl, 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)
 530 {
 531   cl_int CL_err = -1;
 532
 533   if (ocl->clEnqueueFillBuffer)
 534   {
 535     CL_err = ocl->clEnqueueFillBuffer (command_queue, buffer, pattern, pattern_size, offset, size, num_events_in_wait_list, event_wait_list, event);
 536
 537     if (CL_err != CL_SUCCESS && data.quiet == 0)
 538       log_error ("WARNING: %s : %d : %s\n", "clEnqueueFillBuffer()", CL_err, val2cstr_cl (CL_err));
 539   }
 540
 541   return CL_err;
 542 }
 543
 544 void 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)
 545 {
 546   cl_int CL_err = ocl->clGetKernelWorkGroupInfo (kernel, device, param_name, param_value_size, param_value, param_value_size_ret);
 547
 548   if (CL_err != CL_SUCCESS)
 549   {
 550     log_error ("ERROR: %s : %d : %s\n", "clGetKernelWorkGroupInfo()", CL_err, val2cstr_cl (CL_err));
 551
 552     exit (-1);
 553   }
 554 }
 555
 556 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)
 557 {
 558   cl_int CL_err = ocl->clGetProgramBuildInfo (program, device, param_name, param_value_size, param_value, param_value_size_ret);
 559
 560   if (CL_err != CL_SUCCESS)
 561   {
 562     log_error ("ERROR: %s : %d : %s\n", "clGetProgramBuildInfo()", CL_err, val2cstr_cl (CL_err));
 563
 564     return (-1);
 565   }
 566
 567   return CL_err;
 568 }
 569
 570 void 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)
 571 {
 572   cl_int CL_err = ocl->clGetProgramInfo (program, param_name, param_value_size, param_value, param_value_size_ret);
 573
 574   if (CL_err != CL_SUCCESS)
 575   {
 576     log_error ("ERROR: %s : %d : %s\n", "clGetProgramInfo()", CL_err, val2cstr_cl (CL_err));
 577
 578     exit (-1);
 579   }
 580 }
 581
 582 void hc_clWaitForEvents (OCL_PTR *ocl, cl_uint num_events, const cl_event *event_list)
 583 {
 584   cl_int CL_err = ocl->clWaitForEvents (num_events, event_list);
 585
 586   if (CL_err != CL_SUCCESS)
 587   {
 588     log_error ("ERROR: %s : %d : %s\n", "clWaitForEvents()", CL_err, val2cstr_cl (CL_err));
 589
 590     exit (-1);
 591   }
 592 }
 593
 594 void 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)
 595 {
 596   cl_int CL_err = ocl->clGetEventProfilingInfo (event, param_name, param_value_size, param_value, param_value_size_ret);
 597
 598   if (CL_err != CL_SUCCESS)
 599   {
 600     log_error ("ERROR: %s : %d : %s\n", "clGetEventProfilingInfo()", CL_err, val2cstr_cl (CL_err));
 601
 602     exit (-1);
 603   }
 604 }
 605
 606 void hc_clReleaseEvent (OCL_PTR *ocl, cl_event event)
 607 {
 608   cl_int CL_err = ocl->clReleaseEvent (event);
 609
 610   if (CL_err != CL_SUCCESS)
 611   {
 612     log_error ("ERROR: %s : %d : %s\n", "clReleaseEvent()", CL_err, val2cstr_cl (CL_err));
 613
 614     exit (-1);
 615   }
 616 }