From bdf1567aa37a86469f0825e0ccc87d34039b7c4b Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Sun, 19 Feb 2006 22:34:28 +0000 Subject: [PATCH] Clearing stack allocated memory Organization: Straylight/Edgeware From: espen --- glib/glib.lisp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/glib/glib.lisp b/glib/glib.lisp index be287eb..8bbda64 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 @@ (defun copy-memory (from length &optional (to (allocate-memory length))) #+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 -- [mdw]