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