(in-package #:ocl)

(defparameter +event-profiling-info-type-alist+
  '((:profiling-command-queued   . cl-ulong)
    (:profiling-command-submit   . cl-ulong)
    (:profiling-command-start    . cl-ulong)
    (:profiling-command-end      . cl-ulong)
    (:profiling-command-complete . cl-ulong)))

(wrap-get-info-function get-event-profiling-info %get-event-profiling-info
                        +event-profiling-info-type-alist+)