From 43f46ae9b2a921d712dec3fc3a0e4f124b529518 Mon Sep 17 00:00:00 2001 From: rivo Date: Thu, 15 Jan 2015 12:16:49 +0300 Subject: [PATCH] dbus send message leak --- dbus/dbus.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/dbus/dbus.scm b/dbus/dbus.scm index bdba5f7..ca14d92 100644 --- a/dbus/dbus.scm +++ b/dbus/dbus.scm @@ -666,6 +666,7 @@ (iter-append-basic iter parm)) params) (send-impl conn msg #f) (free-iter iter) + ((foreign-lambda void "dbus_message_unref" message-ptr) msg) ; ((foreign-lambda void "dbus_connection_flush" connection-ptr) conn) )))) @@ -696,7 +697,7 @@ C_return(reply);") conn msg) ] [reply-iter (make-iter reply-msg)] [reply-args (iter->list reply-iter)] ) - ((foreign-lambda void "dbus_message_unref" message-iter-ptr) reply-msg) + ((foreign-lambda void "dbus_message_unref" message-ptr) reply-msg) reply-args))))) (set! make-method-proxy (lambda (context name) @@ -724,7 +725,7 @@ C_return(msg);") conn msg) ] [reply-iter (make-iter reply-msg)] [reply-args (iter->list reply-iter)] ) - ((foreign-lambda void "dbus_message_unref" message-iter-ptr) reply-msg) + ((foreign-lambda void "dbus_message_unref" message-ptr) reply-msg) reply-args)))))) (define-foreign-record-type (vtable "struct DBusObjectPathVTable") @@ -833,7 +834,7 @@ ;; send response (send-impl conn response #f) (free-iter iter) - ((foreign-lambda void "dbus_message_unref" message-iter-ptr) response) + ((foreign-lambda void "dbus_message_unref" message-ptr) response) )))) (define (handler-wrapper conn msg-cb) -- 1.9.1