Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv19136
Modified Files: image.lisp Log Message: This rather substantial check-in is a clean-up of all things related to dynamic memory allocation. In particular, the separation between the muerte kernel with its 'default' memory management (which simply allocates objects consecutively until it runs out) and the los0 GC implementation is improved.
Date: Thu Jul 15 14:06:19 2004 Author: ffjeld
Index: movitz/image.lisp diff -u movitz/image.lisp:1.46 movitz/image.lisp:1.47 --- movitz/image.lisp:1.46 Tue Jul 13 05:59:33 2004 +++ movitz/image.lisp Thu Jul 15 14:06:19 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.46 2004/07/13 12:59:33 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.47 2004/07/15 21:06:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -300,14 +300,19 @@ :initform 0) (values :binary-type #.(* 4 +movitz-multiple-values-limit+)) - (malloc + (malloc-pointer-words :binary-type code-vector-word :map-binary-write 'movitz-intern-code-vector :map-binary-read-delayed 'movitz-word-code-vector :binary-tag :primitive-function) - (malloc-buffer - :binary-type lu32 - :initform 0) + (malloc-non-pointer-words + :binary-type code-vector-word + :map-binary-write 'movitz-intern-code-vector + :map-binary-read-delayed 'movitz-word-code-vector + :binary-tag :primitive-function) +;;; (malloc-buffer +;;; :binary-type lu32 +;;; :initform 0) (default-interrupt-trampoline :map-binary-write 'movitz-intern-code-vector :binary-tag :primitive-function