Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv18655
Modified Files: image.lisp Log Message: Added a scratch register to the run-time-context. Why didn't I do this before?
Date: Thu Jun 10 12:31:06 2004 Author: ffjeld
Index: movitz/image.lisp diff -u movitz/image.lisp:1.38 movitz/image.lisp:1.39 --- movitz/image.lisp:1.38 Wed Jun 9 10:25:03 2004 +++ movitz/image.lisp Thu Jun 10 12:31:06 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.38 2004/06/09 17:25:03 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.39 2004/06/10 19:31:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -17,16 +17,16 @@
(define-binary-class movitz-constant-block (movitz-heap-object) ((constant-block-start :binary-type :label) ; keep this at the top. - (name - :binary-type word - :initform :global - :map-binary-write 'movitz-read-and-intern - :map-binary-read-delayed 'movitz-word) (type :binary-type other-type-byte :initform :run-time-context) (padding :binary-type 3) + (name + :binary-type word + :initform :global + :map-binary-write 'movitz-read-and-intern + :map-binary-read-delayed 'movitz-word) (fast-car :binary-type code-vector-word :initform nil @@ -485,7 +485,9 @@ (bochs-flags :binary-type lu32 :initform 0) - ) + (scratch0 ; A non-GC-root scratch register + :binary-type lu32 + :initform 0)) (:slot-align null-cons -1))
(defun atomically-status-simple-pf (pf-name reset-status-p &rest registers)