#include "iron_gc.h"

#ifdef NO_GC

#include <memory.h>
#include <stdint.h>
#include <stdlib.h>
#include <string.h>

#define HEAP_SIZE 512 * 1024 * 1024
static uint8_t *heap     = NULL;
static size_t   heap_top = 0;

void *gc_alloc(size_t size) {
#ifdef HEAP_SIZE
	size_t old_top = heap_top;
	heap_top += size;
	return &heap[old_top];
#else
	return calloc(size, 1);
#endif
}

void gc_array(void *ptr, int *length) {}

void gc_leaf(void *ptr) {}

void gc_root(void *ptr) {}

void gc_unroot(void *ptr) {}

void *gc_cut(void *ptr, size_t pos, size_t size) {
	return NULL;
}

void *gc_realloc(void *ptr, size_t size) {
#ifdef HEAP_SIZE
	void *new_ptr = gc_alloc(size);
	if (ptr != NULL) {
		memcpy(new_ptr, ptr, size);
	}
	return new_ptr;
#else
	return realloc(ptr, size);
#endif
}

void gc_free(void *ptr) {
#ifdef HEAP_SIZE
#else
	free(ptr);
#endif
}

void gc_pause() {}

void gc_resume() {}

void gc_run() {}

void gc_start(void *bos) {
#ifdef HEAP_SIZE
	heap = (uint8_t *)calloc(HEAP_SIZE, 1);
#endif
}

void gc_stop() {}

#else

#include <gc.h>

void *gc_alloc(size_t size) {
	return _gc_calloc(size, sizeof(uint8_t));
}

void gc_array(void *ptr, int *length) {
	_gc_array(ptr, length);
}

void gc_leaf(void *ptr) {
	_gc_leaf(ptr);
}

void gc_root(void *ptr) {
	_gc_root(ptr);
}

void gc_unroot(void *ptr) {
	_gc_unroot(ptr);
}

void *gc_cut(void *ptr, size_t pos, size_t size) {
	return _gc_cut(ptr, pos, size);
}

void *gc_realloc(void *ptr, size_t size) {
	return ptr == NULL ? gc_alloc(size) : _gc_realloc(ptr, size);
}

void gc_free(void *ptr) {
	if (ptr != NULL) {
		_gc_free(ptr);
	}
}

void gc_pause() {
	_gc_pause();
}

void gc_resume() {
	_gc_resume();
}

void gc_run() {
	_gc_run();
}

void gc_start(void *bos) {
	_gc_start(bos);
}

void gc_stop() {
	_gc_stop();
}

#endif