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

Modified Files: primitive-functions.lisp Log Message: This malloc-cons-pointer sort of works with los0-gc.

Date: Fri Jul 16 18:54:12 2004 Author: ffjeld

Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.29 movitz/losp/muerte/primitive-functions.lisp:1.30 --- movitz/losp/muerte/primitive-functions.lisp:1.29 Thu Jul 15 14:07:22 2004 +++ movitz/losp/muerte/primitive-functions.lisp Fri Jul 16 18:54:12 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.29 2004/07/15 21:07:22 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.30 2004/07/17 01:54:12 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -534,6 +534,10 @@

(defun malloc-cons-pointer () "Return current cons-pointer in 8-byte units since buffer-start." + (let ((x (%run-time-context-slot 'nursery-space))) + (when (typep x 'vector) + (truncate (aref x 0) 8))) + #+ignore (with-inline-assembly (:returns :eax) (:locally (:movl (:edi (:edi-offset nursery-space)) :eax)) (:movl (:eax 4) :eax)