Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24670

Modified Files: primitive-functions.lisp Log Message: Added function malloc-end.

Date: Wed Jun 16 00:35:52 2004 Author: ffjeld

Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.22 movitz/losp/muerte/primitive-functions.lisp:1.23 --- movitz/losp/muerte/primitive-functions.lisp:1.22 Thu Jun 10 12:28:19 2004 +++ movitz/losp/muerte/primitive-functions.lisp Wed Jun 16 00:35:52 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.22 2004/06/10 19:28:19 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.23 2004/06/16 07:35:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -472,6 +472,11 @@ (:jnz '(:sub-program () (:int 107))) (:shrl 1 :eax))) + +(defun malloc-end () + "Return the last location of the (dynamically allocated) heap area." + (+ (malloc-buffer-start) + (* 2 (malloc-cons-pointer))))

(define-primitive-function fast-cons () "Allocate a cons cell. Call with car in eax and cdr in ebx."