conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

move regs field from pic_state to pic_heap

This commit is contained in:
Yuichi Nishiwaki 2015-07-26 16:48:38 +09:00
parent eec7d1754b
commit 1a71f3f578
3 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extlib/benz/gc.c
View File

@ -41,6 +41,7 @@ union object {
struct pic_heap {
union header base, *freep;
struct heap_page *pages;
struct pic_reg *regs; /* weak map chain */
};
struct pic_heap *
@ -56,6 +57,8 @@ pic_heap_open(pic_state *pic)
heap->freep = &heap->base;
heap->pages = NULL;
heap->regs = NULL;
return heap;
}
@ -400,8 +403,8 @@ gc_mark_object(pic_state *pic, union object *obj)
case PIC_TT_REG: {
struct pic_reg *reg = (struct pic_reg *)obj;
reg->prev = pic->regs;
pic->regs = reg;
reg->prev = pic->heap->regs;
pic->heap->regs = reg;
break;
}
case PIC_TT_CP: {
@ -439,7 +442,7 @@ gc_mark_phase(pic_state *pic)
struct pic_proc **xhandler;
size_t j;
assert(pic->regs == NULL);
assert(pic->heap->regs == NULL);
/* checkpoint */
if (pic->cp) {
@ -519,7 +522,7 @@ gc_mark_phase(pic_state *pic)
struct pic_reg *reg;
j = 0;
reg = pic->regs;
reg = pic->heap->regs;
while (reg != NULL) {
h = &reg->hash;
@ -664,8 +667,8 @@ gc_sweep_phase(pic_state *pic)
size_t total = 0, inuse = 0;
/* registries */
while (pic->regs != NULL) {
h = &pic->regs->hash;
while (pic->heap->regs != NULL) {
h = &pic->heap->regs->hash;
for (it = kh_begin(h); it != kh_end(h); ++it) {
if (! kh_exist(h, it))
continue;
@ -674,7 +677,7 @@ gc_sweep_phase(pic_state *pic)
kh_del(reg, h, it);
}
}
pic->regs = pic->regs->prev;
pic->heap->regs = pic->heap->regs->prev;
}
/* symbol table */

1
extlib/benz/include/picrin.h
View File

@ -131,7 +131,6 @@ struct pic_state {
struct pic_heap *heap;
struct pic_object **arena;
size_t arena_size, arena_idx;
struct pic_reg *regs;
pic_value err;

3
extlib/benz/state.c
View File

@ -300,9 +300,6 @@ pic_open(pic_allocf allocf, void *userdata)
/* memory heap */
pic->heap = pic_heap_open(pic);
/* registries */
pic->regs = NULL;
/* symbol table */
kh_init(s, &pic->syms);