X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgc.h;h=76a10e1dc0e30dd62a8ec6afcec3f84b0f1a4aa1;hb=1de12891f900d156ed035a097561ecd7755a256a;hp=8b0f62e9d9fb75f529863caf2215f5f0458d3e7e;hpb=f706a441d7c09cba32701289b63946527fef3c78;p=sbcl.git diff --git a/src/runtime/gc.h b/src/runtime/gc.h index 8b0f62e..76a10e1 100644 --- a/src/runtime/gc.h +++ b/src/runtime/gc.h @@ -16,9 +16,20 @@ #ifndef _GC_H_ #define _GC_H_ +#include "sbcl.h" + +#ifdef LISP_FEATURE_GENCGC +#define PAGE_BYTES GENCGC_PAGE_SIZE +#else +#define PAGE_BYTES 0x1000 +#endif + +typedef signed long page_index_t; +typedef signed char generation_index_t; + extern void gc_init(void); extern void gc_initialize_pointers(void); -extern void collect_garbage(unsigned last_gen); +extern void collect_garbage(generation_index_t last_gen); extern void gc_init_tables(void); @@ -29,11 +40,8 @@ extern void clear_auto_gc_trigger(void); extern int maybe_gc_pending; -static inline int fixnump(lispobj obj) { - return((obj & - (LOWTAG_MASK & - (~(EVEN_FIXNUM_LOWTAG|ODD_FIXNUM_LOWTAG)))) - == 0); -} +#include "fixnump.h" + +#include "pseudo-atomic.h" #endif /* _GC_H_ */