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

intern table seems conventionally called 'oblist'

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
extlib/benz/gc.c
+1 -1
View File
@@ -644,7 +644,7 @@ gc_sweep_phase(pic_state *pic)
struct heap_page *page;
khiter_t it;
khash_t(reg) *h;
khash_t(s) *s = &pic->syms;
khash_t(s) *s = &pic->oblist;
pic_sym *sym;
struct pic_object *obj;
size_t total = 0, inuse = 0;
extlib/benz/include/picrin.h
+1 -1
View File
@@ -104,7 +104,7 @@ struct pic_state {
pic_value features;
khash_t(s) syms; /* name to symbol */
khash_t(s) oblist; /* string to symbol */
int ucnt;
struct pic_reg *globals;
struct pic_reg *macros;
extlib/benz/state.c
+2 -2
View File
@@ -252,7 +252,7 @@ pic_open(pic_allocf allocf, void *userdata)
pic->heap = pic_heap_open(pic);
/* symbol table */
kh_init(s, &pic->syms);
kh_init(s, &pic->oblist);
/* unique symbol count */
pic->ucnt = 0;
@@ -376,7 +376,7 @@ pic_open(pic_allocf allocf, void *userdata)
void
pic_close(pic_state *pic)
{
khash_t(s) *h = &pic->syms;
khash_t(s) *h = &pic->oblist;
pic_allocf allocf = pic->allocf;
/* clear out root objects */
extlib/benz/symbol.c
+1 -1
View File
@@ -12,7 +12,7 @@ KHASH_DEFINE(s, pic_str *, pic_sym *, kh_pic_str_hash, kh_pic_str_cmp)
pic_sym *
pic_intern(pic_state *pic, pic_str *str)
{
khash_t(s) *h = &pic->syms;
khash_t(s) *h = &pic->oblist;
pic_sym *sym;
khiter_t it;
int ret;