cl_int pocl_create_event (cl_event *event, cl_context context,
cl_command_queue command_queue,
cl_command_type command_type)
{
if (context == NULL || !(context->valid))
return CL_INVALID_CONTEXT;
if (event != NULL)
{
*event = pocl_mem_manager_new_event ();
if (event == NULL)
return CL_OUT_OF_HOST_MEMORY;
(*event)->context = context;
POname(clRetainContext) (context);
(*event)->queue = command_queue;
/* user events have a NULL command queue, don't retain it */
if (command_queue)
POname(clRetainCommandQueue) (command_queue);
(*event)->command_type = command_type;
(*event)->callback_list = NULL;
(*event)->implicit_event = 0;
(*event)->next = NULL;
}
return CL_SUCCESS;
}
cl_int pocl_create_event (cl_event *event, cl_command_queue command_queue,
cl_command_type command_type)
{
if (event != NULL)
{
*event = pocl_mem_manager_new_event ();
if (event == NULL)
return CL_OUT_OF_HOST_MEMORY;
(*event)->queue = command_queue;
POname(clRetainCommandQueue) (command_queue);
(*event)->command_type = command_type;
(*event)->callback_list = NULL;
(*event)->implicit_event = 0;
(*event)->next = NULL;
}
return CL_SUCCESS;
}