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

s/PIC_USE_BITMAPGC/PIC_BITMAP_GC/g

This commit is contained in:
Yuichi Nishiwaki 2016-06-20 02:38:28 +09:00
parent cec69a96d8
commit a1116d39eb
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extlib/benz/gc.c
View File

@ -36,7 +36,7 @@ struct object {
} u; } u;
}; };
#if !PIC_USE_BITMAPGC #if !PIC_BITMAP_GC
struct heap { struct heap {
union header base, *freep; union header base, *freep;
@ -76,7 +76,7 @@ pic_heap_open(pic_state *pic)
heap = pic_malloc(pic, sizeof(struct heap)); heap = pic_malloc(pic, sizeof(struct heap));
#if !PIC_USE_BITMAPGC #if !PIC_BITMAP_GC
heap->base.s.ptr = &heap->base; heap->base.s.ptr = &heap->base;
heap->base.s.size = 0; /* not 1, since it must never be used for allocation */ heap->base.s.size = 0; /* not 1, since it must never be used for allocation */
heap->freep = &heap->base; heap->freep = &heap->base;
@ -198,7 +198,7 @@ pic_alloca(pic_state *pic, size_t n)
/* MARK */ /* MARK */
#if !PIC_USE_BITMAPGC #if !PIC_BITMAP_GC
static bool static bool
is_marked(pic_state *PIC_UNUSED(pic), struct object *obj) is_marked(pic_state *PIC_UNUSED(pic), struct object *obj)
@ -602,7 +602,7 @@ gc_finalize_object(pic_state *pic, struct object *obj)
} }
} }
#if !PIC_USE_BITMAPGC #if !PIC_BITMAP_GC
static void * static void *
heap_alloc(pic_state *pic, size_t size) heap_alloc(pic_state *pic, size_t size)
@ -852,7 +852,7 @@ gc_sweep_phase(pic_state *pic)
void void
gc_init(pic_state *PIC_UNUSED(pic)) gc_init(pic_state *PIC_UNUSED(pic))
{ {
#if PIC_USE_BITMAPGC #if PIC_BITMAP_GC
struct heap_page *page; struct heap_page *page;
page = pic->heap->pages; page = pic->heap->pages;
@ -899,7 +899,7 @@ pic_obj_alloc_unsafe(pic_state *pic, size_t size, int type)
pic_panic(pic, "GC memory exhausted"); pic_panic(pic, "GC memory exhausted");
} }
} }
#if !PIC_USE_BITMAPGC #if !PIC_BITMAP_GC
obj->u.basic.gc_mark = 0; obj->u.basic.gc_mark = 0;
#endif #endif
obj->u.basic.tt = type; obj->u.basic.tt = type;

2
extlib/benz/include/picrin/private/object.h
View File

@ -17,7 +17,7 @@ KHASH_DECLARE(env, struct identifier *, symbol *)
KHASH_DECLARE(dict, symbol *, pic_value) KHASH_DECLARE(dict, symbol *, pic_value)
KHASH_DECLARE(weak, struct object *, pic_value) KHASH_DECLARE(weak, struct object *, pic_value)
#if PIC_USE_BITMAPGC #if PIC_BITMAP_GC
# define OBJECT_HEADER \ # define OBJECT_HEADER \
unsigned char tt; unsigned char tt;
#else #else

2
extlib/benz/include/picrin/setup.h
View File

@ -464,5 +464,5 @@ double PIC_CSTRING_TO_DOUBLE(const char *);
#if PIC_USE_LIBC && (defined (__unix__) || (defined (__APPLE__) && defined (__MACH__))) #if PIC_USE_LIBC && (defined (__unix__) || (defined (__APPLE__) && defined (__MACH__)))
# include <unistd.h> # include <unistd.h>
# define PIC_MEMALIGN(pic, buf, alignment, size) posix_memalign(buf, alignment, size) # define PIC_MEMALIGN(pic, buf, alignment, size) posix_memalign(buf, alignment, size)
# define PIC_USE_BITMAPGC 1 # define PIC_BITMAP_GC 1
#endif #endif