Changeset 7851

Timestamp:

Dec 9, 2007, 5:39:41 AM (17 years ago)

Author:

Gary Byers

Message:

Conditionalize lock accounting.

File:

• branches/working-0711/ccl/level-0/l0-misc.lisp (modified) (7 diffs)

branches/working-0711/ccl/level-0/l0-misc.lisp

@@ -23 +23 @@
 
 ;; Cold-load lossage.
+#+lock-accounting
 (setq *lock-conses* (make-list 20))
 
 ;;; Per-thread consing, for lock-ownership tracking.
+#+lock-accounting
 (defun %lock-cons (x y)
   (let* ((cell (prog1 *lock-conses*
@@ -533 +535 @@
 
 (defun note-lock-wait (lock)
-  (setq *locks-pending* (%lock-cons lock *locks-pending*)))
+  #+lock-accounting
+  (setq *locks-pending* (%lock-cons lock *locks-pending*))
+  #-lock-accounting (declare (ignore lock)))
 
 (defun note-lock-held ()
+  #+lock-accounting
   (let* ((p *locks-pending*))
     (setq *locks-pending* (cdr *locks-pending*))
@@ -542 +547 @@
 
 (defun note-lock-released ()
+  #+lock-accounting
   (setf (car *locks-held*) nil
         *locks-held* (cdr *locks-held*)))
@@ -650 +656 @@
        (cond ((eql p owner)
               (incf (%get-natural ptr target::lockptr.count))
+              #+lock-accounting
               (setq *locks-held* (%lock-cons lock *locks-held*))
               (if flag (setf (lock-acquisition.status flag) t))
@@ -659 +666 @@
                   (setf (%get-ptr ptr target::lockptr.owner) p
                         (%get-natural ptr target::lockptr.count) 1)
+                  #+lock-accounting
                   (setq *locks-held* (%lock-cons lock *locks-held*))
                   (if flag (setf (lock-acquisition.status flag) t)))
@@ -678 +686 @@
      (cond ((eql (%get-object ptr target::lockptr.owner) self)
             (incf (%get-natural ptr target::lockptr.count))
+            #+lock-accounting*
             (setq *locks-held* (%lock-cons lock *locks-held*))
             (if flag (setf (lock-acquisition.status flag) t))
@@ -684 +693 @@
             (when (eql 0 (%ptr-store-conditional ptr futex-avail futex-locked))
               (%set-object ptr target::lockptr.owner self)
-              (setf (%get-natural ptr target::lockptr.count) 1)              
+              (setf (%get-natural ptr target::lockptr.count) 1)
+              #+lock-accounting
               (setq *locks-held* (%lock-cons lock *locks-held*))
               (if flag (setf (lock-acquisition.status flag) t))