Changeset 7675 for branches

Timestamp:

Nov 18, 2007, 10:09:25 PM (17 years ago)

Author:

Gary Byers

Message:

Start to add stuff for lock-tracking.

File:

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

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

@@ -16 +16 @@
 
 (in-package "CCL")
+
+
+(defparameter *locks-held* () "per-thread list of held locks")
+(defparameter *locks-pending* () "per-thread list of locks we're waiting for.")
+(defparameter *lock-conses* ())
+
+;; Cold-load lossage.
+(setq *lock-conses* (make-list 20))
+
+;;; Per-thread consing, for lock-ownership tracking.
+(defun %lock-cons (x y)
+  (let* ((cell (prog1 *lock-conses*
+                 (setq *lock-conses* (cdr *lock-conses*)))))
+    (if cell
+      (progn
+        (rplaca cell x)
+        (rplacd cell y))
+      (cons x y))))
+
 
 ;;; Bootstrapping for futexes