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

pluggable heap pages

This commit is contained in:
Yuichi Nishiwaki 2013-11-22 07:12:03 -08:00
parent 663081921d
commit e6523730a4
2 changed files with 31 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/config.h
View File

@ -12,7 +12,7 @@
/* initial memory size (to be dynamically extended if necessary) */ /* initial memory size (to be dynamically extended if necessary) */
#define PIC_ARENA_SIZE 100 #define PIC_ARENA_SIZE 100
#define PIC_HEAP_SIZE (20000 * 8) #define PIC_HEAP_PAGE_SIZE (8192 * 8)
#define PIC_STACK_SIZE 1024 #define PIC_STACK_SIZE 1024
#define PIC_RESCUE_SIZE 30 #define PIC_RESCUE_SIZE 30
#define PIC_IREP_SIZE 256 #define PIC_IREP_SIZE 256

45
src/gc.c
View File

@ -16,28 +16,42 @@
void void
init_heap_page(struct heap_page *heap) init_heap_page(struct heap_page *heap)
{ {
int nu; heap->base.s.ptr = heap->freep = &heap->base;
nu = (PIC_HEAP_SIZE + sizeof(union header) - 1) / sizeof(union header) + 1;
heap->base.s.ptr = (union header *)calloc(nu, sizeof(union header));
heap->base.s.size = 0; /* not 1, since it must never be fused into other headers */ heap->base.s.size = 0; /* not 1, since it must never be fused into other headers */
heap->base.s.mark = PIC_GC_UNMARK; heap->base.s.mark = PIC_GC_UNMARK;
heap->freep = heap->base.s.ptr;
heap->freep->s.size = nu - 1;
heap->freep->s.ptr = heap->freep + heap->freep->s.size;
heap->freep->s.mark = PIC_GC_UNMARK;
heap->freep->s.ptr->s.size = 0;
heap->freep->s.ptr->s.ptr = &heap->base;
heap->freep->s.ptr->s.mark = PIC_GC_UNMARK;
#if GC_DEBUG #if GC_DEBUG
printf("freep = %p\n", heap->freep); printf("freep = %p\n", heap->freep);
#endif #endif
} }
static void gc_free(pic_state *, union header *);
static void *
add_heap_page(pic_state *pic)
{
int nu;
union header *p, *ep;
#if DEBUG
puts("heap page added");
#endif
nu = (PIC_HEAP_PAGE_SIZE + sizeof(union header) - 1) / sizeof(union header) + 1;
p = (union header *)calloc(nu, sizeof(union header));
p->s.size = nu - 1;
p->s.mark = PIC_GC_UNMARK;
gc_free(pic, p);
ep = p + p->s.size; /* end of page */
ep->s.size = 0;
ep->s.mark = PIC_GC_UNMARK;
ep->s.ptr = p->s.ptr;
p->s.ptr = ep;
return pic->heap->freep;
}
void * void *
pic_alloc(pic_state *pic, size_t size) pic_alloc(pic_state *pic, size_t size)
{ {
@ -125,7 +139,8 @@ gc_alloc(pic_state *pic, size_t size)
if (p->s.size >= nunits) if (p->s.size >= nunits)
break; break;
if (p == freep) { if (p == freep) {
return 0; if ((p = add_heap_page(pic)) == NULL)
return NULL;
} }
} }
if (p->s.size == nunits) { if (p->s.size == nunits) {