Changeset 7390 for branches

Timestamp:

Oct 12, 2007, 2:22:59 AM (17 years ago)

Author:

Gary Byers

Message:

%SYSTEM-LOCK% needs to be made even earlier now.
Some new rwlock stuff.

File:

• branches/working-0710/ccl/level-0/l0-aprims.lisp (modified) (3 diffs)

branches/working-0710/ccl/level-0/l0-aprims.lisp

@@ -22 +22 @@
 ;;; This weak list is used to track semaphores as well as locks.
 (defvar %system-locks% nil)
-(setf %system-locks% (%cons-population nil))
+
 
 (defun record-system-lock (l)
@@ -123 +123 @@
              :address))))
 
-
+(defun %make-rwlock-ptr ()
+  (record-system-lock
+   (%setf-macptr
+    (make-gcable-macptr $flags_DisposeRwLock)
+    (ff-call (%kernel-import target::kernel-import-rwlock-new)
+             :address))))
   
 (defun make-recursive-lock ()
@@ -142 +147 @@
     (report-bad-arg r 'recursive-lock)))
 
-
+(defun read-write-lock-ptr (rw)
+  (if (and (eq target::subtag-lock (typecode rw))
+           (eq (%svref rw target::lock.kind-cell) 'read-write-lock))
+    (%svref rw target::lock._value-cell)
+    (report-bad-arg rw 'read-write-lock)))
 
 (defun make-read-write-lock ()
   "Create and return a read-write lock, which can be used for
 synchronization between threads."
-  (gvector :lock 0 'read-write-lock 0 nil))
+  (gvector :lock (%make-rwlock-ptr) 'read-write-lock 0 nil))