From b238749d7115db31b5fd93210853aa0a7180937b Mon Sep 17 00:00:00 2001 From: espen Date: Sun, 19 Feb 2006 22:34:28 +0000 Subject: [PATCH] Clearing stack allocated memory --- glib/glib.lisp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/glib/glib.lisp b/glib/glib.lisp index 0caa70d..3909ac8 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.34 2006-02-15 09:53:42 espen Exp $ +;; $Id: glib.lisp,v 1.35 2006-02-19 22:34:28 espen Exp $ (in-package "GLIB") @@ -47,11 +47,17 @@ #+sbcl(system-area-ub8-copy from 0 to 0 length) to) +(defun clear-memory (from length) + #+cmu(system-area-fill 0 0 from 0 (* 8 length)) + #+sbcl(system-area-ub8-fill 0 from 0 length)) + (defmacro with-allocated-memory ((var size) &body body) (if (constantp size) - (let ((alien (make-symbol "ALIEN"))) - `(with-alien ((,alien (array #+sbcl(sb-alien:unsigned 8) #+cmu(alien:unsigned 8) ,(eval size)))) + (let ((alien (make-symbol "ALIEN")) + (size (eval size))) + `(with-alien ((,alien (array #+sbcl(sb-alien:unsigned 8) #+cmu(alien:unsigned 8) ,size))) (let ((,var (alien-sap ,alien))) + (clear-memory ,var ,size) ,@body))) `(let ((,var (allocate-memory ,size))) (unwind-protect -- 2.11.0