X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgc.h;h=a02846667e941b4d5abcaf3c5815edca2030dc28;hb=35ab27e7aab71c94aa6be12da15603c7fd87fca8;hp=c27ab794a6c25e1a056a0ca11cc1edc7b5a757d1;hpb=f5146484af254ef6812f0417deed9ccd5c2eda27;p=sbcl.git diff --git a/src/runtime/gc.h b/src/runtime/gc.h index c27ab79..a028466 100644 --- a/src/runtime/gc.h +++ b/src/runtime/gc.h @@ -16,9 +16,23 @@ #ifndef _GC_H_ #define _GC_H_ +#include "sbcl.h" +#include + +#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 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); @@ -27,5 +41,10 @@ extern void gc_init_tables(void); extern void set_auto_gc_trigger(os_vm_size_t usage); extern void clear_auto_gc_trigger(void); -extern int maybe_gc_pending; +#include "fixnump.h" + +extern boolean maybe_gc(os_context_t *context); + +extern os_vm_size_t bytes_consed_between_gcs; + #endif /* _GC_H_ */