* Wrap some asserts with with-test in defstruct.impure.lisp
* Remove two unused variables in remap_free_pages.
* Fix the allocation region size estimate in sb-sprof.
#-gencgc
(get-page-size)
#+gencgc
#-gencgc
(get-page-size)
#+gencgc
- sb-vm:gencgc-alloc-granularity)
+ (max sb-vm:gencgc-alloc-granularity sb-vm:gencgc-card-bytes))
(declaim (type number *alloc-region-size*))
(defvar *samples* nil)
(declaim (type number *alloc-region-size*))
(defvar *samples* nil)
static void
remap_free_pages (page_index_t from, page_index_t to, int forcibly)
{
static void
remap_free_pages (page_index_t from, page_index_t to, int forcibly)
{
- page_index_t first_page, last_page,
- first_aligned_page, last_aligned_page;
+ page_index_t first_page, last_page;
if (forcibly)
return remap_page_range(from, to);
if (forcibly)
return remap_page_range(from, to);
*manyraw*)))
(room)
(sb-ext:gc))
*manyraw*)))
(room)
(sb-ext:gc))
-(check-manyraws *manyraw*)
+(with-test (:name defstruct-raw-slot-gc)
+ (check-manyraws *manyraw*))
;;; try a full GC, too
(sb-ext:gc :full t)
;;; try a full GC, too
(sb-ext:gc :full t)
-(check-manyraws *manyraw*)
+(with-test (:name (defstruct-raw-slot-gc :full))
+ (check-manyraws *manyraw*))
;;; fasl dumper and loader also have special handling of raw slots, so
;;; dump all of them into a fasl
;;; fasl dumper and loader also have special handling of raw slots, so
;;; dump all of them into a fasl
;;; re-read the dumped structures and check them
(load "tmp-defstruct.manyraw.fasl")
;;; re-read the dumped structures and check them
(load "tmp-defstruct.manyraw.fasl")
-(check-manyraws (dumped-manyraws))
+(with-test (:name (defstruct-raw-slot load))
+ (check-manyraws (dumped-manyraws)))
\f
;;;; miscellaneous old bugs
\f
;;;; miscellaneous old bugs