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
 116   return 0;
 117 }
 118
 119 void ocl_close (OCL_PTR *ocl)
 120 {
 121   if (ocl)
 122   {
 123     if (ocl->lib)
 124       hc_dlclose (ocl->lib);
 125
 126     free (ocl);
 127   }
 128 }
 129
 130 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, bool exitOnFail)
 131 {
 132   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);
 133
 134   if (CL_err != CL_SUCCESS)
 135   {
 136     if (exitOnFail)
 137     {
 138       log_error ("ERROR: %s : %d : %s\n", "clEnqueueNDRangeKernel()", CL_err, val2cstr_cl (CL_err));
 139
 140       exit (-1);
 141     }
 142
 143     return (-1);
 144   }
 145
 146   return 0;
 147 }
 148
 149 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)
 150 {
 151   cl_int CL_err = ocl->clGetEventInfo (event, param_name, param_value_size, param_value, param_value_size_ret);
 152
 153   if (CL_err != CL_SUCCESS)
 154   {
 155     log_error ("ERROR: %s : %d : %s\n", "clGetEventInfo()", CL_err, val2cstr_cl (CL_err));
 156
 157     exit (-1);
 158   }
 159 }
 160
 161 void hc_clFlush (OCL_PTR *ocl, cl_command_queue command_queue)
 162 {
 163   cl_int CL_err = ocl->clFlush (command_queue);
 164
 165   if (CL_err != CL_SUCCESS)
 166   {
 167     log_error ("ERROR: %s : %d : %s\n", "clFlush()", CL_err, val2cstr_cl (CL_err));
 168
 169     exit (-1);
 170   }
 171 }
 172
 173 void hc_clFinish (OCL_PTR *ocl, cl_command_queue command_queue)
 174 {
 175   cl_int CL_err = ocl->clFinish (command_queue);
 176
 177   if (CL_err != CL_SUCCESS)
 178   {
 179     log_error ("ERROR: %s : %d : %s\n", "clFinish()", CL_err, val2cstr_cl (CL_err));
 180
 181     exit (-1);
 182   }
 183 }
 184
 185 void hc_clSetKernelArg (OCL_PTR *ocl, cl_kernel kernel, cl_uint arg_index, size_t arg_size, const void *arg_value)
 186 {
 187   cl_int CL_err = ocl->clSetKernelArg (kernel, arg_index, arg_size, arg_value);
 188
 189   if (CL_err != CL_SUCCESS)
 190   {
 191     log_error ("ERROR: %s : %d : %s\n", "clSetKernelArg()", CL_err, val2cstr_cl (CL_err));
 192
 193     exit (-1);
 194   }
 195 }
 196
 197 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)
 198 {
 199   cl_int CL_err = ocl->clEnqueueWriteBuffer (command_queue, buffer, blocking_write, offset, cb, ptr, num_events_in_wait_list, event_wait_list, event);
 200
 201   if (CL_err != CL_SUCCESS)
 202   {
 203     log_error ("ERROR: %s : %d : %s\n", "clEnqueueWriteBuffer()", CL_err, val2cstr_cl (CL_err));
 204
 205     exit (-1);
 206   }
 207 }
 208
 209 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)
 210 {
 211   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);
 212
 213   if (CL_err != CL_SUCCESS)
 214   {
 215     log_error ("ERROR: %s : %d : %s\n", "clEnqueueCopyBuffer()", CL_err, val2cstr_cl (CL_err));
 216
 217     exit (-1);
 218   }
 219 }
 220
 221 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)
 222 {
 223   cl_int CL_err = ocl->clEnqueueReadBuffer (command_queue, buffer, blocking_read, offset, cb, ptr, num_events_in_wait_list, event_wait_list, event);
 224
 225   if (CL_err != CL_SUCCESS)
 226   {
 227     log_error ("ERROR: %s : %d : %s\n", "clEnqueueReadBuffer()", CL_err, val2cstr_cl (CL_err));
 228
 229     exit (-1);
 230   }
 231 }
 232
 233 void hc_clGetPlatformIDs (OCL_PTR *ocl, cl_uint num_entries, cl_platform_id *platforms, cl_uint *num_platforms)
 234 {
 235   cl_int CL_err = ocl->clGetPlatformIDs (num_entries, platforms, num_platforms);
 236
 237   if (CL_err != CL_SUCCESS)
 238   {
 239     log_error ("ERROR: %s : %d : %s\n", "clGetPlatformIDs()", CL_err, val2cstr_cl (CL_err));
 240
 241     exit (-1);
 242   }
 243 }
 244
 245 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)
 246 {
 247   cl_int CL_err = ocl->clGetPlatformInfo (platform, param_name, param_value_size, param_value, param_value_size_ret);
 248
 249   if (CL_err != CL_SUCCESS)
 250   {
 251     log_error ("ERROR: %s : %d : %s\n", "clGetPlatformInfo()", CL_err, val2cstr_cl (CL_err));
 252
 253     exit (-1);
 254   }
 255 }
 256
 257 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)
 258 {
 259   cl_int CL_err = ocl->clGetDeviceIDs (platform, device_type, num_entries, devices, num_devices);
 260
 261   if (CL_err != CL_SUCCESS)
 262   {
 263     log_error ("ERROR: %s : %d : %s\n", "clGetDeviceIDs()", CL_err, val2cstr_cl (CL_err));
 264
 265     exit (-1);
 266   }
 267 }
 268
 269 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)
 270 {
 271   cl_int CL_err = ocl->clGetDeviceInfo (device, param_name, param_value_size, param_value, param_value_size_ret);
 272
 273   if (CL_err != CL_SUCCESS)
 274   {
 275     log_error ("ERROR: %s : %d : %s\n", "clGetDeviceInfo()", CL_err, val2cstr_cl (CL_err));
 276
 277     exit (-1);
 278   }
 279 }
 280
 281 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)
 282 {
 283   cl_int CL_err;
 284
 285   cl_context context = ocl->clCreateContext (properties, num_devices, devices, pfn_notify, user_data, &CL_err);
 286
 287   if (CL_err != CL_SUCCESS)
 288   {
 289     log_error ("ERROR: %s : %d : %s\n", "clCreateContext()", CL_err, val2cstr_cl (CL_err));
 290
 291     exit (-1);
 292   }
 293
 294   return (context);
 295 }
 296
 297 cl_command_queue hc_clCreateCommandQueue (OCL_PTR *ocl, cl_context context, cl_device_id device, cl_command_queue_properties properties)
 298 {
 299   cl_int CL_err;
 300
 301   cl_command_queue command_queue = ocl->clCreateCommandQueue (context, device, properties, &CL_err);
 302
 303   if (CL_err != CL_SUCCESS)
 304   {
 305     log_error ("ERROR: %s : %d : %s\n", "clCreateCommandQueue()", CL_err, val2cstr_cl (CL_err));
 306
 307     exit (-1);
 308   }
 309
 310   return (command_queue);
 311 }
 312
 313 /*
 314 cl_command_queue hc_clCreateCommandQueueWithProperties (cl_context context, cl_device_id device, const cl_queue_properties *properties)
 315 {
 316   cl_int CL_err;
 317
 318   cl_command_queue command_queue = clCreateCommandQueueWithProperties (context, device, properties, &CL_err);
 319
 320   if (CL_err != CL_SUCCESS)
 321   {
 322     log_error ("ERROR: %s : %d : %s\n", "clCreateCommandQueueWithProperties()", CL_err, val2cstr_cl (CL_err));
 323
 324     exit (-1);
 325   }
 326
 327   return (command_queue);
 328 }
 329 */
 330
 331 cl_mem hc_clCreateBuffer (OCL_PTR *ocl, cl_context context, cl_mem_flags flags, size_t size, void *host_ptr)
 332 {
 333   cl_int CL_err;
 334
 335   cl_mem mem = ocl->clCreateBuffer (context, flags, size, host_ptr, &CL_err);
 336
 337   if (CL_err != CL_SUCCESS)
 338   {
 339     log_error ("ERROR: %s : %d : %s\n", "clCreateBuffer()", CL_err, val2cstr_cl (CL_err));
 340
 341     exit (-1);
 342   }
 343
 344   return (mem);
 345 }
 346
 347 cl_program hc_clCreateProgramWithSource (OCL_PTR *ocl, cl_context context, cl_uint count, const char **strings, const size_t *lengths)
 348 {
 349   cl_int CL_err;
 350
 351   cl_program program = ocl->clCreateProgramWithSource (context, count, strings, lengths, &CL_err);
 352
 353   if (CL_err != CL_SUCCESS)
 354   {
 355     log_error ("ERROR: %s : %d : %s\n", "clCreateProgramWithSource()", CL_err, val2cstr_cl (CL_err));
 356
 357     exit (-1);
 358   }
 359
 360   return (program);
 361 }
 362
 363 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)
 364 {
 365   cl_int CL_err;
 366
 367   cl_program program = ocl->clCreateProgramWithBinary (context, num_devices, device_list, lengths, binaries, binary_status, &CL_err);
 368
 369   if (CL_err != CL_SUCCESS)
 370   {
 371     log_error ("ERROR: %s : %d : %s\n", "clCreateProgramWithBinary()", CL_err, val2cstr_cl (CL_err));
 372
 373     exit (-1);
 374   }
 375
 376   return (program);
 377 }
 378
 379 void 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)
 380 {
 381   cl_int CL_err = ocl->clBuildProgram (program, num_devices, device_list, options, pfn_notify, user_data);
 382
 383   if (CL_err != CL_SUCCESS)
 384   {
 385     log_error ("ERROR: %s : %d : %s\n", "clBuildProgram()", CL_err, val2cstr_cl (CL_err));
 386
 387     char *buf = NULL;
 388     size_t len = 0;
 389
 390     cl_int err = hc_clGetProgramBuildInfo (ocl, program, *device_list, CL_PROGRAM_BUILD_LOG, 0, NULL, &len);
 391
 392     if (err == CL_SUCCESS && len > 0)
 393     {
 394       buf = (char *) mymalloc (len + 1);
 395
 396       if (hc_clGetProgramBuildInfo (ocl, program, *device_list, CL_PROGRAM_BUILD_LOG, len, buf, NULL) == CL_SUCCESS)
 397       {
 398         fprintf (stderr, "\n=== Build Log (start) ===\n%s\n=== Build Log (end) ===\n", buf);
 399       }
 400
 401       myfree (buf);
 402     }
 403
 404     exit (-1);
 405   }
 406 }
 407
 408 cl_kernel hc_clCreateKernel (OCL_PTR *ocl, cl_program program, const char *kernel_name)
 409 {
 410   cl_int CL_err;
 411
 412   cl_kernel kernel = ocl->clCreateKernel (program, kernel_name, &CL_err);
 413
 414   if (CL_err != CL_SUCCESS)
 415   {
 416     log_error ("ERROR: %s %d - %s\n", "clCreateKernel()", CL_err, kernel_name);
 417
 418     exit (-1);
 419   }
 420
 421   return (kernel);
 422 }
 423
 424 void hc_clReleaseMemObject (OCL_PTR *ocl, cl_mem mem)
 425 {
 426   cl_int CL_err = ocl->clReleaseMemObject (mem);
 427
 428   if (CL_err != CL_SUCCESS)
 429   {
 430     log_error ("ERROR: %s : %d : %s\n", "clReleaseMemObject()", CL_err, val2cstr_cl (CL_err));
 431
 432     exit (-1);
 433   }
 434 }
 435
 436 void hc_clReleaseKernel (OCL_PTR *ocl, cl_kernel kernel)
 437 {
 438   cl_int CL_err = ocl->clReleaseKernel (kernel);
 439
 440   if (CL_err != CL_SUCCESS)
 441   {
 442     log_error ("ERROR: %s : %d : %s\n", "clReleaseProgram()", CL_err, val2cstr_cl (CL_err));
 443
 444     exit (-1);
 445   }
 446 }
 447
 448 void hc_clReleaseProgram (OCL_PTR *ocl, cl_program program)
 449 {
 450   cl_int CL_err = ocl->clReleaseProgram (program);
 451
 452   if (CL_err != CL_SUCCESS)
 453   {
 454     log_error ("ERROR: %s : %d : %s\n", "clReleaseProgram()", CL_err, val2cstr_cl (CL_err));
 455
 456     exit (-1);
 457   }
 458 }
 459
 460 void hc_clReleaseCommandQueue (OCL_PTR *ocl, cl_command_queue command_queue)
 461 {
 462   cl_int CL_err = ocl->clReleaseCommandQueue (command_queue);
 463
 464   if (CL_err != CL_SUCCESS)
 465   {
 466     log_error ("ERROR: %s : %d : %s\n", "clReleaseCommandQueue()", CL_err, val2cstr_cl (CL_err));
 467
 468     exit (-1);
 469   }
 470 }
 471
 472 void hc_clReleaseContext (OCL_PTR *ocl, cl_context context)
 473 {
 474   cl_int CL_err = ocl->clReleaseContext (context);
 475
 476   if (CL_err != CL_SUCCESS)
 477   {
 478     log_error ("ERROR: %s : %d : %s\n", "clReleaseContext()", CL_err, val2cstr_cl (CL_err));
 479
 480     exit (-1);
 481   }
 482 }
 483
 484 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)
 485 {
 486   cl_int CL_err;
 487
 488   void *buf = ocl->clEnqueueMapBuffer (command_queue, buffer, blocking_read, map_flags, offset, cb, num_events_in_wait_list, event_wait_list, event, &CL_err);
 489
 490   if (CL_err != CL_SUCCESS)
 491   {
 492     log_error ("ERROR: %s : %d : %s\n", "clEnqueueMapBuffer()", CL_err, val2cstr_cl (CL_err));
 493
 494     exit (-1);
 495   }
 496
 497   return buf;
 498 }
 499
 500 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)
 501 {
 502   cl_int CL_err = ocl->clEnqueueUnmapMemObject (command_queue, memobj, mapped_ptr, num_events_in_wait_list, event_wait_list, event);
 503
 504   if (CL_err != CL_SUCCESS)
 505   {
 506     log_error ("ERROR: %s : %d : %s\n", "clEnqueueUnmapMemObject()", CL_err, val2cstr_cl (CL_err));
 507
 508     exit (-1);
 509   }
 510 }
 511
 512 void 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)
 513 {
 514   cl_int CL_err = ocl->clEnqueueFillBuffer (command_queue, buffer, pattern, pattern_size, offset, size, num_events_in_wait_list, event_wait_list, event);
 515
 516   if (CL_err != CL_SUCCESS)
 517   {
 518     log_error ("ERROR: %s : %d : %s\n", "clEnqueueFillBuffer()", CL_err, val2cstr_cl (CL_err));
 519
 520     exit (-1);
 521   }
 522 }
 523
 524 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)
 525 {
 526   cl_int CL_err = ocl->clGetKernelWorkGroupInfo (kernel, device, param_name, param_value_size, param_value, param_value_size_ret);
 527
 528   if (CL_err != CL_SUCCESS)
 529   {
 530     log_error ("ERROR: %s : %d : %s\n", "clGetKernelWorkGroupInfo()", CL_err, val2cstr_cl (CL_err));
 531
 532     exit (-1);
 533   }
 534 }
 535
 536 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)
 537 {
 538   cl_int CL_err = ocl->clGetProgramBuildInfo (program, device, param_name, param_value_size, param_value, param_value_size_ret);
 539
 540   if (CL_err != CL_SUCCESS)
 541   {
 542     log_error ("ERROR: %s : %d : %s\n", "clGetProgramBuildInfo()", CL_err, val2cstr_cl (CL_err));
 543
 544     return (-1);
 545   }
 546
 547   return CL_err;
 548 }
 549
 550 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)
 551 {
 552   cl_int CL_err = ocl->clGetProgramInfo (program, param_name, param_value_size, param_value, param_value_size_ret);
 553
 554   if (CL_err != CL_SUCCESS)
 555   {
 556     log_error ("ERROR: %s : %d : %s\n", "clGetProgramInfo()", CL_err, val2cstr_cl (CL_err));
 557
 558     exit (-1);
 559   }
 560 }