Changeset 212

Timestamp:

Jan 5, 2004, 6:07:21 PM (21 years ago)

Author:

Gary Byers

Message:

TCR flags are in ARCH. (Strange, but true.)

File:

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

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

@@ -417 +417 @@
   (or (null tcr)
       (eql tcr 0)
-      (unless (logbitp ppc32::tcr-flag-bit-awaiting-preset
+      (unless (logbitp arch::tcr-flag-bit-awaiting-preset
                        (the fixnum (tcr-flags tcr)))
         (let* ((vs-area (%fixnum-ref tcr ppc32::tcr.vs-area)))
@@ -491 +491 @@
   (let* ((flags (%fixnum-ref tcr ppc32::tcr.flags)))
     (declare (fixnum flags))
-    (if (logbitp ppc32::tcr-flag-bit-awaiting-preset flags)
+    (if (logbitp arch::tcr-flag-bit-awaiting-preset flags)
       (thread-change-state thread :run :reset)
       (progn
@@ -534 +534 @@
     (declare (fixnum flags))
     (setf (%fixnum-ref tcr ppc32::tcr.flags)
-          (bitclr ppc32::tcr-flag-bit-awaiting-preset flags))))
+          (bitclr arch::tcr-flag-bit-awaiting-preset flags))))
 
 (defun tcr-set-preset-state (tcr)
@@ -540 +540 @@
     (declare (fixnum flags))
     (setf (%fixnum-ref tcr ppc32::tcr.flags)
-          (bitset ppc32::tcr-flag-bit-awaiting-preset flags))))  
+          (bitset arch::tcr-flag-bit-awaiting-preset flags))))  
 
 (defun %activate-tcr (tcr)