From 6fe823a614279cceb2d48507bd8e93b0efd87f94 Mon Sep 17 00:00:00 2001 From: Thomas Albers Date: Sat, 4 Mar 2023 22:47:28 +0100 Subject: Initial commit --- src/profiling.lisp | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 src/profiling.lisp (limited to 'src/profiling.lisp') diff --git a/src/profiling.lisp b/src/profiling.lisp new file mode 100644 index 0000000..2d186d6 --- /dev/null +++ b/src/profiling.lisp @@ -0,0 +1,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+) -- cgit v1.2.3