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

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;

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;

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 */

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;