projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.31.22: improved SAP-{REF,SET}-* for x86-64
[sbcl.git]
/
src
/
code
/
final.lisp
diff --git
a/src/code/final.lisp
b/src/code/final.lisp
index
c2ef070
..
fc807f4
100644
(file)
--- a/
src/code/final.lisp
+++ b/
src/code/final.lisp
@@
-11,15
+11,14
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
-(defvar *finalizer-store* nil)
+(defglobal **finalizer-store** nil)
-(defvar *finalizer-store-lock*
+(defglobal **finalizer-store-lock**
(sb!thread:make-mutex :name "Finalizer store lock."))
(defmacro with-finalizer-store-lock (&body body)
(sb!thread:make-mutex :name "Finalizer store lock."))
(defmacro with-finalizer-store-lock (&body body)
- `(sb!thread::call-with-system-mutex (lambda () ,@body)
- *finalizer-store-lock*
- t))
+ `(sb!thread::with-system-mutex (**finalizer-store-lock** :without-gcing t)
+ ,@body))
(defun finalize (object function &key dont-save)
#!+sb-doc
(defun finalize (object function &key dont-save)
#!+sb-doc
@@
-71,13
+70,13
@@
Examples:
(error "Cannot finalize NIL."))
(with-finalizer-store-lock
(push (list (make-weak-pointer object) function dont-save)
(error "Cannot finalize NIL."))
(with-finalizer-store-lock
(push (list (make-weak-pointer object) function dont-save)
- *finalizer-store*))
+ **finalizer-store**))
object)
(defun deinit-finalizers ()
;; remove :dont-save finalizers
(with-finalizer-store-lock
object)
(defun deinit-finalizers ()
;; remove :dont-save finalizers
(with-finalizer-store-lock
- (setf *finalizer-store* (delete-if #'third *finalizer-store*)))
+ (setf **finalizer-store** (delete-if #'third **finalizer-store**)))
nil)
(defun cancel-finalization (object)
nil)
(defun cancel-finalization (object)
@@
-87,8
+86,8
@@
Examples:
;; run.
(when object
(with-finalizer-store-lock
;; run.
(when object
(with-finalizer-store-lock
- (setf *finalizer-store*
- (delete object *finalizer-store*
+ (setf **finalizer-store**
+ (delete object **finalizer-store**
:key (lambda (list)
(weak-pointer-value (car list))))))
object))
:key (lambda (list)
(weak-pointer-value (car list))))))
object))
@@
-96,12
+95,12
@@
Examples:
(defun run-pending-finalizers ()
(let (pending)
(with-finalizer-store-lock
(defun run-pending-finalizers ()
(let (pending)
(with-finalizer-store-lock
- (setf *finalizer-store*
+ (setf **finalizer-store**
(delete-if (lambda (list)
(when (null (weak-pointer-value (car list)))
(push (second list) pending)
t))
(delete-if (lambda (list)
(when (null (weak-pointer-value (car list)))
(push (second list) pending)
t))
- *finalizer-store*)))
+ **finalizer-store**)))
;; We want to run the finalizer bodies outside the lock in case
;; finalization of X causes finalization to be added for Y.
(dolist (fun pending)
;; We want to run the finalizer bodies outside the lock in case
;; finalization of X causes finalization to be added for Y.
(dolist (fun pending)