picrin/extlib/benz/gc.c

920 lines
18 KiB
C
Raw Normal View History

2014-08-25 00:38:09 -04:00
/**
* See Copyright Notice in picrin.h
*/
#include "picrin.h"
union header {
struct {
union header *ptr;
size_t size;
2015-05-27 09:49:29 -04:00
char mark;
2014-08-25 00:38:09 -04:00
} s;
long alignment[2];
2014-08-25 00:38:09 -04:00
};
struct heap_page {
union header *basep, *endp;
struct heap_page *next;
};
struct pic_heap {
union header base, *freep;
struct heap_page *pages;
};
static void
heap_init(struct pic_heap *heap)
{
heap->base.s.ptr = &heap->base;
heap->base.s.size = 0; /* not 1, since it must never be used for allocation */
heap->base.s.mark = PIC_GC_UNMARK;
heap->freep = &heap->base;
heap->pages = NULL;
#if GC_DEBUG
printf("freep = %p\n", (void *)heap->freep);
#endif
}
struct pic_heap *
pic_heap_open(pic_state *pic)
2014-08-25 00:38:09 -04:00
{
struct pic_heap *heap;
heap = pic_calloc(pic, 1, sizeof(struct pic_heap));
2014-08-25 00:38:09 -04:00
heap_init(heap);
return heap;
}
void
pic_heap_close(pic_state *pic, struct pic_heap *heap)
2014-08-25 00:38:09 -04:00
{
struct heap_page *page;
while (heap->pages) {
page = heap->pages;
heap->pages = heap->pages->next;
pic_free(pic, page);
2014-08-25 00:38:09 -04:00
}
}
static void gc_free(pic_state *, union header *);
static void
add_heap_page(pic_state *pic)
{
union header *up, *np;
struct heap_page *page;
size_t nu;
#if GC_DEBUG
puts("adding heap page!");
#endif
nu = (PIC_HEAP_PAGE_SIZE + sizeof(union header) - 1) / sizeof(union header) + 1;
2015-05-27 09:49:29 -04:00
up = pic_calloc(pic, 1 + nu + 1, sizeof(union header));
2014-08-25 00:38:09 -04:00
up->s.size = nu + 1;
up->s.mark = PIC_GC_UNMARK;
gc_free(pic, up);
np = up + 1;
np->s.size = nu;
np->s.ptr = up->s.ptr;
up->s.size = 1;
up->s.ptr = np;
2015-05-28 03:42:16 -04:00
page = pic_malloc(pic, sizeof(struct heap_page));
2014-08-25 00:38:09 -04:00
page->basep = up;
page->endp = up + nu + 1;
page->next = pic->heap->pages;
pic->heap->pages = page;
}
2015-05-27 13:12:26 -04:00
#if PIC_ENABLE_LIBC
void *
pic_default_allocf(void *ptr, size_t size)
2014-08-25 00:38:09 -04:00
{
if (size == 0) {
if (ptr) {
free(ptr);
}
return NULL;
}
if (ptr) {
return realloc(ptr, size);
} else {
return malloc(size);
}
}
2015-05-27 13:12:26 -04:00
#endif
2014-08-25 00:38:09 -04:00
void *
2015-05-28 03:42:16 -04:00
pic_malloc(pic_state *pic, size_t size)
2014-08-25 00:38:09 -04:00
{
void *ptr;
2015-05-27 13:12:26 -04:00
ptr = pic->allocf(NULL, size);
2014-08-25 00:38:09 -04:00
if (ptr == NULL && size > 0) {
2014-09-16 12:02:27 -04:00
pic_panic(pic, "memory exhausted");
2014-08-25 00:38:09 -04:00
}
return ptr;
}
void *
pic_realloc(pic_state *pic, void *ptr, size_t size)
{
2015-05-27 13:12:26 -04:00
ptr = pic->allocf(ptr, size);
2014-08-25 00:38:09 -04:00
if (ptr == NULL && size > 0) {
2014-09-16 12:02:27 -04:00
pic_panic(pic, "memory exhausted");
2014-08-25 00:38:09 -04:00
}
return ptr;
}
void *
pic_calloc(pic_state *pic, size_t count, size_t size)
{
void *ptr;
size *= count;
2015-05-27 13:12:26 -04:00
ptr = pic->allocf(NULL, size);
2014-08-25 00:38:09 -04:00
if (ptr == NULL && size > 0) {
2014-09-16 12:02:27 -04:00
pic_panic(pic, "memory exhausted");
2014-08-25 00:38:09 -04:00
}
memset(ptr, 0, size);
return ptr;
}
void
pic_free(pic_state *pic, void *ptr)
{
2015-05-27 13:12:26 -04:00
pic->allocf(ptr, 0);
2014-08-25 00:38:09 -04:00
}
static void
gc_protect(pic_state *pic, struct pic_object *obj)
{
if (pic->arena_idx >= pic->arena_size) {
pic->arena_size = pic->arena_size * 2 + 1;
pic->arena = pic_realloc(pic, pic->arena, sizeof(struct pic_object *) * pic->arena_size);
}
pic->arena[pic->arena_idx++] = obj;
}
pic_value
pic_gc_protect(pic_state *pic, pic_value v)
{
struct pic_object *obj;
if (pic_vtype(v) != PIC_VTYPE_HEAP) {
return v;
}
obj = pic_obj_ptr(v);
gc_protect(pic, obj);
return v;
}
size_t
pic_gc_arena_preserve(pic_state *pic)
{
return pic->arena_idx;
}
void
pic_gc_arena_restore(pic_state *pic, size_t state)
{
pic->arena_idx = state;
}
static void *
gc_alloc(pic_state *pic, size_t size)
{
union header *freep, *p, *prevp;
size_t nunits;
#if GC_DEBUG
assert(size > 0);
#endif
nunits = (size + sizeof(union header) - 1) / sizeof(union header) + 1;
prevp = freep = pic->heap->freep;
for (p = prevp->s.ptr; ; prevp = p, p = p->s.ptr) {
if (p->s.size >= nunits)
break;
if (p == freep) {
return NULL;
}
}
#if GC_DEBUG
{
unsigned char *c;
size_t s, i, j;
if (p->s.size == nunits) {
c = (unsigned char *)(p + p->s.size - nunits + 1);
s = nunits - 1;
} else {
c = (unsigned char *)(p + p->s.size - nunits);
s = nunits;
}
for (i = 0; i < s; ++i) {
for (j = 0; j < sizeof(union header); ++j) {
assert(c[i * sizeof(union header) + j] == 0xAA);
}
}
}
#endif
if (p->s.size == nunits) {
prevp->s.ptr = p->s.ptr;
}
else {
p->s.size -= nunits;
p += p->s.size;
p->s.size = nunits;
}
pic->heap->freep = prevp;
p->s.mark = PIC_GC_UNMARK;
#if GC_DEBUG
memset(p+1, 0, sizeof(union header) * (nunits - 1));
p->s.ptr = (union header *)0xcafebabe;
#endif
return (void *)(p + 1);
}
static void
gc_free(pic_state *pic, union header *bp)
{
union header *freep, *p;
#if GC_DEBUG
assert(bp != NULL);
assert(bp->s.size > 1);
#endif
#if GC_DEBUG
memset(bp + 1, 0xAA, (bp->s.size - 1) * sizeof(union header));
#endif
freep = pic->heap->freep;
for (p = freep; ! (bp > p && bp < p->s.ptr); p = p->s.ptr) {
if (p >= p->s.ptr && (bp > p || bp < p->s.ptr)) {
break;
}
}
if (bp + bp->s.size == p->s.ptr) {
bp->s.size += p->s.ptr->s.size;
bp->s.ptr = p->s.ptr->s.ptr;
#if GC_DEBUG
memset(p->s.ptr, 0xAA, sizeof(union header));
#endif
}
else {
bp->s.ptr = p->s.ptr;
}
if (p + p->s.size == bp && p->s.size > 1) {
p->s.size += bp->s.size;
p->s.ptr = bp->s.ptr;
#if GC_DEBUG
memset(bp, 0xAA, sizeof(union header));
#endif
}
else {
p->s.ptr = bp;
}
pic->heap->freep = p;
}
static void gc_mark(pic_state *, pic_value);
static void gc_mark_object(pic_state *pic, struct pic_object *obj);
static bool
gc_is_marked(union header *p)
{
return p->s.mark == PIC_GC_MARK;
}
2014-09-24 23:12:52 -04:00
static bool
gc_obj_is_marked(struct pic_object *obj)
{
union header *p;
p = ((union header *)obj) - 1;
return gc_is_marked(p);
}
2015-06-09 05:31:46 -04:00
static bool
gc_value_need_mark(pic_value value)
{
return pic_obj_p(value) && (! gc_obj_is_marked(pic_obj_ptr(value)));
}
2014-08-25 00:38:09 -04:00
static void
gc_unmark(union header *p)
{
p->s.mark = PIC_GC_UNMARK;
}
2014-09-17 02:09:15 -04:00
static void
2015-06-08 08:04:04 -04:00
gc_mark_checkpoint(pic_state *pic, pic_checkpoint *cp)
2014-09-17 02:09:15 -04:00
{
2015-06-08 08:04:04 -04:00
if (cp->prev) {
gc_mark_object(pic, (struct pic_object *)cp->prev);
2014-09-17 02:09:15 -04:00
}
2015-06-08 08:04:04 -04:00
if (cp->in) {
gc_mark_object(pic, (struct pic_object *)cp->in);
2014-09-17 02:09:15 -04:00
}
2015-06-08 08:04:04 -04:00
if (cp->out) {
gc_mark_object(pic, (struct pic_object *)cp->out);
2014-09-17 02:09:15 -04:00
}
}
2014-08-25 00:38:09 -04:00
static void
gc_mark_object(pic_state *pic, struct pic_object *obj)
{
union header *p;
p = ((union header *)obj) - 1;
if (gc_is_marked(p))
return;
p->s.mark = PIC_GC_MARK;
switch (obj->tt) {
case PIC_TT_PAIR: {
gc_mark(pic, ((struct pic_pair *)obj)->car);
gc_mark(pic, ((struct pic_pair *)obj)->cdr);
break;
}
2015-05-30 09:34:51 -04:00
case PIC_TT_CXT: {
struct pic_context *cxt = (struct pic_context *)obj;
2014-08-25 00:38:09 -04:00
int i;
2015-05-30 09:34:51 -04:00
for (i = 0; i < cxt->regc; ++i) {
gc_mark(pic, cxt->regs[i]);
2014-08-25 00:38:09 -04:00
}
2015-05-30 09:34:51 -04:00
if (cxt->up) {
gc_mark_object(pic, (struct pic_object *)cxt->up);
2014-08-25 00:38:09 -04:00
}
break;
}
case PIC_TT_PROC: {
struct pic_proc *proc = (struct pic_proc *)obj;
if (pic_proc_irep_p(proc)) {
2015-05-31 07:19:07 -04:00
gc_mark_object(pic, (struct pic_object *)proc->u.i.irep);
if (proc->u.i.cxt) {
gc_mark_object(pic, (struct pic_object *)proc->u.i.cxt);
}
2015-01-18 22:14:46 -05:00
} else {
2015-05-31 07:22:46 -04:00
gc_mark_object(pic, (struct pic_object *)proc->u.f.name);
if (proc->u.f.env) {
gc_mark_object(pic, (struct pic_object *)proc->u.f.env);
}
2014-08-25 00:38:09 -04:00
}
break;
}
case PIC_TT_PORT: {
break;
}
case PIC_TT_ERROR: {
struct pic_error *err = (struct pic_error *)obj;
2015-01-18 22:14:46 -05:00
gc_mark_object(pic, (struct pic_object *)err->type);
gc_mark_object(pic, (struct pic_object *)err->msg);
2014-08-25 00:38:09 -04:00
gc_mark(pic, err->irrs);
gc_mark_object(pic, (struct pic_object *)err->stack);
break;
}
case PIC_TT_STRING: {
break;
}
case PIC_TT_VECTOR: {
size_t i;
for (i = 0; i < ((struct pic_vector *)obj)->len; ++i) {
gc_mark(pic, ((struct pic_vector *)obj)->data[i]);
}
break;
}
case PIC_TT_BLOB: {
break;
}
2015-05-30 09:39:03 -04:00
case PIC_TT_ENV: {
struct pic_env *env = (struct pic_env *)obj;
2014-08-25 00:38:09 -04:00
2015-05-30 09:39:03 -04:00
if (env->up) {
gc_mark_object(pic, (struct pic_object *)env->up);
2014-08-25 00:38:09 -04:00
}
2015-05-30 09:39:03 -04:00
gc_mark(pic, env->defer);
gc_mark_object(pic, (struct pic_object *)env->map);
2014-08-25 00:38:09 -04:00
break;
}
case PIC_TT_LIB: {
struct pic_lib *lib = (struct pic_lib *)obj;
gc_mark(pic, lib->name);
gc_mark_object(pic, (struct pic_object *)lib->env);
2015-01-18 07:32:16 -05:00
gc_mark_object(pic, (struct pic_object *)lib->exports);
2014-08-25 00:38:09 -04:00
break;
}
case PIC_TT_IREP: {
struct pic_irep *irep = (struct pic_irep *)obj;
size_t i;
2015-01-19 12:51:51 -05:00
gc_mark_object(pic, (struct pic_object *)irep->name);
2014-08-25 00:38:09 -04:00
for (i = 0; i < irep->ilen; ++i) {
gc_mark_object(pic, (struct pic_object *)irep->irep[i]);
}
for (i = 0; i < irep->plen; ++i) {
gc_mark(pic, irep->pool[i]);
}
2015-01-18 22:14:46 -05:00
for (i = 0; i < irep->slen; ++i) {
gc_mark_object(pic, (struct pic_object *)irep->syms[i]);
}
2014-08-25 00:38:09 -04:00
break;
}
case PIC_TT_DATA: {
struct pic_data *data = (struct pic_data *)obj;
2014-09-16 03:44:44 -04:00
xh_entry *it;
2014-08-25 00:38:09 -04:00
2014-09-16 03:44:44 -04:00
for (it = xh_begin(&data->storage); it != NULL; it = xh_next(it)) {
gc_mark(pic, xh_val(it, pic_value));
2014-08-25 00:38:09 -04:00
}
2014-09-16 03:18:19 -04:00
if (data->type->mark) {
data->type->mark(pic, data->data, gc_mark);
}
2014-08-25 00:38:09 -04:00
break;
}
case PIC_TT_DICT: {
struct pic_dict *dict = (struct pic_dict *)obj;
2014-09-16 03:44:44 -04:00
xh_entry *it;
2014-08-25 00:38:09 -04:00
2014-09-16 03:44:44 -04:00
for (it = xh_begin(&dict->hash); it != NULL; it = xh_next(it)) {
2015-01-20 02:02:28 -05:00
gc_mark_object(pic, (struct pic_object *)xh_key(it, pic_sym *));
2014-09-16 03:44:44 -04:00
gc_mark(pic, xh_val(it, pic_value));
2014-08-25 00:38:09 -04:00
}
break;
}
case PIC_TT_RECORD: {
struct pic_record *rec = (struct pic_record *)obj;
2015-01-18 07:40:14 -05:00
gc_mark_object(pic, (struct pic_object *)rec->data);
2014-08-25 00:38:09 -04:00
break;
}
case PIC_TT_SYMBOL: {
struct pic_symbol *sym = (struct pic_symbol *)obj;
gc_mark_object(pic, (struct pic_object *)sym->str);
break;
}
2015-06-09 05:31:46 -04:00
case PIC_TT_REG: {
struct pic_reg *reg = (struct pic_reg *)obj;
reg->prev = pic->regs;
pic->regs = reg;
break;
}
2014-08-25 00:38:09 -04:00
case PIC_TT_NIL:
case PIC_TT_BOOL:
#if PIC_ENABLE_FLOAT
2014-08-25 00:38:09 -04:00
case PIC_TT_FLOAT:
#endif
2014-08-25 00:38:09 -04:00
case PIC_TT_INT:
case PIC_TT_CHAR:
case PIC_TT_EOF:
case PIC_TT_UNDEF:
2015-06-09 03:02:23 -04:00
case PIC_TT_INVALID:
2014-09-16 12:02:27 -04:00
pic_panic(pic, "logic flaw");
2014-08-25 00:38:09 -04:00
}
}
static void
gc_mark(pic_state *pic, pic_value v)
{
struct pic_object *obj;
if (pic_vtype(v) != PIC_VTYPE_HEAP)
return;
obj = pic_obj_ptr(v);
gc_mark_object(pic, obj);
}
2015-01-18 22:14:46 -05:00
#define M(x) gc_mark_object(pic, (struct pic_object *)pic->x)
static void
gc_mark_global_symbols(pic_state *pic)
{
2015-01-20 03:38:34 -05:00
M(sDEFINE); M(sLAMBDA); M(sIF); M(sBEGIN); M(sQUOTE); M(sSETBANG);
M(sQUASIQUOTE); M(sUNQUOTE); M(sUNQUOTE_SPLICING);
M(sDEFINE_SYNTAX); M(sIMPORT); M(sEXPORT);
M(sDEFINE_LIBRARY); M(sIN_LIBRARY);
2015-01-20 03:38:34 -05:00
M(sCOND_EXPAND); M(sAND); M(sOR); M(sELSE); M(sLIBRARY);
M(sONLY); M(sRENAME); M(sPREFIX); M(sEXCEPT);
M(sCONS); M(sCAR); M(sCDR); M(sNILP);
M(sSYMBOLP); M(sPAIRP);
M(sADD); M(sSUB); M(sMUL); M(sDIV); M(sMINUS);
M(sEQ); M(sLT); M(sLE); M(sGT); M(sGE); M(sNOT);
M(sREAD); M(sFILE);
M(sCALL); M(sTAILCALL); M(sCALL_WITH_VALUES); M(sTAILCALL_WITH_VALUES);
M(sGREF); M(sLREF); M(sCREF); M(sRETURN);
2015-01-18 22:14:46 -05:00
M(rDEFINE); M(rLAMBDA); M(rIF); M(rBEGIN); M(rQUOTE); M(rSETBANG);
M(rDEFINE_SYNTAX); M(rIMPORT); M(rEXPORT);
M(rDEFINE_LIBRARY); M(rIN_LIBRARY);
2015-01-18 22:14:46 -05:00
M(rCOND_EXPAND);
2015-06-04 00:53:41 -04:00
M(rCONS); M(rCAR); M(rCDR); M(rNILP);
M(rSYMBOLP); M(rPAIRP);
M(rADD); M(rSUB); M(rMUL); M(rDIV);
M(rEQ); M(rLT); M(rLE); M(rGT); M(rGE); M(rNOT);
M(rVALUES); M(rCALL_WITH_VALUES);
2015-01-18 22:14:46 -05:00
}
2014-08-25 00:38:09 -04:00
static void
gc_mark_phase(pic_state *pic)
{
pic_value *stack;
pic_callinfo *ci;
2014-09-18 01:50:01 -04:00
struct pic_proc **xhandler;
size_t j;
2015-06-09 05:31:46 -04:00
assert(pic->regs == NULL);
2014-08-25 00:38:09 -04:00
2015-06-08 08:04:04 -04:00
/* checkpoint */
if (pic->cp) {
gc_mark_checkpoint(pic, pic->cp);
2014-08-25 00:38:09 -04:00
}
/* stack */
for (stack = pic->stbase; stack != pic->sp; ++stack) {
gc_mark(pic, *stack);
}
/* callinfo */
for (ci = pic->ci; ci != pic->cibase; --ci) {
2015-05-30 09:34:51 -04:00
if (ci->cxt) {
gc_mark_object(pic, (struct pic_object *)ci->cxt);
2014-08-25 00:38:09 -04:00
}
}
2014-09-18 01:50:01 -04:00
/* exception handlers */
for (xhandler = pic->xpbase; xhandler != pic->xp; ++xhandler) {
gc_mark_object(pic, (struct pic_object *)*xhandler);
}
2014-08-25 00:38:09 -04:00
/* arena */
for (j = 0; j < pic->arena_idx; ++j) {
gc_mark_object(pic, pic->arena[j]);
}
2015-01-20 03:38:34 -05:00
/* mark reserved symbols */
2015-01-18 22:14:46 -05:00
gc_mark_global_symbols(pic);
2014-08-25 00:38:09 -04:00
/* global variables */
if (pic->globals) {
gc_mark_object(pic, (struct pic_object *)pic->globals);
2014-08-25 00:38:09 -04:00
}
/* macro objects */
if (pic->macros) {
gc_mark_object(pic, (struct pic_object *)pic->macros);
2014-08-25 00:38:09 -04:00
}
2015-06-09 05:31:46 -04:00
/* attribute table */
if (pic->attrs) {
gc_mark_object(pic, (struct pic_object *)pic->attrs);
}
2014-09-18 01:50:01 -04:00
/* error object */
gc_mark(pic, pic->err);
2014-08-25 00:38:09 -04:00
2014-09-18 01:50:01 -04:00
/* features */
2014-09-09 12:41:10 -04:00
gc_mark(pic, pic->features);
2014-08-25 00:38:09 -04:00
/* library table */
gc_mark(pic, pic->libs);
2014-09-01 00:43:54 -04:00
/* standard I/O ports */
if (pic->xSTDIN) {
gc_mark_object(pic, (struct pic_object *)pic->xSTDIN);
}
if (pic->xSTDOUT) {
gc_mark_object(pic, (struct pic_object *)pic->xSTDOUT);
}
if (pic->xSTDERR) {
gc_mark_object(pic, (struct pic_object *)pic->xSTDERR);
}
2014-09-24 20:44:21 -04:00
2015-06-08 09:28:17 -04:00
/* parameter table */
gc_mark(pic, pic->ptable);
2015-06-09 05:31:46 -04:00
/* registries */
2014-09-24 23:12:52 -04:00
do {
2015-06-09 05:31:46 -04:00
struct pic_object *key;
pic_value val;
xh_entry *it;
struct pic_reg *reg;
2014-09-24 23:12:52 -04:00
2015-06-09 05:31:46 -04:00
j = 0;
reg = pic->regs;
while (reg != NULL) {
for (it = xh_begin(&reg->hash); it != NULL; it = xh_next(it)) {
key = xh_key(it, struct pic_object *);
val = xh_val(it, pic_value);
if (gc_obj_is_marked(key) && gc_value_need_mark(val)) {
gc_mark(pic, val);
2014-09-24 23:12:52 -04:00
++j;
}
}
2015-06-09 05:31:46 -04:00
reg = reg->prev;
2014-09-24 23:12:52 -04:00
}
} while (j > 0);
2014-08-25 00:38:09 -04:00
}
static void
gc_finalize_object(pic_state *pic, struct pic_object *obj)
{
#if GC_DEBUG
printf("* finalizing object: %s", pic_type_repr(pic_type(pic_obj_value(obj))));
// pic_debug(pic, pic_obj_value(obj));
puts("");
#endif
switch (obj->tt) {
case PIC_TT_PAIR: {
break;
}
2015-05-30 09:34:51 -04:00
case PIC_TT_CXT: {
2014-08-25 00:38:09 -04:00
break;
}
case PIC_TT_PROC: {
break;
}
case PIC_TT_VECTOR: {
pic_free(pic, ((struct pic_vector *)obj)->data);
break;
}
case PIC_TT_BLOB: {
pic_free(pic, ((struct pic_blob *)obj)->data);
break;
}
case PIC_TT_STRING: {
pic_rope_decref(pic, ((struct pic_string *)obj)->rope);
2014-08-25 00:38:09 -04:00
break;
}
case PIC_TT_PORT: {
break;
}
case PIC_TT_ERROR: {
break;
}
2015-05-30 09:39:03 -04:00
case PIC_TT_ENV: {
2014-08-25 00:38:09 -04:00
break;
}
case PIC_TT_LIB: {
break;
}
case PIC_TT_IREP: {
struct pic_irep *irep = (struct pic_irep *)obj;
pic_free(pic, irep->code);
pic_free(pic, irep->irep);
pic_free(pic, irep->pool);
2015-01-18 11:29:00 -05:00
pic_free(pic, irep->syms);
2014-08-25 00:38:09 -04:00
break;
}
case PIC_TT_DATA: {
struct pic_data *data = (struct pic_data *)obj;
data->type->dtor(pic, data->data);
xh_destroy(&data->storage);
break;
}
case PIC_TT_DICT: {
struct pic_dict *dict = (struct pic_dict *)obj;
xh_destroy(&dict->hash);
break;
}
case PIC_TT_RECORD: {
break;
}
case PIC_TT_SYMBOL: {
break;
}
2015-06-09 05:31:46 -04:00
case PIC_TT_REG: {
struct pic_reg *reg = (struct pic_reg *)obj;
xh_destroy(&reg->hash);
break;
}
2014-08-25 00:38:09 -04:00
case PIC_TT_NIL:
case PIC_TT_BOOL:
#if PIC_ENABLE_FLOAT
2014-08-25 00:38:09 -04:00
case PIC_TT_FLOAT:
#endif
2014-08-25 00:38:09 -04:00
case PIC_TT_INT:
case PIC_TT_CHAR:
case PIC_TT_EOF:
case PIC_TT_UNDEF:
2015-06-09 03:02:23 -04:00
case PIC_TT_INVALID:
2014-09-16 12:02:27 -04:00
pic_panic(pic, "logic flaw");
2014-08-25 00:38:09 -04:00
}
}
2015-01-20 03:38:34 -05:00
static void
gc_sweep_symbols(pic_state *pic)
{
xh_entry *it;
2015-01-22 08:15:12 -05:00
xvect_t(xh_entry *) xv;
2015-01-20 03:38:34 -05:00
size_t i;
char *cstr;
2015-01-22 08:15:12 -05:00
xv_init(xv);
2015-01-20 03:38:34 -05:00
for (it = xh_begin(&pic->syms); it != NULL; it = xh_next(it)) {
if (! gc_obj_is_marked((struct pic_object *)xh_val(it, pic_sym *))) {
2015-01-22 08:15:12 -05:00
xv_push(xh_entry *, xv, it);
2015-01-20 03:38:34 -05:00
}
}
2015-01-22 08:15:12 -05:00
for (i = 0; i < xv_size(xv); ++i) {
cstr = xh_key(xv_A(xv, i), char *);
2015-01-20 03:38:34 -05:00
xh_del_str(&pic->syms, cstr);
pic_free(pic, cstr);
}
}
2014-08-25 00:38:09 -04:00
static void
gc_sweep_page(pic_state *pic, struct heap_page *page)
{
#if GC_DEBUG
static union header * const NIL = (union header *)0xdeadbeef;
2014-08-25 00:38:09 -04:00
#else
static union header * const NIL = NULL;
2014-08-25 00:38:09 -04:00
#endif
2014-09-26 02:59:28 -04:00
union header *bp, *p, *s = NIL, *t = NIL;
2014-08-25 00:38:09 -04:00
#if GC_DEBUG
int c = 0;
#endif
for (bp = page->basep; ; bp = bp->s.ptr) {
for (p = bp + bp->s.size; p != bp->s.ptr; p += p->s.size) {
if (p == page->endp) {
goto escape;
}
if (! gc_is_marked(p)) {
if (s == NIL) {
s = p;
}
else {
t->s.ptr = p;
}
t = p;
t->s.ptr = NIL; /* For dead objects we can safely reuse ptr field */
}
gc_unmark(p);
}
}
escape:
/* free! */
while (s != NIL) {
t = s->s.ptr;
gc_finalize_object(pic, (struct pic_object *)(s + 1));
gc_free(pic, s);
s = t;
#if GC_DEBUG
c++;
#endif
}
#if GC_DEBUG
printf("freed objects count: %d\n", c);
#endif
}
static void
gc_sweep_phase(pic_state *pic)
{
struct heap_page *page = pic->heap->pages;
2014-09-24 23:12:52 -04:00
xh_entry *it, *next;
2015-06-09 05:31:46 -04:00
/* registries */
while (pic->regs != NULL) {
for (it = xh_begin(&pic->regs->hash); it != NULL; it = next) {
2014-09-24 23:12:52 -04:00
next = xh_next(it);
if (! gc_obj_is_marked(xh_key(it, struct pic_object *))) {
2015-06-09 05:31:46 -04:00
xh_del_ptr(&pic->regs->hash, xh_key(it, struct pic_object *));
2014-09-24 23:12:52 -04:00
}
}
2015-06-09 05:31:46 -04:00
pic->regs = pic->regs->prev;
}
2014-08-25 00:38:09 -04:00
2015-01-20 03:38:34 -05:00
gc_sweep_symbols(pic);
2014-08-25 00:38:09 -04:00
while (page) {
gc_sweep_page(pic, page);
page = page->next;
}
}
void
pic_gc_run(pic_state *pic)
{
#if GC_DEBUG
struct heap_page *page;
#endif
2015-01-18 22:14:29 -05:00
if (! pic->gc_enable) {
return;
}
2014-08-25 00:38:09 -04:00
#if DEBUG
puts("gc run!");
#endif
gc_mark_phase(pic);
gc_sweep_phase(pic);
#if GC_DEBUG
for (page = pic->heap->pages; page; page = page->next) {
union header *bp, *p;
unsigned char *c;
for (bp = page->basep; ; bp = bp->s.ptr) {
for (c = (unsigned char *)(bp+1); c != (unsigned char *)(bp + bp->s.size); ++c) {
assert(*c == 0xAA);
}
for (p = bp + bp->s.size; p != bp->s.ptr; p += p->s.size) {
if (p == page->endp) {
/* if (page->next) */
/* assert(bp->s.ptr == page->next->basep); */
/* else */
/* assert(bp->s.ptr == &pic->heap->base); */
goto escape;
}
assert(! gc_is_marked(p));
}
}
escape:
((void)0);
}
puts("not error on heap found! gc successfully finished");
#endif
}
struct pic_object *
pic_obj_alloc_unsafe(pic_state *pic, size_t size, enum pic_tt tt)
{
struct pic_object *obj;
#if GC_DEBUG
printf("*allocating: %s\n", pic_type_repr(tt));
#endif
#if GC_STRESS
pic_gc_run(pic);
#endif
obj = (struct pic_object *)gc_alloc(pic, size);
if (obj == NULL) {
2015-01-18 22:14:46 -05:00
pic_gc_run(pic);
2014-08-25 00:38:09 -04:00
obj = (struct pic_object *)gc_alloc(pic, size);
if (obj == NULL) {
add_heap_page(pic);
obj = (struct pic_object *)gc_alloc(pic, size);
if (obj == NULL)
2014-09-16 12:02:27 -04:00
pic_panic(pic, "GC memory exhausted");
2014-08-25 00:38:09 -04:00
}
}
obj->tt = tt;
return obj;
}
struct pic_object *
pic_obj_alloc(pic_state *pic, size_t size, enum pic_tt tt)
{
struct pic_object *obj;
obj = pic_obj_alloc_unsafe(pic, size, tt);
gc_protect(pic, obj);
return obj;
}