Wed Apr 8 17:18:53 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Free translated return values (fix memleak)
diff -rN -u old-smoke/src/objects/stack.lisp new-smoke/src/objects/stack.lisp
--- old-smoke/src/objects/stack.lisp 2014-10-01 12:22:19.000000000 +0200
+++ new-smoke/src/objects/stack.lisp 2014-10-01 12:22:20.000000000 +0200
@@ -117,12 +117,18 @@
(0 (let ((cffi-type (get-type (name type))))
(if (null cffi-type)
(progn
- ;(warn "Unknown translation from ~A to lisp." (name type))
+ ;;(warn "Unknown translation from ~A to lisp." (name type))
(foreign-slot-value stack-item 'smoke-stack-item 'voidp))
- (convert-from-foreign (foreign-slot-value stack-item
- 'smoke-stack-item
- 'voidp)
- cffi-type))))
+ (let* ((pointer (foreign-slot-value stack-item
+ 'smoke-stack-item
+ 'voidp))
+ (value (convert-from-foreign pointer cffi-type)))
+ (when (stack-p type)
+ ;; FIXME free-translated-object is not intended for this;
+ ;; param is NIL for now.
+ (cffi:free-translated-object pointer cffi-type nil))
+ value
+ ))))
(1 (foreign-slot-value stack-item 'smoke-stack-item 'bool))
(2 (code-char (foreign-slot-value stack-item 'smoke-stack-item 'char)))
(3 (code-char (foreign-slot-value stack-item 'smoke-stack-item 'uchar)))