src/third_party/ffmpeg/libavutil/opencl.c

   1 /*
   2  * Copyright (C) 2012 Peng  Gao     <peng@multicorewareinc.com>
   3  * Copyright (C) 2012 Li    Cao     <li@multicorewareinc.com>
   4  * Copyright (C) 2012 Wei   Gao     <weigao@multicorewareinc.com>
   5  * Copyright (C) 2013 Lenny Wang    <lwanghpc@gmail.com>
   6  *
   7  * This file is part of FFmpeg.
   8  *
   9  * FFmpeg is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU Lesser General Public
  11  * License as published by the Free Software Foundation; either
  12  * version 2.1 of the License, or (at your option) any later version.
  13  *
  14  * FFmpeg is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17  * Lesser General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU Lesser General Public
  20  * License along with FFmpeg; if not, write to the Free Software
  21  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  22  */
  23
  24 #include "opencl.h"
  25 #include "avstring.h"
  26 #include "log.h"
  27 #include "avassert.h"
  28 #include "opt.h"
  29
  30 #if HAVE_THREADS
  31 #if HAVE_PTHREADS
  32 #include <pthread.h>
  33 #elif HAVE_W32THREADS
  34 #include "compat/w32pthreads.h"
  35 #elif HAVE_OS2THREADS
  36 #include "compat/os2threads.h"
  37 #endif
  38 #include "atomic.h"
  39
  40 static volatile pthread_mutex_t *atomic_opencl_lock = NULL;
  41 #define LOCK_OPENCL pthread_mutex_lock(atomic_opencl_lock)
  42 #define UNLOCK_OPENCL pthread_mutex_unlock(atomic_opencl_lock)
  43 #else
  44 #define LOCK_OPENCL
  45 #define UNLOCK_OPENCL
  46 #endif
  47
  48 #define MAX_KERNEL_CODE_NUM 200
  49
  50 typedef struct {
  51     int is_compiled;
  52     const char *kernel_string;
  53 } KernelCode;
  54
  55 typedef struct {
  56     const AVClass *class;
  57     int log_offset;
  58     void *log_ctx;
  59     int init_count;
  60     int opt_init_flag;
  61      /**
  62      * if set to 1, the OpenCL environment was created by the user and
  63      * passed as AVOpenCLExternalEnv when initing ,0:created by opencl wrapper.
  64      */
  65     int is_user_created;
  66     int platform_idx;
  67     int device_idx;
  68     cl_platform_id platform_id;
  69     cl_device_type device_type;
  70     cl_context context;
  71     cl_device_id device_id;
  72     cl_command_queue command_queue;
  73 #if FF_API_OLD_OPENCL
  74     char *build_options;
  75     int program_count;
  76     cl_program programs[MAX_KERNEL_CODE_NUM];
  77     int kernel_count;
  78 #endif
  79     int kernel_code_count;
  80     KernelCode kernel_code[MAX_KERNEL_CODE_NUM];
  81     AVOpenCLDeviceList device_list;
  82 } OpenclContext;
  83
  84 #define OFFSET(x) offsetof(OpenclContext, x)
  85
  86 static const AVOption opencl_options[] = {
  87      { "platform_idx",        "set platform index value",  OFFSET(platform_idx),  AV_OPT_TYPE_INT,    {.i64=-1}, -1, INT_MAX},
  88      { "device_idx",          "set device index value",    OFFSET(device_idx),    AV_OPT_TYPE_INT,    {.i64=-1}, -1, INT_MAX},
  89 #if FF_API_OLD_OPENCL
  90      { "build_options",       "build options of opencl",   OFFSET(build_options), AV_OPT_TYPE_STRING, {.str="-I."},  CHAR_MIN, CHAR_MAX},
  91 #endif
  92      { NULL }
  93 };
  94
  95 static const AVClass openclutils_class = {
  96     .class_name                = "OPENCLUTILS",
  97     .option                    = opencl_options,
  98     .item_name                 = av_default_item_name,
  99     .version                   = LIBAVUTIL_VERSION_INT,
 100     .log_level_offset_offset   = offsetof(OpenclContext, log_offset),
 101     .parent_log_context_offset = offsetof(OpenclContext, log_ctx),
 102 };
 103
 104 static OpenclContext opencl_ctx = {&openclutils_class};
 105
 106 static const cl_device_type device_type[] = {CL_DEVICE_TYPE_GPU, CL_DEVICE_TYPE_CPU};
 107
 108 typedef struct {
 109     int err_code;
 110     const char *err_str;
 111 } OpenclErrorMsg;
 112
 113 static const OpenclErrorMsg opencl_err_msg[] = {
 114     {CL_DEVICE_NOT_FOUND,                               "DEVICE NOT FOUND"},
 115     {CL_DEVICE_NOT_AVAILABLE,                           "DEVICE NOT AVAILABLE"},
 116     {CL_COMPILER_NOT_AVAILABLE,                         "COMPILER NOT AVAILABLE"},
 117     {CL_MEM_OBJECT_ALLOCATION_FAILURE,                  "MEM OBJECT ALLOCATION FAILURE"},
 118     {CL_OUT_OF_RESOURCES,                               "OUT OF RESOURCES"},
 119     {CL_OUT_OF_HOST_MEMORY,                             "OUT OF HOST MEMORY"},
 120     {CL_PROFILING_INFO_NOT_AVAILABLE,                   "PROFILING INFO NOT AVAILABLE"},
 121     {CL_MEM_COPY_OVERLAP,                               "MEM COPY OVERLAP"},
 122     {CL_IMAGE_FORMAT_MISMATCH,                          "IMAGE FORMAT MISMATCH"},
 123     {CL_IMAGE_FORMAT_NOT_SUPPORTED,                     "IMAGE FORMAT NOT_SUPPORTED"},
 124     {CL_BUILD_PROGRAM_FAILURE,                          "BUILD PROGRAM FAILURE"},
 125     {CL_MAP_FAILURE,                                    "MAP FAILURE"},
 126     {CL_MISALIGNED_SUB_BUFFER_OFFSET,                   "MISALIGNED SUB BUFFER OFFSET"},
 127     {CL_EXEC_STATUS_ERROR_FOR_EVENTS_IN_WAIT_LIST,      "EXEC STATUS ERROR FOR EVENTS IN WAIT LIST"},
 128     {CL_COMPILE_PROGRAM_FAILURE,                        "COMPILE PROGRAM FAILURE"},
 129     {CL_LINKER_NOT_AVAILABLE,                           "LINKER NOT AVAILABLE"},
 130     {CL_LINK_PROGRAM_FAILURE,                           "LINK PROGRAM FAILURE"},
 131     {CL_DEVICE_PARTITION_FAILED,                        "DEVICE PARTITION FAILED"},
 132     {CL_KERNEL_ARG_INFO_NOT_AVAILABLE,                  "KERNEL ARG INFO NOT AVAILABLE"},
 133     {CL_INVALID_VALUE,                                  "INVALID VALUE"},
 134     {CL_INVALID_DEVICE_TYPE,                            "INVALID DEVICE TYPE"},
 135     {CL_INVALID_PLATFORM,                               "INVALID PLATFORM"},
 136     {CL_INVALID_DEVICE,                                 "INVALID DEVICE"},
 137     {CL_INVALID_CONTEXT,                                "INVALID CONTEXT"},
 138     {CL_INVALID_QUEUE_PROPERTIES,                       "INVALID QUEUE PROPERTIES"},
 139     {CL_INVALID_COMMAND_QUEUE,                          "INVALID COMMAND QUEUE"},
 140     {CL_INVALID_HOST_PTR,                               "INVALID HOST PTR"},
 141     {CL_INVALID_MEM_OBJECT,                             "INVALID MEM OBJECT"},
 142     {CL_INVALID_IMAGE_FORMAT_DESCRIPTOR,                "INVALID IMAGE FORMAT DESCRIPTOR"},
 143     {CL_INVALID_IMAGE_SIZE,                             "INVALID IMAGE SIZE"},
 144     {CL_INVALID_SAMPLER,                                "INVALID SAMPLER"},
 145     {CL_INVALID_BINARY,                                 "INVALID BINARY"},
 146     {CL_INVALID_BUILD_OPTIONS,                          "INVALID BUILD OPTIONS"},
 147     {CL_INVALID_PROGRAM,                                "INVALID PROGRAM"},
 148     {CL_INVALID_PROGRAM_EXECUTABLE,                     "INVALID PROGRAM EXECUTABLE"},
 149     {CL_INVALID_KERNEL_NAME,                            "INVALID KERNEL NAME"},
 150     {CL_INVALID_KERNEL_DEFINITION,                      "INVALID KERNEL DEFINITION"},
 151     {CL_INVALID_KERNEL,                                 "INVALID KERNEL"},
 152     {CL_INVALID_ARG_INDEX,                              "INVALID ARG INDEX"},
 153     {CL_INVALID_ARG_VALUE,                              "INVALID ARG VALUE"},
 154     {CL_INVALID_ARG_SIZE,                               "INVALID ARG_SIZE"},
 155     {CL_INVALID_KERNEL_ARGS,                            "INVALID KERNEL ARGS"},
 156     {CL_INVALID_WORK_DIMENSION,                         "INVALID WORK DIMENSION"},
 157     {CL_INVALID_WORK_GROUP_SIZE,                        "INVALID WORK GROUP SIZE"},
 158     {CL_INVALID_WORK_ITEM_SIZE,                         "INVALID WORK ITEM SIZE"},
 159     {CL_INVALID_GLOBAL_OFFSET,                          "INVALID GLOBAL OFFSET"},
 160     {CL_INVALID_EVENT_WAIT_LIST,                        "INVALID EVENT WAIT LIST"},
 161     {CL_INVALID_EVENT,                                  "INVALID EVENT"},
 162     {CL_INVALID_OPERATION,                              "INVALID OPERATION"},
 163     {CL_INVALID_GL_OBJECT,                              "INVALID GL OBJECT"},
 164     {CL_INVALID_BUFFER_SIZE,                            "INVALID BUFFER SIZE"},
 165     {CL_INVALID_MIP_LEVEL,                              "INVALID MIP LEVEL"},
 166     {CL_INVALID_GLOBAL_WORK_SIZE,                       "INVALID GLOBAL WORK SIZE"},
 167     {CL_INVALID_PROPERTY,                               "INVALID PROPERTY"},
 168     {CL_INVALID_IMAGE_DESCRIPTOR,                       "INVALID IMAGE DESCRIPTOR"},
 169     {CL_INVALID_COMPILER_OPTIONS,                       "INVALID COMPILER OPTIONS"},
 170     {CL_INVALID_LINKER_OPTIONS,                         "INVALID LINKER OPTIONS"},
 171     {CL_INVALID_DEVICE_PARTITION_COUNT,                 "INVALID DEVICE PARTITION COUNT"},
 172 };
 173
 174 const char *av_opencl_errstr(cl_int status)
 175 {
 176     int i;
 177     for (i = 0; i < FF_ARRAY_ELEMS(opencl_err_msg); i++) {
 178         if (opencl_err_msg[i].err_code == status)
 179             return opencl_err_msg[i].err_str;
 180     }
 181     return "unknown error";
 182 }
 183
 184 static void free_device_list(AVOpenCLDeviceList *device_list)
 185 {
 186     int i, j;
 187     if (!device_list)
 188         return;
 189     for (i = 0; i < device_list->platform_num; i++) {
 190         if (!device_list->platform_node[i])
 191             continue;
 192         for (j = 0; j < device_list->platform_node[i]->device_num; j++) {
 193             av_freep(&(device_list->platform_node[i]->device_node[j]));
 194         }
 195         av_freep(&device_list->platform_node[i]->device_node);
 196         av_freep(&device_list->platform_node[i]);
 197     }
 198     av_freep(&device_list->platform_node);
 199     device_list->platform_num = 0;
 200 }
 201
 202 static int get_device_list(AVOpenCLDeviceList *device_list)
 203 {
 204     cl_int status;
 205     int i, j, k, device_num, total_devices_num, ret = 0;
 206     int *devices_num;
 207     cl_platform_id *platform_ids = NULL;
 208     cl_device_id *device_ids = NULL;
 209     AVOpenCLDeviceNode *device_node = NULL;
 210     status = clGetPlatformIDs(0, NULL, &device_list->platform_num);
 211     if (status != CL_SUCCESS) {
 212         av_log(&opencl_ctx, AV_LOG_ERROR,
 213                "Could not get OpenCL platform ids: %s\n", av_opencl_errstr(status));
 214         return AVERROR_EXTERNAL;
 215     }
 216     platform_ids = av_mallocz(device_list->platform_num * sizeof(cl_platform_id));
 217     if (!platform_ids)
 218         return AVERROR(ENOMEM);
 219     status = clGetPlatformIDs(device_list->platform_num, platform_ids, NULL);
 220     if (status != CL_SUCCESS) {
 221         av_log(&opencl_ctx, AV_LOG_ERROR,
 222                 "Could not get OpenCL platform ids: %s\n", av_opencl_errstr(status));
 223         ret = AVERROR_EXTERNAL;
 224         goto end;
 225     }
 226     device_list->platform_node = av_mallocz(device_list->platform_num * sizeof(AVOpenCLPlatformNode *));
 227     if (!device_list->platform_node) {
 228         ret = AVERROR(ENOMEM);
 229         goto end;
 230     }
 231     devices_num = av_mallocz(sizeof(int) * FF_ARRAY_ELEMS(device_type));
 232     if (!devices_num) {
 233         ret = AVERROR(ENOMEM);
 234         goto end;
 235     }
 236     for (i = 0; i < device_list->platform_num; i++) {
 237         device_list->platform_node[i] = av_mallocz(sizeof(AVOpenCLPlatformNode));
 238         if (!device_list->platform_node[i]) {
 239             ret = AVERROR(ENOMEM);
 240             goto end;
 241         }
 242         device_list->platform_node[i]->platform_id = platform_ids[i];
 243         status = clGetPlatformInfo(platform_ids[i], CL_PLATFORM_VENDOR,
 244                                    sizeof(device_list->platform_node[i]->platform_name),
 245                                    device_list->platform_node[i]->platform_name, NULL);
 246         total_devices_num = 0;
 247         for (j = 0; j < FF_ARRAY_ELEMS(device_type); j++) {
 248             status = clGetDeviceIDs(device_list->platform_node[i]->platform_id,
 249                                     device_type[j], 0, NULL, &devices_num[j]);
 250             total_devices_num += devices_num[j];
 251         }
 252         device_list->platform_node[i]->device_node = av_mallocz(total_devices_num * sizeof(AVOpenCLDeviceNode *));
 253         if (!device_list->platform_node[i]->device_node) {
 254             ret = AVERROR(ENOMEM);
 255             goto end;
 256         }
 257         for (j = 0; j < FF_ARRAY_ELEMS(device_type); j++) {
 258             if (devices_num[j]) {
 259                 device_ids = av_mallocz(devices_num[j] * sizeof(cl_device_id));
 260                 if (!device_ids) {
 261                     ret = AVERROR(ENOMEM);
 262                     goto end;
 263                 }
 264                 status = clGetDeviceIDs(device_list->platform_node[i]->platform_id, device_type[j],
 265                                         devices_num[j], device_ids, NULL);
 266                 if (status != CL_SUCCESS) {
 267                     av_log(&opencl_ctx, AV_LOG_WARNING,
 268                             "Could not get device ID: %s:\n", av_opencl_errstr(status));
 269                     av_freep(&device_ids);
 270                     continue;
 271                 }
 272                 for (k = 0; k < devices_num[j]; k++) {
 273                     device_num = device_list->platform_node[i]->device_num;
 274                     device_list->platform_node[i]->device_node[device_num] = av_mallocz(sizeof(AVOpenCLDeviceNode));
 275                     if (!device_list->platform_node[i]->device_node[device_num]) {
 276                         ret = AVERROR(ENOMEM);
 277                         goto end;
 278                     }
 279                     device_node = device_list->platform_node[i]->device_node[device_num];
 280                     device_node->device_id = device_ids[k];
 281                     device_node->device_type = device_type[j];
 282                     status = clGetDeviceInfo(device_node->device_id, CL_DEVICE_NAME,
 283                                              sizeof(device_node->device_name), device_node->device_name,
 284                                              NULL);
 285                     if (status != CL_SUCCESS) {
 286                         av_log(&opencl_ctx, AV_LOG_WARNING,
 287                                 "Could not get device name: %s\n", av_opencl_errstr(status));
 288                         continue;
 289                     }
 290                     device_list->platform_node[i]->device_num++;
 291                 }
 292                 av_freep(&device_ids);
 293             }
 294         }
 295     }
 296 end:
 297     av_freep(&platform_ids);
 298     av_freep(&devices_num);
 299     av_freep(&device_ids);
 300     if (ret < 0)
 301         free_device_list(device_list);
 302     return ret;
 303 }
 304
 305 int av_opencl_get_device_list(AVOpenCLDeviceList **device_list)
 306 {
 307     int ret = 0;
 308     *device_list = av_mallocz(sizeof(AVOpenCLDeviceList));
 309     if (!(*device_list)) {
 310         av_log(&opencl_ctx, AV_LOG_ERROR, "Could not allocate opencl device list\n");
 311         return AVERROR(ENOMEM);
 312     }
 313     ret = get_device_list(*device_list);
 314     if (ret < 0) {
 315         av_log(&opencl_ctx, AV_LOG_ERROR, "Could not get device list from environment\n");
 316         free_device_list(*device_list);
 317         av_freep(device_list);
 318         return ret;
 319     }
 320     return ret;
 321 }
 322
 323 void av_opencl_free_device_list(AVOpenCLDeviceList **device_list)
 324 {
 325     free_device_list(*device_list);
 326     av_freep(device_list);
 327 }
 328
 329 static inline int init_opencl_mtx(void)
 330 {
 331 #if HAVE_THREADS
 332     if (!atomic_opencl_lock) {
 333         int err;
 334         pthread_mutex_t *tmp = av_malloc(sizeof(pthread_mutex_t));
 335         if (!tmp)
 336             return AVERROR(ENOMEM);
 337         if ((err = pthread_mutex_init(tmp, NULL))) {
 338             av_free(tmp);
 339             return AVERROR(err);
 340         }
 341         if (avpriv_atomic_ptr_cas(&atomic_opencl_lock, NULL, tmp)) {
 342             pthread_mutex_destroy(tmp);
 343             av_free(tmp);
 344         }
 345     }
 346 #endif
 347     return 0;
 348 }
 349
 350 int av_opencl_set_option(const char *key, const char *val)
 351 {
 352     int ret = init_opencl_mtx( );
 353     if (ret < 0)
 354         return ret;
 355     LOCK_OPENCL;
 356     if (!opencl_ctx.opt_init_flag) {
 357         av_opt_set_defaults(&opencl_ctx);
 358         opencl_ctx.opt_init_flag = 1;
 359     }
 360     ret = av_opt_set(&opencl_ctx, key, val, 0);
 361     UNLOCK_OPENCL;
 362     return ret;
 363 }
 364
 365 int av_opencl_get_option(const char *key, uint8_t **out_val)
 366 {
 367     int ret = 0;
 368     LOCK_OPENCL;
 369     ret = av_opt_get(&opencl_ctx, key, 0, out_val);
 370     UNLOCK_OPENCL;
 371     return ret;
 372 }
 373
 374 void av_opencl_free_option(void)
 375 {
 376     /*FIXME: free openclutils context*/
 377     LOCK_OPENCL;
 378     av_opt_free(&opencl_ctx);
 379     UNLOCK_OPENCL;
 380 }
 381
 382 AVOpenCLExternalEnv *av_opencl_alloc_external_env(void)
 383 {
 384     AVOpenCLExternalEnv *ext = av_mallocz(sizeof(AVOpenCLExternalEnv));
 385     if (!ext) {
 386         av_log(&opencl_ctx, AV_LOG_ERROR,
 387                "Could not malloc external opencl environment data space\n");
 388     }
 389     return ext;
 390 }
 391
 392 void av_opencl_free_external_env(AVOpenCLExternalEnv **ext_opencl_env)
 393 {
 394     av_freep(ext_opencl_env);
 395 }
 396
 397 int av_opencl_register_kernel_code(const char *kernel_code)
 398 {
 399     int i, ret = init_opencl_mtx( );
 400     if (ret < 0)
 401         return ret;
 402     LOCK_OPENCL;
 403     if (opencl_ctx.kernel_code_count >= MAX_KERNEL_CODE_NUM) {
 404         av_log(&opencl_ctx, AV_LOG_ERROR,
 405                "Could not register kernel code, maximum number of registered kernel code %d already reached\n",
 406                MAX_KERNEL_CODE_NUM);
 407         ret = AVERROR(EINVAL);
 408         goto end;
 409     }
 410     for (i = 0; i < opencl_ctx.kernel_code_count; i++) {
 411         if (opencl_ctx.kernel_code[i].kernel_string == kernel_code) {
 412             av_log(&opencl_ctx, AV_LOG_WARNING, "Same kernel code has been registered\n");
 413             goto end;
 414         }
 415     }
 416     opencl_ctx.kernel_code[opencl_ctx.kernel_code_count].kernel_string = kernel_code;
 417     opencl_ctx.kernel_code[opencl_ctx.kernel_code_count].is_compiled = 0;
 418     opencl_ctx.kernel_code_count++;
 419 end:
 420     UNLOCK_OPENCL;
 421     return ret;
 422 }
 423
 424 cl_program av_opencl_compile(const char *program_name, const char *build_opts)
 425 {
 426     int i;
 427     cl_int status;
 428     int kernel_code_idx = 0;
 429     const char *kernel_source;
 430     size_t kernel_code_len;
 431     char* ptr = NULL;
 432     cl_program program = NULL;
 433
 434     LOCK_OPENCL;
 435     for (i = 0; i < opencl_ctx.kernel_code_count; i++) {
 436         // identify a program using a unique name within the kernel source
 437         ptr = av_stristr(opencl_ctx.kernel_code[i].kernel_string, program_name);
 438         if (ptr && !opencl_ctx.kernel_code[i].is_compiled) {
 439             kernel_source = opencl_ctx.kernel_code[i].kernel_string;
 440             kernel_code_len = strlen(opencl_ctx.kernel_code[i].kernel_string);
 441             kernel_code_idx = i;
 442             break;
 443         }
 444     }
 445     if (!kernel_source) {
 446         av_log(&opencl_ctx, AV_LOG_ERROR,
 447                "Unable to find OpenCL kernel source '%s'\n", program_name);
 448         goto end;
 449     }
 450
 451     /* create a CL program from kernel source */
 452     program = clCreateProgramWithSource(opencl_ctx.context, 1, &kernel_source, &kernel_code_len, &status);
 453     if(status != CL_SUCCESS) {
 454         av_log(&opencl_ctx, AV_LOG_ERROR,
 455                "Unable to create OpenCL program '%s': %s\n", program_name, av_opencl_errstr(status));
 456         program = NULL;
 457         goto end;
 458     }
 459     status = clBuildProgram(program, 1, &(opencl_ctx.device_id), build_opts, NULL, NULL);
 460     if (status != CL_SUCCESS) {
 461         av_log(&opencl_ctx, AV_LOG_ERROR,
 462                "Compilation failed with OpenCL program: %s\n", program_name);
 463         program = NULL;
 464         goto end;
 465     }
 466
 467     opencl_ctx.kernel_code[kernel_code_idx].is_compiled = 1;
 468 end:
 469     UNLOCK_OPENCL;
 470     return program;
 471 }
 472
 473 cl_command_queue av_opencl_get_command_queue(void)
 474 {
 475     return opencl_ctx.command_queue;
 476 }
 477
 478 #if FF_API_OLD_OPENCL
 479 int av_opencl_create_kernel(AVOpenCLKernelEnv *env, const char *kernel_name)
 480 {
 481     av_log(&opencl_ctx, AV_LOG_ERROR, "Could not create OpenCL kernel %s, please update libavfilter.\n", kernel_name);
 482     return AVERROR(EINVAL);
 483 }
 484
 485 void av_opencl_release_kernel(AVOpenCLKernelEnv *env)
 486 {
 487     av_log(&opencl_ctx, AV_LOG_ERROR, "Could not release OpenCL kernel, please update libavfilter.\n");
 488 }
 489 #endif
 490
 491 static int init_opencl_env(OpenclContext *opencl_ctx, AVOpenCLExternalEnv *ext_opencl_env)
 492 {
 493     cl_int status;
 494     cl_context_properties cps[3];
 495     int i, ret = 0;
 496     AVOpenCLDeviceNode *device_node = NULL;
 497
 498     if (ext_opencl_env) {
 499         if (opencl_ctx->is_user_created)
 500             return 0;
 501         opencl_ctx->platform_id     = ext_opencl_env->platform_id;
 502         opencl_ctx->is_user_created = 1;
 503         opencl_ctx->command_queue   = ext_opencl_env->command_queue;
 504         opencl_ctx->context         = ext_opencl_env->context;
 505         opencl_ctx->device_id       = ext_opencl_env->device_id;
 506         opencl_ctx->device_type     = ext_opencl_env->device_type;
 507     } else {
 508         if (!opencl_ctx->is_user_created) {
 509             if (!opencl_ctx->device_list.platform_num) {
 510                 ret = get_device_list(&opencl_ctx->device_list);
 511                 if (ret < 0) {
 512                     return ret;
 513                 }
 514             }
 515             if (opencl_ctx->platform_idx >= 0) {
 516                 if (opencl_ctx->device_list.platform_num < opencl_ctx->platform_idx + 1) {
 517                     av_log(opencl_ctx, AV_LOG_ERROR, "User set platform index not exist\n");
 518                     return AVERROR(EINVAL);
 519                 }
 520                 if (!opencl_ctx->device_list.platform_node[opencl_ctx->platform_idx]->device_num) {
 521                     av_log(opencl_ctx, AV_LOG_ERROR, "No devices in user specific platform with index %d\n",
 522                            opencl_ctx->platform_idx);
 523                     return AVERROR(EINVAL);
 524                 }
 525                 opencl_ctx->platform_id = opencl_ctx->device_list.platform_node[opencl_ctx->platform_idx]->platform_id;
 526             } else {
 527                 /* get a usable platform by default*/
 528                 for (i = 0; i < opencl_ctx->device_list.platform_num; i++) {
 529                     if (opencl_ctx->device_list.platform_node[i]->device_num) {
 530                         opencl_ctx->platform_id = opencl_ctx->device_list.platform_node[i]->platform_id;
 531                         opencl_ctx->platform_idx = i;
 532                         break;
 533                     }
 534                 }
 535             }
 536             if (!opencl_ctx->platform_id) {
 537                 av_log(opencl_ctx, AV_LOG_ERROR, "Could not get OpenCL platforms\n");
 538                 return AVERROR_EXTERNAL;
 539             }
 540             /* get a usable device*/
 541             if (opencl_ctx->device_idx >= 0) {
 542                 if (opencl_ctx->device_list.platform_node[opencl_ctx->platform_idx]->device_num < opencl_ctx->device_idx + 1) {
 543                     av_log(opencl_ctx, AV_LOG_ERROR,
 544                            "Could not get OpenCL device idx %d in the user set platform\n", opencl_ctx->platform_idx);
 545                     return AVERROR(EINVAL);
 546                 }
 547             } else {
 548                 opencl_ctx->device_idx = 0;
 549             }
 550
 551             device_node = opencl_ctx->device_list.platform_node[opencl_ctx->platform_idx]->device_node[opencl_ctx->device_idx];
 552             opencl_ctx->device_id = device_node->device_id;
 553             opencl_ctx->device_type = device_node->device_type;
 554
 555             /*
 556              * Use available platform.
 557              */
 558             av_log(opencl_ctx, AV_LOG_VERBOSE, "Platform Name: %s, Device Name: %s\n",
 559                    opencl_ctx->device_list.platform_node[opencl_ctx->platform_idx]->platform_name,
 560                    device_node->device_name);
 561             cps[0] = CL_CONTEXT_PLATFORM;
 562             cps[1] = (cl_context_properties)opencl_ctx->platform_id;
 563             cps[2] = 0;
 564
 565             opencl_ctx->context = clCreateContextFromType(cps, opencl_ctx->device_type,
 566                                                        NULL, NULL, &status);
 567             if (status != CL_SUCCESS) {
 568                 av_log(opencl_ctx, AV_LOG_ERROR,
 569                        "Could not get OpenCL context from device type: %s\n", av_opencl_errstr(status));
 570                 return AVERROR_EXTERNAL;
 571             }
 572             opencl_ctx->command_queue = clCreateCommandQueue(opencl_ctx->context, opencl_ctx->device_id,
 573                                                           0, &status);
 574             if (status != CL_SUCCESS) {
 575                 av_log(opencl_ctx, AV_LOG_ERROR,
 576                        "Could not create OpenCL command queue: %s\n", av_opencl_errstr(status));
 577                 return AVERROR_EXTERNAL;
 578             }
 579         }
 580     }
 581     return ret;
 582 }
 583
 584 int av_opencl_init(AVOpenCLExternalEnv *ext_opencl_env)
 585 {
 586     int ret = init_opencl_mtx( );
 587     if (ret < 0)
 588         return ret;
 589     LOCK_OPENCL;
 590     if (!opencl_ctx.init_count) {
 591         if (!opencl_ctx.opt_init_flag) {
 592             av_opt_set_defaults(&opencl_ctx);
 593             opencl_ctx.opt_init_flag = 1;
 594         }
 595         ret = init_opencl_env(&opencl_ctx, ext_opencl_env);
 596         if (ret < 0)
 597             goto end;
 598         if (opencl_ctx.kernel_code_count <= 0) {
 599             av_log(&opencl_ctx, AV_LOG_ERROR,
 600                    "No kernel code is registered, compile kernel file failed\n");
 601             ret = AVERROR(EINVAL);
 602             goto end;
 603         }
 604     }
 605     opencl_ctx.init_count++;
 606 end:
 607     UNLOCK_OPENCL;
 608     return ret;
 609 }
 610
 611 void av_opencl_uninit(void)
 612 {
 613     cl_int status;
 614     LOCK_OPENCL;
 615     opencl_ctx.init_count--;
 616     if (opencl_ctx.is_user_created)
 617         goto end;
 618     if (opencl_ctx.init_count > 0)
 619         goto end;
 620     if (opencl_ctx.command_queue) {
 621         status = clReleaseCommandQueue(opencl_ctx.command_queue);
 622         if (status != CL_SUCCESS) {
 623             av_log(&opencl_ctx, AV_LOG_ERROR,
 624                    "Could not release OpenCL command queue: %s\n", av_opencl_errstr(status));
 625         }
 626         opencl_ctx.command_queue = NULL;
 627     }
 628     if (opencl_ctx.context) {
 629         status = clReleaseContext(opencl_ctx.context);
 630         if (status != CL_SUCCESS) {
 631             av_log(&opencl_ctx, AV_LOG_ERROR,
 632                    "Could not release OpenCL context: %s\n", av_opencl_errstr(status));
 633         }
 634         opencl_ctx.context = NULL;
 635     }
 636     free_device_list(&opencl_ctx.device_list);
 637 end:
 638     if (opencl_ctx.init_count <= 0)
 639         av_opt_free(&opencl_ctx); //FIXME: free openclutils context
 640     UNLOCK_OPENCL;
 641 }
 642
 643 int av_opencl_buffer_create(cl_mem *cl_buf, size_t cl_buf_size, int flags, void *host_ptr)
 644 {
 645     cl_int status;
 646     *cl_buf = clCreateBuffer(opencl_ctx.context, flags, cl_buf_size, host_ptr, &status);
 647     if (status != CL_SUCCESS) {
 648         av_log(&opencl_ctx, AV_LOG_ERROR, "Could not create OpenCL buffer: %s\n", av_opencl_errstr(status));
 649         return AVERROR_EXTERNAL;
 650     }
 651     return 0;
 652 }
 653
 654 void av_opencl_buffer_release(cl_mem *cl_buf)
 655 {
 656     cl_int status = 0;
 657     if (!cl_buf)
 658         return;
 659     status = clReleaseMemObject(*cl_buf);
 660     if (status != CL_SUCCESS) {
 661         av_log(&opencl_ctx, AV_LOG_ERROR,
 662                "Could not release OpenCL buffer: %s\n", av_opencl_errstr(status));
 663     }
 664     memset(cl_buf, 0, sizeof(*cl_buf));
 665 }
 666
 667 int av_opencl_buffer_write(cl_mem dst_cl_buf, uint8_t *src_buf, size_t buf_size)
 668 {
 669     cl_int status;
 670     void *mapped = clEnqueueMapBuffer(opencl_ctx.command_queue, dst_cl_buf,
 671                                       CL_TRUE, CL_MAP_WRITE, 0, sizeof(uint8_t) * buf_size,
 672                                       0, NULL, NULL, &status);
 673
 674     if (status != CL_SUCCESS) {
 675         av_log(&opencl_ctx, AV_LOG_ERROR,
 676                "Could not map OpenCL buffer: %s\n", av_opencl_errstr(status));
 677         return AVERROR_EXTERNAL;
 678     }
 679     memcpy(mapped, src_buf, buf_size);
 680
 681     status = clEnqueueUnmapMemObject(opencl_ctx.command_queue, dst_cl_buf, mapped, 0, NULL, NULL);
 682     if (status != CL_SUCCESS) {
 683         av_log(&opencl_ctx, AV_LOG_ERROR,
 684                "Could not unmap OpenCL buffer: %s\n", av_opencl_errstr(status));
 685         return AVERROR_EXTERNAL;
 686     }
 687     return 0;
 688 }
 689
 690 int av_opencl_buffer_read(uint8_t *dst_buf, cl_mem src_cl_buf, size_t buf_size)
 691 {
 692     cl_int status;
 693     void *mapped = clEnqueueMapBuffer(opencl_ctx.command_queue, src_cl_buf,
 694                                       CL_TRUE, CL_MAP_READ, 0, buf_size,
 695                                       0, NULL, NULL, &status);
 696
 697     if (status != CL_SUCCESS) {
 698         av_log(&opencl_ctx, AV_LOG_ERROR,
 699                "Could not map OpenCL buffer: %s\n", av_opencl_errstr(status));
 700         return AVERROR_EXTERNAL;
 701     }
 702     memcpy(dst_buf, mapped, buf_size);
 703
 704     status = clEnqueueUnmapMemObject(opencl_ctx.command_queue, src_cl_buf, mapped, 0, NULL, NULL);
 705     if (status != CL_SUCCESS) {
 706         av_log(&opencl_ctx, AV_LOG_ERROR,
 707                "Could not unmap OpenCL buffer: %s\n", av_opencl_errstr(status));
 708         return AVERROR_EXTERNAL;
 709     }
 710     return 0;
 711 }
 712
 713 int av_opencl_buffer_write_image(cl_mem dst_cl_buf, size_t cl_buffer_size, int dst_cl_offset,
 714                                  uint8_t **src_data, int *plane_size, int plane_num)
 715 {
 716     int i, buffer_size = 0;
 717     uint8_t *temp;
 718     cl_int status;
 719     void *mapped;
 720     if ((unsigned int)plane_num > 8) {
 721         return AVERROR(EINVAL);
 722     }
 723     for (i = 0;i < plane_num;i++) {
 724         buffer_size += plane_size[i];
 725     }
 726     if (buffer_size > cl_buffer_size) {
 727         av_log(&opencl_ctx, AV_LOG_ERROR,
 728                "Cannot write image to OpenCL buffer: buffer too small\n");
 729         return AVERROR(EINVAL);
 730     }
 731     mapped = clEnqueueMapBuffer(opencl_ctx.command_queue, dst_cl_buf,
 732                                 CL_TRUE, CL_MAP_WRITE, 0, buffer_size + dst_cl_offset,
 733                                 0, NULL, NULL, &status);
 734     if (status != CL_SUCCESS) {
 735         av_log(&opencl_ctx, AV_LOG_ERROR,
 736                "Could not map OpenCL buffer: %s\n", av_opencl_errstr(status));
 737         return AVERROR_EXTERNAL;
 738     }
 739     temp = mapped;
 740     temp += dst_cl_offset;
 741     for (i = 0; i < plane_num; i++) {
 742         memcpy(temp, src_data[i], plane_size[i]);
 743         temp += plane_size[i];
 744     }
 745     status = clEnqueueUnmapMemObject(opencl_ctx.command_queue, dst_cl_buf, mapped, 0, NULL, NULL);
 746     if (status != CL_SUCCESS) {
 747         av_log(&opencl_ctx, AV_LOG_ERROR,
 748                "Could not unmap OpenCL buffer: %s\n", av_opencl_errstr(status));
 749         return AVERROR_EXTERNAL;
 750     }
 751     return 0;
 752 }
 753
 754 int av_opencl_buffer_read_image(uint8_t **dst_data, int *plane_size, int plane_num,
 755                                 cl_mem src_cl_buf, size_t cl_buffer_size)
 756 {
 757     int i,buffer_size = 0,ret = 0;
 758     uint8_t *temp;
 759     void *mapped;
 760     cl_int status;
 761     if ((unsigned int)plane_num > 8) {
 762         return AVERROR(EINVAL);
 763     }
 764     for (i = 0; i < plane_num; i++) {
 765         buffer_size += plane_size[i];
 766     }
 767     if (buffer_size > cl_buffer_size) {
 768         av_log(&opencl_ctx, AV_LOG_ERROR,
 769                "Cannot write image to CPU buffer: OpenCL buffer too small\n");
 770         return AVERROR(EINVAL);
 771     }
 772     mapped = clEnqueueMapBuffer(opencl_ctx.command_queue, src_cl_buf,
 773                                 CL_TRUE, CL_MAP_READ, 0, buffer_size,
 774                                 0, NULL, NULL, &status);
 775
 776     if (status != CL_SUCCESS) {
 777         av_log(&opencl_ctx, AV_LOG_ERROR,
 778                "Could not map OpenCL buffer: %s\n", av_opencl_errstr(status));
 779         return AVERROR_EXTERNAL;
 780     }
 781     temp = mapped;
 782     if (ret >= 0) {
 783         for (i = 0; i < plane_num; i++) {
 784             memcpy(dst_data[i], temp, plane_size[i]);
 785             temp += plane_size[i];
 786         }
 787     }
 788     status = clEnqueueUnmapMemObject(opencl_ctx.command_queue, src_cl_buf, mapped, 0, NULL, NULL);
 789     if (status != CL_SUCCESS) {
 790         av_log(&opencl_ctx, AV_LOG_ERROR,
 791                "Could not unmap OpenCL buffer: %s\n", av_opencl_errstr(status));
 792         return AVERROR_EXTERNAL;
 793     }
 794     return 0;
 795 }
 796
 797 int64_t av_opencl_benchmark(AVOpenCLDeviceNode *device_node, cl_platform_id platform,
 798                             int64_t (*benchmark)(AVOpenCLExternalEnv *ext_opencl_env))
 799 {
 800     int64_t ret = 0;
 801     cl_int status;
 802     cl_context_properties cps[3];
 803     AVOpenCLExternalEnv *ext_opencl_env = NULL;
 804
 805     ext_opencl_env = av_opencl_alloc_external_env();
 806     ext_opencl_env->device_id = device_node->device_id;
 807     ext_opencl_env->device_type = device_node->device_type;
 808     av_log(&opencl_ctx, AV_LOG_VERBOSE, "Performing test on OpenCL device %s\n",
 809            device_node->device_name);
 810
 811     cps[0] = CL_CONTEXT_PLATFORM;
 812     cps[1] = (cl_context_properties)platform;
 813     cps[2] = 0;
 814     ext_opencl_env->context = clCreateContextFromType(cps, ext_opencl_env->device_type,
 815                                                       NULL, NULL, &status);
 816     if (status != CL_SUCCESS || !ext_opencl_env->context) {
 817         ret = AVERROR_EXTERNAL;
 818         goto end;
 819     }
 820     ext_opencl_env->command_queue = clCreateCommandQueue(ext_opencl_env->context,
 821                                                          ext_opencl_env->device_id, 0, &status);
 822     if (status != CL_SUCCESS || !ext_opencl_env->command_queue) {
 823         ret = AVERROR_EXTERNAL;
 824         goto end;
 825     }
 826     ret = benchmark(ext_opencl_env);
 827     if (ret < 0)
 828         av_log(&opencl_ctx, AV_LOG_ERROR, "Benchmark failed with OpenCL device %s\n",
 829                device_node->device_name);
 830 end:
 831     if (ext_opencl_env->command_queue)
 832         clReleaseCommandQueue(ext_opencl_env->command_queue);
 833     if (ext_opencl_env->context)
 834         clReleaseContext(ext_opencl_env->context);
 835     av_opencl_free_external_env(&ext_opencl_env);
 836     return ret;
 837 }