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

remove use of typo'd name function

This commit is contained in:
Yuichi Nishiwaki 2014-01-30 14:33:16 +09:00
parent 7d4ed6c018
commit e8258edfa7
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/codegen.c
View File

@ -206,7 +206,7 @@ pop_scope(analyze_state *state)
analyze_scope *scope;
scope = state->scope;
xh_destory(scope->var_tbl);
xh_destroy(scope->var_tbl);
pic_free(state->pic, scope->vars);
scope = scope->up;
@ -749,8 +749,8 @@ pop_resolver_scope(resolver_state *state)
resolver_scope *scope;
scope = state->scope;
xh_destory(scope->cvs);
xh_destory(scope->lvs);
xh_destroy(scope->cvs);
xh_destroy(scope->lvs);
scope = scope->up;
pic_free(state->pic, state->scope);
@ -1006,7 +1006,7 @@ push_codegen_context(codegen_state *state, pic_value args, pic_value locals, boo
cxt->cv_tbl[i] = xh_get(vars, pic_symbol_name(pic, pic_sym(pic_list_ref(pic, closes, i))))->val;
}
xh_destory(vars);
xh_destroy(vars);
cxt->code = (struct pic_code *)pic_calloc(pic, PIC_ISEQ_SIZE, sizeof(struct pic_code));
cxt->clen = 0;

4
src/gc.c
View File

@ -558,7 +558,7 @@ gc_finalize_object(pic_state *pic, struct pic_object *obj)
}
case PIC_TT_SENV: {
struct pic_senv *senv = (struct pic_senv *)obj;
xh_destory(senv->tbl);
xh_destroy(senv->tbl);
if (senv->stx)
pic_free(pic, senv->stx);
break;
@ -571,7 +571,7 @@ gc_finalize_object(pic_state *pic, struct pic_object *obj)
}
case PIC_TT_LIB: {
struct pic_lib *lib = (struct pic_lib *)obj;
xh_destory(lib->exports);
xh_destroy(lib->exports);
break;
}
case PIC_TT_VAR: {