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

Modified Files: image.lisp Log Message: Added a slot nursery-space to constant-block.

Date: Mon Mar 22 11:42:54 2004 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.16 movitz/image.lisp:1.17 --- movitz/image.lisp:1.16 Fri Feb 13 17:03:16 2004 +++ movitz/image.lisp Mon Mar 22 11:42:53 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.16 2004/02/13 22:03:16 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.17 2004/03/22 16:42:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -355,6 +355,13 @@ (physical-address-offset :binary-type lu32 :initform (image-ds-segment-base *image*)) + (nursery-space + :binary-type word + :initform nil + :map-binary-write 'movitz-read-and-intern + :map-binary-read-delayed (lambda (x type) + (declare (ignore x type)) + (movitz-read nil))) (stack-vector :binary-type word :initform nil @@ -694,12 +701,11 @@

(defun create-image (&key (init-file *default-image-init-file*) (start-address #x100000)) - (#+allegro excl:tenuring #-allegro progn - (psetq *image* (let ((*image* (make-movitz-image start-address))) - (when init-file - (movitz-compile-file init-file)) - *image*) - *i* (when (boundp '*image*) *image*))) + (psetq *image* (let ((*image* (make-movitz-image start-address))) + (when init-file + (movitz-compile-file init-file)) + *image*) + *i* (when (boundp '*image*) *image*)) *image*)

(defun dump-image (&key (path *default-image-file*) ((:image *image*) *image*)