From: Juho S. <js...@us...> - 2005-12-14 03:39:32
|
Update of /cvsroot/sbcl/sbcl/src/runtime In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16700/src/runtime Modified Files: gencgc-internal.h Log Message: 0.9.7.28: Make MAP-ALLOCATED-OBJECTS use gencgc pagetable information to skip over free dynamic space regions. * More accurate ROOM results (previously all empty space up to the fake allocation pointer would get counted as conses) * Usually faster * Needed for some GC work that might get committed in the future * Genesify the GENCGC page size, while since it's now needed in Lisp Index: gencgc-internal.h =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/runtime/gencgc-internal.h,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- gencgc-internal.h 12 Oct 2005 23:53:47 -0000 1.13 +++ gencgc-internal.h 14 Dec 2005 03:39:23 -0000 1.14 @@ -19,14 +19,12 @@ #ifndef _GENCGC_INTERNAL_H_ #define _GENCGC_INTERNAL_H_ +#include <limits.h> #include "gc.h" #include "gencgc-alloc-region.h" #include "genesis/code.h" -/* Size of a page, in bytes. FIXME: needs to be conditionalized per - * architecture, preferably by someone with a clue as to what page - * sizes are on archs other than x86 and PPC - Patrik */ -#define PAGE_BYTES 4096 +#define PAGE_BYTES GENCGC_PAGE_SIZE void gc_free_heap(void); inline page_index_t find_page_index(void *); |