projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.31.22: improved SAP-{REF,SET}-* for x86-64
[sbcl.git]
/
src
/
runtime
/
gc.h
diff --git
a/src/runtime/gc.h
b/src/runtime/gc.h
index
8b0f62e
..
ce1b925
100644
(file)
--- a/
src/runtime/gc.h
+++ b/
src/runtime/gc.h
@@
-16,9
+16,20
@@
#ifndef _GC_H_
#define _GC_H_
#ifndef _GC_H_
#define _GC_H_
+#include "sbcl.h"
+
+#ifdef LISP_FEATURE_GENCGC
+#define PAGE_BYTES GENCGC_PAGE_BYTES
+#else
+#define PAGE_BYTES BACKEND_PAGE_BYTES
+#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 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);
extern void gc_init_tables(void);
@@
-27,13
+38,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 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);
-static inline int fixnump(lispobj obj) {
- return((obj &
- (LOWTAG_MASK &
- (~(EVEN_FIXNUM_LOWTAG|ODD_FIXNUM_LOWTAG))))
- == 0);
-}
+extern unsigned long bytes_consed_between_gcs;
#endif /* _GC_H_ */
#endif /* _GC_H_ */