From 201d9e5c0734d5b9ad4ccff6e1061cfa4b79b9f3 Mon Sep 17 00:00:00 2001 From: Vitaly Mayatskikh Date: Sun, 24 Oct 2010 15:57:52 +0200 Subject: [PATCH] Remove uint32->int32 hack. Recent iolib handles mangled requests ok. --- v4l2.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/v4l2.lisp b/v4l2.lisp index 9123dbc..1eca665 100644 --- a/v4l2.lisp +++ b/v4l2.lisp @@ -21,10 +21,14 @@ ;; hack uint32->int32 (defun ioctl (fd req arg) - (let ((req! (if (> req (ash 1 31)) - (- req (ash 1 32)) - req))) - (isys:ioctl fd req! arg))) + ;; CFFI grovels C constants as int64, and that mangles V4L2 ioctl requests. + ;; There was a need in a hack, which is commented out below. But current + ;; IOLIB (0.7.1) handles mangled requests ok. + ;; + ;; (let ((req! (if (> req (ash 1 31)) + ;; (- req (ash 1 32)) + ;; req))) + (isys:ioctl fd req arg)) (defun query-capabilities (fd) "Query for device capabilities." -- 2.11.4.GIT