[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp

[Frode Vatvedt Fjeld]

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 at 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."