Changeset 10454


Ignore:
Timestamp:
Aug 12, 2008, 11:54:38 PM (11 years ago)
Author:
gb
Message:

Create *KERNEL-TCR-AREA-LOCK* and initialize it on startup. (It
encapsulates what the kernel sees as lisp_global(TCR_AREA_LOCK);
holding this lock may help to avoid race conditions in some
cases (PROCESS-WHOSTATE, SYMBOL-VALUE-IN-PROCESS, etc.)

File:
1 edited

Legend:

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

    r10372 r10454  
    4040    (record-source-file symbol 'variable)
    4141    symbol))
     42
     43(defstatic *kernel-tcr-area-lock* (%make-lock (%null-ptr) "Kernal tcr-area-lock"))
     44
     45(def-ccl-pointers area-lock ()
     46  (let* ((p (recursive-lock-ptr *kernel-tcr-area-lock*)))
     47    (%revive-macptr p)
     48    (%get-kernel-global-ptr area-lock p)))
    4249
    4350(def-standard-initial-binding *package*)
Note: See TracChangeset for help on using the changeset viewer.