Changeset 7515 for branches/working-0710


Ignore:
Timestamp:
Oct 25, 2007, 12:05:08 AM (12 years ago)
Author:
gb
Message:

Maintain *spin-lock-timeoute*, to see how often we're losing.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-0/l0-misc.lisp

    r7394 r7515  
    479479
    480480(defparameter *spin-lock-tries* 1)
     481(defparameter *spin-lock-timeouts* 0)
    481482
    482483(defun %get-spin-lock (p)
     
    488489        (when (eql 0 (%ptr-store-fixnum-conditional p 0 self))
    489490          (return-from %get-spin-lock t)))
     491      (%atomic-incf-node 1 '*spin-lock-timeouts* target::symbol.vcell)
    490492      (yield))))
    491493
Note: See TracChangeset for help on using the changeset viewer.