Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv16003
Modified Files: los0-gc.lisp Log Message: Renamed the malloc primitive functions.
Date: Thu Nov 25 19:05:23 2004 Author: ffjeld
Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.42 movitz/losp/los0-gc.lisp:1.43 --- movitz/losp/los0-gc.lisp:1.42 Mon Oct 11 15:51:52 2004 +++ movitz/losp/los0-gc.lisp Thu Nov 25 19:05:23 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Sat Feb 21 17:48:32 2004 ;;;; -;;;; $Id: los0-gc.lisp,v 1.42 2004/10/11 13:51:52 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.43 2004/11/25 18:05:23 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -132,7 +132,7 @@ (do-it)))))
-(define-primitive-function los0-get-cons-pointer () +(define-primitive-function los0-cons-pointer () "Return in EAX the next object location with space for EAX words, with tag 6. Preserve ECX." (macrolet @@ -250,7 +250,7 @@ (setf (%run-time-context-slot ',slot context) code-vector))))) (install-primitive los0-fast-cons muerte::fast-cons) (install-primitive los0-box-u32-ecx muerte::box-u32-ecx) - (install-primitive los0-get-cons-pointer muerte::get-cons-pointer) + (install-primitive los0-cons-pointer muerte::cons-pointer) (install-primitive los0-cons-commit muerte::cons-commit)) (if (eq context (current-run-time-context)) (setf (%run-time-context-slot 'muerte::nursery-space)