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*)