#langat-expscheme/base
(requirescheme/foreign
(except-inscheme/contract->)
scribble/srcdoc
(file"include/cl.ss")
(file"lib.ss")
(file"syntax.ss")
(file"types.ss"))
(require/docscheme/basescribble/manual
(for-label (file"../../c/types.ss")))
;;;; clGetEventProfilingInfo
(define-opencl-infoclGetEventProfilingInfo
(clGetEventProfilingInfo:lengthclGetEventProfilingInfo:generic)
_cl_profiling_info_cl_profiling_info/c
(args [event:_cl_event_cl_event/c])
(errorstatus
(cond [(=statusCL_PROFILING_INFO_NOT_AVAILABLE)
(error'clGetEventProfilingInfo"the CL_QUEUE_PROFILING_ENABLE flag is not set for the command-queue and if the profiling information is currently not available (because the command identified by event has not completed)")]
[(=statusCL_INVALID_VALUE)
(error'clGetEventProfilingInfo"param_name is not valid or if size in bytes specified by param_value_size is < size of return type and param_value is not NULL")]
[(=statusCL_INVALID_EVENT)
(error'clGetEventProfilingInfo"event is not a valid event object")]
[else
(error'clGetEventProfilingInfo"Invalid error code: ~e"status)]))
(variableparam_value_size)
(fixed [_cl_ulong_cl_ulong/cCL_PROFILING_COMMAND_QUEUEDCL_PROFILING_COMMAND_SUBMITCL_PROFILING_COMMAND_STARTCL_PROFILING_COMMAND_END]))