[movitz-cvs] CVS movitz/losp/lib

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/lib
In directory clnet:/tmp/cvs-serv17518

Modified Files:
	threading.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/losp/lib/threading.lisp	2007/03/12 22:50:34	1.9
+++ /project/movitz/cvsroot/movitz/losp/lib/threading.lisp	2008/04/02 20:49:35	1.10
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Apr 28 08:30:01 2005
 ;;;;                
-;;;; $Id: threading.lisp,v 1.9 2007/03/12 22:50:34 ffjeld Exp $
+;;;; $Id: threading.lisp,v 1.10 2008/04/02 20:49:35 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -89,8 +89,7 @@
     (setf (segment-descriptor-base-location (segment-descriptor-table *segment-descriptor-table-manager*)
 					    segment-selector)
       (+ (object-location thread) (location-physical-offset)))
-    (let ((stack (control-stack-init-for-yield (make-array stack-size
-							   :element-type '(unsigned-byte 32))
+    (let ((stack (control-stack-init-for-yield (make-stack-vector stack-size)
 					       function args)))
       (multiple-value-bind (ebp esp)
 	  (control-stack-fixate stack)