Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv3585
Modified Files: stream-image.lisp Log Message: Change the name "constant-block" to "run-time-context" so as to be consistent. "Run-time-context" is the name that's I've been using in newer documentation and code.
Date: Wed Jul 28 03:00:59 2004 Author: ffjeld
Index: movitz/stream-image.lisp diff -u movitz/stream-image.lisp:1.9 movitz/stream-image.lisp:1.10 --- movitz/stream-image.lisp:1.9 Fri Jul 23 08:34:36 2004 +++ movitz/stream-image.lisp Wed Jul 28 03:00:59 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon Aug 27 14:46:50 2001 ;;;; -;;;; $Id: stream-image.lisp,v 1.9 2004/07/23 15:34:36 ffjeld Exp $ +;;;; $Id: stream-image.lisp,v 1.10 2004/07/28 10:00:59 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -51,7 +51,7 @@ (value) "Unable to set memory-stream's file-position to #x~X." value))
-(defmethod image-constant-block ((image stream-image)) +(defmethod image-run-time-context ((image stream-image)) (movitz-word (image-register32 image :edi)))
(defmethod movitz-word-by-image ((image stream-image) word) @@ -65,11 +65,11 @@ (make-instance 'movitz-character :char (code-char (ldb (byte 8 8) word)))) (:null #+ignore - (assert (= (- word (tag :null)) (image-constant-block-address image)) (word) + (assert (= (- word (tag :null)) (image-run-time-context-address image)) (word) "The word #x~8,'0X has NIL tag but isn't NIL." word) (setf (image-stream-position image) 0 #+ignore (- word (tag :null))) - (let ((object (read-binary 'movitz-constant-block (image-stream image)))) - (setf (movitz-heap-object-word (movitz-constant-block-null-symbol object)) + (let ((object (read-binary 'movitz-run-time-context (image-stream image)))) + (setf (movitz-heap-object-word (movitz-run-time-context-null-symbol object)) word) object)) (:symbol