Use sb-vm:+pseudo-static-generation+.
Patch by Andreas Franke.
(tai #'cons :heap
;; FIXME: This is the canonical GENCGC result. On PPC we sometimes get
;; :LARGE T, which doesn't seem right -- but ignore that for now.
(tai #'cons :heap
;; FIXME: This is the canonical GENCGC result. On PPC we sometimes get
;; :LARGE T, which doesn't seem right -- but ignore that for now.
- '(:space :dynamic :generation 6 :write-protected t :boxed t :pinned nil :large nil)
+ `(:space :dynamic :generation ,sb-vm:+pseudo-static-generation+
+ :write-protected t :boxed t :pinned nil :large nil)
:ignore (list :page #+ppc :large))
#-gencgc
(tai :cons :heap
:ignore (list :page #+ppc :large))
#-gencgc
(tai :cons :heap
generations as well. If FULL is true, all generations are collected.
If GEN is provided, it can be used to specify the oldest generation
guaranteed to be collected."
generations as well. If FULL is true, all generations are collected.
If GEN is provided, it can be used to specify the oldest generation
guaranteed to be collected."
- (when (sub-gc :gen (if full 6 gen))
+ (when (sub-gc :gen (if full sb!vm:+pseudo-static-generation+ gen))
(post-gc)))
(define-alien-routine scrub-control-stack sb!alien:void)
(post-gc)))
(define-alien-routine scrub-control-stack sb!alien:void)