From 17349b4d1ae3139ef495047cbadd532dc4e94f97 Mon Sep 17 00:00:00 2001 Message-Id: <17349b4d1ae3139ef495047cbadd532dc4e94f97.1714718259.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 14 Dec 2008 21:37:25 +0000 Subject: [PATCH 1/1] Added new types GSSIZE and GOFFSET Organization: Straylight/Edgeware From: espen --- glib/glib.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/glib/glib.lisp b/glib/glib.lisp index 43eb8bc..a94b0fd 100644 --- a/glib/glib.lisp +++ b/glib/glib.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: glib.lisp,v 1.44 2008-10-08 18:11:12 espen Exp $ +;; $Id: glib.lisp,v 1.45 2008-12-14 21:37:25 espen Exp $ (in-package "GLIB") @@ -40,6 +40,9 @@ (defmacro with-mutex ((mutex) &body body) ;;;; Memory management (deftype gsize () 'unsigned-int) +(deftype gssize () 'int) +(deftype goffset () '(unsigned-int 64)) + (defbinding malloc0 () pointer (size gsize)) @@ -60,6 +63,8 @@ (defbinding (slice-alloc "g_slice_alloc0") () pointer ;;;; User data is a mechanism to store references to lisp objects in ;;;; foreign code +;; TODO: move to gffi + (defvar *user-data-lock* (make-mutex)) (defvar *user-data* (make-hash-table)) (defvar *user-data-next-id* 1) -- [mdw]