blob: 2d186d644f5a03399bf462d329602ef3c86dfc36 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(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+)
|