X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fsystem.lisp;h=91c98b3c3de8a6a246d5ef3f14cb50c7be214f96;hb=69d60b456b07a0256f08df0d02484f361ce5737c;hp=77ab3ead51cb9bba44bc8652b370c97a08f1e9af;hpb=68fd2d2dd6f265669a8957accd8a33e62786a97e;p=sbcl.git

diff --git a/src/compiler/sparc/system.lisp b/src/compiler/sparc/system.lisp
index 77ab3ea..91c98b3 100644
--- a/src/compiler/sparc/system.lisp
+++ b/src/compiler/sparc/system.lisp
@@ -68,6 +68,8 @@
   (:generator 6
     (load-type result function (- fun-pointer-lowtag))))
 
+;;; Is this VOP dead? I can't see anywhere that it is used... -- CSR,
+;;; 2002-06-21
 (define-vop (set-fun-subtype)
   (:translate (setf fun-subtype))
   (:policy :fast-safe)
@@ -220,6 +222,8 @@
   (:generator 1
     (inst unimp pending-interrupt-trap)))
 
+#!+sb-thread
+(error "write a VOP for CURRENT-THREAD-OFFSET-SAP")
 
 (define-vop (halt)
   (:generator 1
@@ -237,7 +241,7 @@
     (let ((offset
 	   (- (* (+ index vector-data-offset) n-word-bytes)
 	      other-pointer-lowtag)))
-      (assert (typep offset '(signed-byte 13)))
+      (aver (typep offset '(signed-byte 13)))
       (inst ld count count-vector offset)
       (inst add count 1)
       (inst st count count-vector offset))))