[PATCH] opencl: Add OpenCL 1.1 implementation.
Nikolay Sivov
nsivov at codeweavers.com
Sat Mar 2 06:18:55 CST 2019
On 3/2/19 2:02 PM, Khral Steelforge wrote:
> Signed-off-by: Nakarin Khankham <garuda2550 at gmail.com>
> ---
> dlls/opencl/opencl.c | 188 ++++++++++++++++++++++++++++++++++++++++
> dlls/opencl/opencl.spec | 10 +++
> 2 files changed, 198 insertions(+)
>
> diff --git a/dlls/opencl/opencl.c b/dlls/opencl/opencl.c
> index 2d145bf25c..ec046a669e 100644
> --- a/dlls/opencl/opencl.c
> +++ b/dlls/opencl/opencl.c
> @@ -295,6 +295,21 @@ cl_mem WINAPI wine_clCreateBuffer(cl_context context, cl_mem_flags flags, size_t
> return ret;
> }
>
> +cl_mem WINAPI wine_clCreateSubBuffer(cl_mem buffer, cl_mem_flags flags,
> + cl_buffer_create_type buffer_create_type, const void * buffer_create_info, cl_int * errcode_ret)
> +{
> +#ifdef CL_VERSION_1_1
> + cl_mem ret;
> + TRACE("\n");
> + ret = clCreateSubBuffer(buffer, flags, buffer_create_type, buffer_create_info, errcode_ret);
> + return ret;
> +#else
> + FIXME("stub\n");
> + *errcode_ret = CL_SUCCESS;
> + return NULL;
> +#endif
> +}
> +
Looks like this should be accessed dynamically. How capabilities are
reported for OpenCL, e.g. if I've built this with 1.1+ dev library
support, and run it on 1.0 host what should happen when application sees
1.1 export?
> cl_mem WINAPI wine_clCreateImage2D(cl_context context, cl_mem_flags flags, cl_image_format * image_format,
> size_t image_width, size_t image_height, size_t image_row_pitch, void * host_ptr, cl_int * errcode_ret)
> {
> @@ -357,6 +372,51 @@ cl_int WINAPI wine_clGetImageInfo(cl_mem image, cl_image_info param_name, size_t
> return ret;
> }
>
> +#ifdef CL_VERSION_1_1
> +typedef struct
> +{
> + void WINAPI (*pfn_notify)(cl_mem memobj, void* user_data);
> + void *user_data;
> +} MEM_CALLBACK;
> +
> +static void mem_fn_notify(cl_mem memobj, void* user_data)
> +{
> + MEM_CALLBACK *pcb;
> + FIXME("(%p, %p)\n", memobj, user_data);
> + pcb = (MEM_CALLBACK *) user_data;
> + if(pcb->pfn_notify) pcb->pfn_notify(memobj, pcb->user_data);
> + FIXME("Callback COMPLETED\n");
> +}
> +#endif
> +
> +cl_int WINAPI wine_clSetMemObjectDestructorCallback(cl_mem memobj, void WINAPI(*pfn_notify)(cl_mem, void*), void *user_data)
> +{
> +#ifdef CL_VERSION_1_1
> + /* FIXME: Based on PROGRAM_CALLBACK/program_fn_notify function. I'm not sure about this. */
> + cl_int ret;
> + FIXME("(%p, %p, %p)\n", memobj, pfn_notify, user_data);
> + if(pfn_notify)
> + {
> + /* When pfn_notify is provided, clSetMemObjectDestructorCallback is asynchronous */
> + MEM_CALLBACK *pcb;
> + pcb = HeapAlloc(GetProcessHeap(), 0, sizeof(MEM_CALLBACK));
> + pcb->pfn_notify = pfn_notify;
> + pcb->user_data = user_data;
> + ret = clSetMemObjectDestructorCallback(memobj, mem_fn_notify, user_data);
> + }
> + else
> + {
> + /* When pfn_notify is NULL, clSetMemObjectDestructorCallback is synchronous */
> + ret = clSetMemObjectDestructorCallback(memobj, NULL, user_data);
> + }
> + FIXME("(%p, %p, %p)=%d\n", memobj, pfn_notify, user_data, ret);
> + return ret;
> +#else
> + FIXME("stub\n");
> + return CL_SUCCESS;
> +#endif
> +}
> +
>
> /*---------------------------------------------------------------*/
> /* Sampler APIs */
> @@ -602,6 +662,79 @@ cl_int WINAPI wine_clReleaseEvent(cl_event event)
> return ret;
> }
>
> +cl_event WINAPI wine_clCreateUserEvent(cl_context context, cl_int * errcode_ret)
> +{
> +#ifdef CL_VERSION_1_1
> + cl_event ret;
> + TRACE("\n");
> + ret = clCreateUserEvent(context, errcode_ret);
> + return ret;
> +#else
> + FIXME("stub\n");
> + *errcode_ret = CL_SUCCESS;
> + return NULL;
> +#endif
> +}
> +
> +#ifdef CL_VERSION_1_1
> +typedef struct
> +{
> + void WINAPI (*pfn_notify)(cl_event event, cl_int num, void* user_data);
> + void *user_data;
> +} EVENT_CALLBACK;
> +
> +static void event_fn_notify(cl_event event, cl_int num, void* user_data)
> +{
> + EVENT_CALLBACK *ecb;
> + FIXME("(%p, %d, %p)\n", event, num, user_data);
> + ecb = (EVENT_CALLBACK *) user_data;
> + if(ecb->pfn_notify) ecb->pfn_notify(event, num, ecb->user_data);
> + FIXME("Callback COMPLETED\n");
> +}
> +#endif
> +
> +cl_int WINAPI wine_clSetEventCallback(cl_event event, cl_int command_exec_callback_type,
> + void WINAPI (*pfn_notify)(cl_event, cl_int, void *), void *user_data)
> +{
> +#ifdef CL_VERSION_1_1
> + /* FIXME: Based on PROGRAM_CALLBACK/program_fn_notify function. I'm not sure about this. */
> + cl_int ret;
> + FIXME("(%p, %d, %p, %p)\n", event, command_exec_callback_type, pfn_notify, user_data);
> + if(pfn_notify)
> + {
> + /* When pfn_notify is provided, clSetEventCallback is asynchronous */
> + EVENT_CALLBACK *ecb;
> + ecb = HeapAlloc(GetProcessHeap(), 0, sizeof(EVENT_CALLBACK));
> + ecb->pfn_notify = pfn_notify;
> + ecb->user_data = user_data;
> + ret = clSetEventCallback(event, command_exec_callback_type, event_fn_notify, user_data);
> + }
> + else
> + {
> + /* When pfn_notify is NULL, clSetEventCallback is synchronous */
> + ret = clSetEventCallback(event, command_exec_callback_type, NULL, user_data);
> + }
> + FIXME("(%p, %d, %p, %p)=%d\n", event, command_exec_callback_type, pfn_notify, user_data, ret);
> + return ret;
> +#else
> + FIXME("stub\n");
> + return CL_SUCCESS;
> +#endif
> +}
> +
> +cl_int WINAPI wine_clSetUserEventStatus(cl_event event, cl_int execution_status)
> +{
> +#ifdef CL_VERSION_1_1
> + cl_int ret;
> + TRACE("\n");
> + ret = clSetUserEventStatus(event, execution_status);
> + return ret;
> +#else
> + FIXME("stub\n");
> + return CL_SUCCESS;
> +#endif
> +}
> +
>
> /*---------------------------------------------------------------*/
> /* Profiling APIs */
> @@ -651,6 +784,25 @@ cl_int WINAPI wine_clEnqueueReadBuffer(cl_command_queue command_queue, cl_mem bu
> return ret;
> }
>
> +cl_int WINAPI wine_clEnqueueReadBufferRect(cl_command_queue command_queue, cl_mem buffer, cl_bool blocking_read,
> + const size_t * buffer_origin, const size_t * host_origin, const size_t * region,
> + size_t buffer_row_pitch, size_t buffer_slice_pitch, size_t host_row_pitch, size_t host_slice_pitch,
> + void * ptr, cl_uint num_events_in_wait_list, const cl_event * event_wait_list, cl_event * event)
> +{
> +#ifdef CL_VERSION_1_1
> + cl_int ret;
> + TRACE("\n");
> + ret = clEnqueueReadBufferRect(command_queue, buffer, blocking_read,
> + buffer_origin, host_origin, region,
> + buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch,
> + ptr, num_events_in_wait_list, event_wait_list, event);
> + return ret;
> +#else
> + FIXME("stub\n");
> + return CL_SUCCESS;
> +#endif
> +}
> +
> cl_int WINAPI wine_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)
> @@ -661,6 +813,25 @@ cl_int WINAPI wine_clEnqueueWriteBuffer(cl_command_queue command_queue, cl_mem b
> return ret;
> }
>
> +cl_int WINAPI wine_clEnqueueWriteBufferRect( cl_command_queue command_queue, cl_mem buffer, cl_bool blocking_read,
> + const size_t * buffer_origin, const size_t * host_origin, const size_t * region,
> + size_t buffer_row_pitch, size_t buffer_slice_pitch, size_t host_row_pitch, size_t host_slice_pitch,
> + const void * ptr, cl_uint num_events_in_wait_list, const cl_event * event_wait_list, cl_event * event)
> +{
> +#ifdef CL_VERSION_1_1
> + cl_int ret;
> + TRACE("\n");
> + ret = clEnqueueWriteBufferRect(command_queue, buffer, blocking_read,
> + buffer_origin, host_origin, region,
> + buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch,
> + ptr, num_events_in_wait_list, event_wait_list, event);
> + return ret;
> +#else
> + FIXME("stub\n");
> + return CL_SUCCESS;
> +#endif
> +}
> +
> cl_int WINAPI wine_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)
> @@ -671,6 +842,23 @@ cl_int WINAPI wine_clEnqueueCopyBuffer(cl_command_queue command_queue, cl_mem sr
> return ret;
> }
>
> +cl_int WINAPI wine_clEnqueueCopyBufferRect(cl_command_queue command_queue, cl_mem src_buffer, cl_mem dst_buffer,
> + const size_t * src_origin, const size_t * dst_origin, const size_t * region,
> + size_t src_row_pitch, size_t src_slice_pitch,
> + size_t dst_row_pitch, size_t dst_slice_pitch,
> + cl_uint num_events_in_wait_list, const cl_event * event_wait_list, cl_event * event)
> +{
> +#ifdef CL_VERSION_1_1
> + cl_int ret;
> + TRACE("\n");
> + ret = clEnqueueCopyBufferRect(command_queue, src_buffer, dst_buffer, src_origin, dst_origin, region, src_row_pitch, src_slice_pitch, dst_row_pitch, dst_slice_pitch, num_events_in_wait_list, event_wait_list, event);
> + return ret;
> +#else
> + FIXME("stub\n");
> + return CL_SUCCESS;
> +#endif
> +}
> +
> cl_int WINAPI wine_clEnqueueReadImage(cl_command_queue command_queue, cl_mem image, cl_bool blocking_read,
> const size_t * origin, const size_t * region,
> SIZE_T row_pitch, SIZE_T slice_pitch, void * ptr,
> diff --git a/dlls/opencl/opencl.spec b/dlls/opencl/opencl.spec
> index ba8ce6e7cd..4782653f3d 100644
> --- a/dlls/opencl/opencl.spec
> +++ b/dlls/opencl/opencl.spec
> @@ -94,3 +94,13 @@
> # @ stdcall clGetGLTextureInfo( long long long ptr ptr ) wine_clGetGLTextureInfo
> # @ stdcall clEnqueueAcquireGLObjects( long long ptr long ptr ptr ) wine_clEnqueueAcquireGLObjects
> # @ stdcall clEnqueueReleaseGLObjects( long long ptr long ptr ptr ) wine_clEnqueueReleaseGLObjects
> +
> +# OpenCL 1.1
> +@ stdcall clCreateSubBuffer( long long long ptr ptr ) wine_clCreateSubBuffer
> +@ stdcall clCreateUserEvent( long ptr ) wine_clCreateUserEvent
> +@ stdcall clEnqueueCopyBufferRect( long long long ptr ptr ptr long long long long long ptr ptr ) wine_clEnqueueCopyBufferRect
> +@ stdcall clEnqueueReadBufferRect( long long long ptr ptr ptr long long long long ptr long ptr ptr ) wine_clEnqueueReadBufferRect
> +@ stdcall clEnqueueWriteBufferRect( long long long ptr ptr ptr long long long long ptr long ptr ptr ) wine_clEnqueueWriteBufferRect
> +@ stdcall clSetEventCallback( long long ptr ptr ) wine_clSetEventCallback
> +@ stdcall clSetMemObjectDestructorCallback( long ptr ptr ) wine_clSetMemObjectDestructorCallback
> +@ stdcall clSetUserEventStatus( long long ) wine_clSetUserEventStatus
More information about the wine-devel
mailing list