Changeset 465

Timestamp:

Feb 2, 2004, 8:12:54 AM (21 years ago)

Author:

Gary Byers

Message:

Disable interrupts when accessing the termination queue; may need to
inhibit GC as well.

File:

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

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

@@ -1197 +1197 @@
   (let ((new-cell (list (cons object function)))
         (population *termination-population*))
-    (with-lock-grabbed (*termination-population-lock*)
-     (setf (cdr new-cell) (population-data population)
-           (population-data population) new-cell))
+    (without-interrupts
+     (with-lock-grabbed (*termination-population-lock*)
+       (setf (cdr new-cell) (population-data population)
+             (population-data population) new-cell)))
     function))
 
@@ -1209 +1210 @@
         (population *termination-population*))
     (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))))
+               (population-termination-list population) (cdr list)))))
       (funcall (cdr cell) (car cell)))))
 
@@ -1224 +1226 @@
                   (setq found-it? t))))
       (declare (dynamic-extent #'test))
-      (with-lock-grabbed (*termination-population-lock*)
-       (setf (population-data *termination-population*)
-             (delete object (population-data *termination-population*)
-                     :test #'test
-                     :count 1)))
+      (without-interrupts
+       (with-lock-grabbed (*termination-population-lock*)
+         (setf (population-data *termination-population*)
+               (delete object (population-data *termination-population*)
+                       :test #'test
+                       :count 1))))
       found-it?)))
 
 (defun termination-function (object)
-  (with-lock-grabbed (*termination-population-lock*)
-    (cdr (assq object (population-data *termination-population*)))))
+  (without-interrupts
+   (with-lock-grabbed (*termination-population-lock*)
+     (cdr (assq object (population-data *termination-population*))))))
 
 (defun do-automatic-termination ()