(defvar *alloc-region-size*
#-gencgc
(get-page-size)
- ;; This hardcoded 2 matches the one in gc_find_freeish_pages. It's not
- ;; really worth genesifying.
#+gencgc
- (* 2 sb-vm:gencgc-page-bytes))
+ (max sb-vm:gencgc-alloc-granularity sb-vm:gencgc-card-bytes))
(declaim (type number *alloc-region-size*))
(defvar *samples* nil)
;;; This in turn will distribute the notice to those threads we are
;;; interested using SIGPROF.
(defun thread-distribution-handler ()
- (declare (optimize sb-c::merge-tail-calls))
+ (declare (optimize speed (space 0)))
(when *sampling*
#+sb-thread
(let ((lock *distribution-lock*))