Changeset 886

Timestamp:

Sep 25, 2004, 2:38:04 PM (20 years ago)

Author:

Gary Byers

Message:

Use %HEAP-IVECTOR-P when checking bogosity.

File:

• trunk/ccl/level-1/l1-lisp-threads.lisp (modified) (3 diffs)

trunk/ccl/level-1/l1-lisp-threads.lisp

@@ -1020 +1020 @@
             ;; This is terribly complicated, should probably write some LAP
             (let ((typecode (typecode x)))
-                  (not (or (memq x *heap-ivectors*)
-                           (case typecode
+                  (not (or (case typecode
                              (#.ppc32::tag-list
                               (temporary-cons-p x))
@@ -1029 +1028 @@
                               (on-any-vstack x))
                              (t
-                              (on-any-tsp-stack x)))))))))))
+                              (on-any-tsp-stack x)))
+                           (%heap-ivector-p x)))))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1138 +1138 @@
     (loop
     (without-interrupts
-      (with-lock-grabbed (*termination-population-lock*)
-       (let ((list (population-termination-list population)))
-         (unless list (return))
-         (setf cell (car list)
-               (population-termination-list population) (cdr list)))))
+     (with-lock-grabbed (*termination-population-lock*)
+       (without-gcing
+        (let ((list (population-termination-list population)))
+          (unless list (return))
+          (setf cell (car list)
+                (population-termination-list population) (cdr list))))))
       (funcall (cdr cell) (car cell)))))