bool gc_in_progress;

/* GC is off during heap walking */
bool heap_scan;

s64 gc_time;

/* Given a pointer to oldspace, copy it to newspace. */
INLINE void* copy_untagged_object(void* pointer, CELL size)
{
	void* newpointer = allot(size);
	memcpy(newpointer,pointer,size);

	return newpointer;
}

CELL copy_object_impl(CELL pointer);

INLINE CELL copy_object(CELL pointer)
{
	CELL tag;
	CELL header;

	if(pointer == F)
		return F;

	tag = TAG(pointer);

	if(tag == FIXNUM_TYPE)
		return pointer;

	header = get(UNTAG(pointer));
	if(TAG(header) == GC_COLLECTED)
		return RETAG(UNTAG(header),tag);
	else
		return RETAG(copy_object_impl(pointer),tag);
}

#define COPY_OBJECT(lvalue) lvalue = copy_object(lvalue)

INLINE void copy_handle(CELL* handle)
{
	COPY_OBJECT(*handle);
}

void collect_roots(void);
void primitive_gc(void);
void maybe_garbage_collection(void);
void primitive_gc_time(void);