[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv17688

Modified Files:
	inspect.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/muerte/inspect.lisp	2007/04/12 16:10:47	1.60
+++ /project/movitz/cvsroot/movitz/losp/muerte/inspect.lisp	2008/04/02 20:49:44	1.61
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Oct 24 09:50:41 2003
 ;;;;                
-;;;; $Id: inspect.lisp,v 1.60 2007/04/12 16:10:47 ffjeld Exp $
+;;;; $Id: inspect.lisp,v 1.61 2008/04/02 20:49:44 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -91,7 +91,7 @@
 Otherwise, stack-frame is an absolute location."
   (cond
    ((not (null stack))
-    (check-type stack (simple-array (unsigned-byte 32) 1))
+    (check-type stack stack-vector)
     (let ((pos (+ frame index)))
       (assert (< -1 pos (length stack))
 	  () "Index ~S, pos ~S, len ~S" index pos (length stack))
@@ -101,7 +101,7 @@
 (defun (setf stack-frame-ref) (value stack frame index &optional (type ':lisp))
   (cond
    ((not (eq nil stack))
-    (check-type stack (simple-array (unsigned-byte 32) 1))
+    (check-type stack stack-vector)
     (let ((pos (+ frame index)))
       (assert (< -1 pos (length stack))
 	  () "Index ~S, pos ~S, len ~S" index pos (length stack))
@@ -420,7 +420,9 @@
 	   (+ -1 object-location
 	      (movitz-type-word-size :movitz-funobj)
 	      (funobj-num-constants object))))
-      ((or string code-vector (simple-array (unsigned-byte 8) 1))
+      ((or string
+	   code-vector
+	   (simple-array (unsigned-byte 8) 1))
        (<= object-location
 	   location
 	   (+ -1 object-location
@@ -432,7 +434,9 @@
 	   (+ -1 object-location
 	      (movitz-type-word-size 'movitz-basic-vector)
 	      (* 2 (truncate (+ (array-dimension object 0) 3) 4)))))
-      ((or simple-vector (simple-array (unsigned-byte 32) 1))
+      ((or simple-vector
+	   (simple-array (unsigned-byte 32) 1)
+	   stack-vector)
        (<= object-location
 	   location
 	   (+ -1 object-location