namespace factor
{

/* statistics */
struct gc_stats {
	cell collections;
	u64 gc_time;
	u64 max_gc_time;
	cell object_count;
	u64 bytes_copied;
};

extern zone *newspace;

extern bool performing_compaction;
extern cell collecting_gen;
extern bool collecting_aging_again;

extern cell last_code_heap_scan;

void init_data_gc();

void gc();

void copy_handle(cell *handle);

void garbage_collection(volatile cell gen,
	bool growing_data_heap_,
	cell requested_bytes);

/* We leave this many bytes free at the top of the nursery so that inline
allocation (which does not call GC because of possible roots in volatile
registers) does not run out of memory */
static const cell allot_buffer_zone = 1024;

void copy_reachable_objects(cell scan, cell *end);

PRIMITIVE(gc);
PRIMITIVE(gc_stats);
void clear_gc_stats();
PRIMITIVE(clear_gc_stats);
PRIMITIVE(become);

extern bool growing_data_heap;


VM_ASM_API void inline_gc(cell *gc_roots_base, cell gc_roots_size);

}