[movitz-cvs] CVS movitz - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

2 Apr 2008

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv17424
Modified Files:
    image.lisp 
Log Message:
Add the stack-vector type, because we need to be able to recognize a stack at GC-time.

--- /project/movitz/cvsroot/movitz/image.lisp	2008/03/20 22:24:06	1.118
+++ /project/movitz/cvsroot/movitz/image.lisp	2008/04/02 20:49:30	1.119
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.118 2008/03/20 22:24:06 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.119 2008/04/02 20:49:30 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -957,7 +957,7 @@
    			 :num-elements #x3ffe
    			 :fill-pointer 0
    			 :symbolic-data nil
-				 :element-type :u32))
+				 :element-type :stack))
    	 (image-start (file-position stream)))
        (dump-image-core *image* stream) ; dump the kernel proper.
        ;; make a stack-vector for the root run-time-context

    