projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.13.50: Windows baby-steps
[sbcl.git]
/
src
/
pcl
/
cache.lisp
diff --git
a/src/pcl/cache.lisp
b/src/pcl/cache.lisp
index
4b0fbc4
..
5eb5930
100644
(file)
--- a/
src/pcl/cache.lisp
+++ b/
src/pcl/cache.lisp
@@
-1160,6
+1160,8
@@
(do-one-fill wrappers value))
(maybe-check-cache ncache)))))
\f
(do-one-fill wrappers value))
(maybe-check-cache ncache)))))
\f
+(defvar *pcl-misc-random-state* (make-random-state))
+
;;; This is the heart of the cache filling mechanism. It implements
;;; the decisions about where entries are placed.
;;;
;;; This is the heart of the cache filling mechanism. It implements
;;; the decisions about where entries are placed.
;;;
@@
-1196,7
+1198,8
@@
(when (>= osep limit)
(return-from find-free-cache-line (values primary nil)))
(when (cond ((= nsep limit) t)
(when (>= osep limit)
(return-from find-free-cache-line (values primary nil)))
(when (cond ((= nsep limit) t)
- ((= nsep osep) (zerop (random 2)))
+ ((= nsep osep)
+ (zerop (random 2 *pcl-misc-random-state*)))
((> nsep osep) t)
(t nil))
;; See whether we can displace what is in this line so that we
((> nsep osep) t)
(t nil))
;; See whether we can displace what is in this line so that we
@@
-1235,4
+1238,3
@@
((8 16) 4)
(otherwise 6)))
((8 16) 4)
(otherwise 6)))
-(defvar *empty-cache* (make-cache)) ; for defstruct slot initial value forms