X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgc.h;h=a02846667e941b4d5abcaf3c5815edca2030dc28;hb=18c093eb771c1ab038090863d99bf4baf4224966;hp=35f9d126b253630e251d4272ca3aa40b302c95ce;hpb=2db410feb35e7e30c95af8f20f67e6177fa92488;p=sbcl.git diff --git a/src/runtime/gc.h b/src/runtime/gc.h index 35f9d12..a028466 100644 --- a/src/runtime/gc.h +++ b/src/runtime/gc.h @@ -17,14 +17,17 @@ #define _GC_H_ #include "sbcl.h" +#include -#ifdef LISP_FEATURE_GENCGC -#define PAGE_BYTES GENCGC_PAGE_BYTES -#else #define PAGE_BYTES BACKEND_PAGE_BYTES + +typedef intptr_t page_index_t; +#ifdef LISP_FEATURE_WIN32 +#define PAGE_INDEX_FMT "Id" +#else +#define PAGE_INDEX_FMT "ld" #endif -typedef signed long page_index_t; typedef signed char generation_index_t; extern void gc_init(void); @@ -40,10 +43,8 @@ extern void clear_auto_gc_trigger(void); #include "fixnump.h" -#include "pseudo-atomic.h" - extern boolean maybe_gc(os_context_t *context); -extern unsigned long bytes_consed_between_gcs; +extern os_vm_size_t bytes_consed_between_gcs; #endif /* _GC_H_ */