From 1e321fb41ff4ce050eea037938dc0ec20e393a54 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Thu, 26 Feb 2009 01:20:16 +0300 Subject: [PATCH] Add refcount for found g-boxed-ref's --- glib/gobject.foreign-gboxed.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/glib/gobject.foreign-gboxed.lisp b/glib/gobject.foreign-gboxed.lisp index 7f83a09..994e759 100644 --- a/glib/gobject.foreign-gboxed.lisp +++ b/glib/gobject.foreign-gboxed.lisp @@ -274,6 +274,7 @@ (with-recursive-lock-held (*g-boxed-gc-lock*) (or (aprog1 (gethash (pointer-address pointer) *known-boxed-refs*) (when it (debugf "Boxed-ref for ~A is found (~A)~%" pointer it)) + (when it (incf (gethash (pointer-address pointer) *boxed-ref-count*))) it) (aprog1 (make-instance name :pointer pointer) (setf (gethash (pointer-address pointer) *boxed-ref-owner*) (g-boxed-ref-owner type)) -- 1.7.10.4