Changeset 886


Ignore:
Timestamp:
Sep 25, 2004, 9:38:04 PM (16 years ago)
Author:
gb
Message:

Use %HEAP-IVECTOR-P when checking bogosity.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-lisp-threads.lisp

    r850 r886  
    10201020            ;; This is terribly complicated, should probably write some LAP
    10211021            (let ((typecode (typecode x)))
    1022                   (not (or (memq x *heap-ivectors*)
    1023                            (case typecode
     1022                  (not (or (case typecode
    10241023                             (#.ppc32::tag-list
    10251024                              (temporary-cons-p x))
     
    10291028                              (on-any-vstack x))
    10301029                             (t
    1031                               (on-any-tsp-stack x)))))))))))
     1030                              (on-any-tsp-stack x)))
     1031                           (%heap-ivector-p x)))))))))
    10321032
    10331033;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
    11381138    (loop
    11391139    (without-interrupts
    1140       (with-lock-grabbed (*termination-population-lock*)
    1141        (let ((list (population-termination-list population)))
    1142          (unless list (return))
    1143          (setf cell (car list)
    1144                (population-termination-list population) (cdr list)))))
     1140     (with-lock-grabbed (*termination-population-lock*)
     1141       (without-gcing
     1142        (let ((list (population-termination-list population)))
     1143          (unless list (return))
     1144          (setf cell (car list)
     1145                (population-termination-list population) (cdr list))))))
    11451146      (funcall (cdr cell) (car cell)))))
    11461147
Note: See TracChangeset for help on using the changeset viewer.