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

intern table seems conventionally called 'oblist'

This commit is contained in:
Yuichi Nishiwaki 2016-02-10 21:31:22 +09:00
parent 205ca79626
commit 7b86c6d34e
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extlib/benz/gc.c
View File

@ -644,7 +644,7 @@ gc_sweep_phase(pic_state *pic)
struct heap_page *page; struct heap_page *page;
khiter_t it; khiter_t it;
khash_t(reg) *h; khash_t(reg) *h;
khash_t(s) *s = &pic->syms; khash_t(s) *s = &pic->oblist;
pic_sym *sym; pic_sym *sym;
struct pic_object *obj; struct pic_object *obj;
size_t total = 0, inuse = 0; size_t total = 0, inuse = 0;

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

@ -104,7 +104,7 @@ struct pic_state {
pic_value features; pic_value features;
khash_t(s) syms; /* name to symbol */ khash_t(s) oblist; /* string to symbol */
int ucnt; int ucnt;
struct pic_reg *globals; struct pic_reg *globals;
struct pic_reg *macros; struct pic_reg *macros;

4
extlib/benz/state.c
View File

@ -252,7 +252,7 @@ pic_open(pic_allocf allocf, void *userdata)
pic->heap = pic_heap_open(pic); pic->heap = pic_heap_open(pic);
/* symbol table */ /* symbol table */
kh_init(s, &pic->syms); kh_init(s, &pic->oblist);
/* unique symbol count */ /* unique symbol count */
pic->ucnt = 0; pic->ucnt = 0;
@ -376,7 +376,7 @@ pic_open(pic_allocf allocf, void *userdata)
void void
pic_close(pic_state *pic) pic_close(pic_state *pic)
{ {
khash_t(s) *h = &pic->syms; khash_t(s) *h = &pic->oblist;
pic_allocf allocf = pic->allocf; pic_allocf allocf = pic->allocf;
/* clear out root objects */ /* clear out root objects */

2
extlib/benz/symbol.c
View File

@ -12,7 +12,7 @@ KHASH_DEFINE(s, pic_str *, pic_sym *, kh_pic_str_hash, kh_pic_str_cmp)
pic_sym * pic_sym *
pic_intern(pic_state *pic, pic_str *str) pic_intern(pic_state *pic, pic_str *str)
{ {
khash_t(s) *h = &pic->syms; khash_t(s) *h = &pic->oblist;
pic_sym *sym; pic_sym *sym;
khiter_t it; khiter_t it;
int ret; int ret;