namespace factor
{

struct old_space : zone {
	card *allot_markers;
	card *allot_markers_end;

	old_space(cell size_, cell start_);
	~old_space();

	cell card_offset(cell address)
	{
		return allot_markers[(address - start) >> card_bits];
	}

	card *addr_to_allot_marker(object *a);
	void record_allocation(object *obj);
	object *allot(cell size);
	void clear_allot_markers();
	cell next_object_after(factor_vm *myvm, cell scan);
};

}