Changeset 10459


Ignore:
Timestamp:
Aug 13, 2008, 11:37:25 AM (11 years ago)
Author:
gb
Message:

Expose the kernel's exception lock to lisp, too.
Any lisp code that needs to grab *KERNEL-TCR-AREA-LOCK* must hold
*KERNEL-EXCEPTION-LOCK*, and neither of these locks should be held
for very long.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-aprims.lisp

    r10454 r10459  
    4343(defstatic *kernel-tcr-area-lock* (%make-lock (%null-ptr) "Kernal tcr-area-lock"))
    4444
    45 (def-ccl-pointers area-lock ()
    46   (let* ((p (recursive-lock-ptr *kernel-tcr-area-lock*)))
     45(defstatic *kernel-exception-lock* (%make-lock (%null-ptr) "Kernal exception-lock"))
     46 
     47(def-ccl-pointers kernel-locks ()
     48  (let* ((p (recursive-lock-ptr *kernel-tcr-area-lock*))
     49         (q (recursive-lock-ptr *kernel-exception-lock*)))
    4750    (%revive-macptr p)
    48     (%get-kernel-global-ptr area-lock p)))
     51    (%revive-macptr q)
     52    (%get-kernel-global-ptr area-lock p)
     53    (%get-kernel-global-ptr exception-lock q)))
    4954
    5055(def-standard-initial-binding *package*)
Note: See TracChangeset for help on using the changeset viewer.