 (defn image-max-buffer-size ^long [device]
   (info-size* CL/clGetDeviceInfo device CL/CL_DEVICE_IMAGE_MAX_BUFFER_SIZE))
 
-;; TODO Opencl 2.0
-(defn image-pitch-alignment [device]
-  nil)
+(defn image-pitch-alignment ^long [device]
+  (info-int* CL/clGetDeviceInfo device CL_DEVICE_IMAGE_PITCH_ALIGNMENT))
 
 (defn image-support [device]
   (info-bool* CL/clGetDeviceInfo device CL/CL_DEVICE_IMAGE_SUPPORT))

      (disj (hash-set (mask* mask CL/CL_QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE
                             :out-of-order-exec-mode)
                      (mask* mask CL/CL_QUEUE_PROFILING_ENABLE :profiling)
                      ;; TODO OpenCL 2.0 (mask* mask CL/CL_QUEUE_ON_DEVICE :queue-on-device)
                      #_(mask* mask CL/CL_QUEUE_ON_DEVICE_DEFAULT
                               :queue-on-device-default))
            nil))))


       :parent-device (parent-device d)
       :partition-affinity-domain (partition-affinity-domain d)
       :partition-max-sub-devices (partition-max-sub-devices d)
       :partition-properties (partition-properties d)
       :partition-type (partition-type d)
       :pipe-max-active-reservations (pipe-max-active-reservations d)
       :pipe-max-packet-size (pipe-max-packet-size d)
