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

remove unused auxuality data field proc->aux

This commit is contained in:
Yuichi Nishiwaki 2013-10-29 02:23:14 +09:00
parent c2b9331083
commit 1d9410638d
4 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
include/picrin/proc.h
View File

@ -16,7 +16,6 @@ struct pic_proc {
struct pic_irep *irep; struct pic_irep *irep;
} u; } u;
struct pic_env *env; struct pic_env *env;
pic_value aux;
}; };
#define pic_proc_p(o) (pic_type(o) == PIC_TT_PROC) #define pic_proc_p(o) (pic_type(o) == PIC_TT_PROC)
@ -26,6 +25,6 @@ struct pic_proc {
#define pic_proc_cfunc_p(o) (pic_proc_ptr(o)->cfunc_p) #define pic_proc_cfunc_p(o) (pic_proc_ptr(o)->cfunc_p)
struct pic_proc *pic_proc_new(pic_state *, struct pic_irep *, struct pic_env *); struct pic_proc *pic_proc_new(pic_state *, struct pic_irep *, struct pic_env *);
struct pic_proc *pic_proc_new_cfunc(pic_state *, pic_func_t, pic_value); struct pic_proc *pic_proc_new_cfunc(pic_state *, pic_func_t);
#endif #endif

2
src/codegen.c
View File

@ -670,7 +670,7 @@ pic_defun(pic_state *pic, const char *name, pic_func_t cfunc)
struct pic_proc *proc; struct pic_proc *proc;
int idx; int idx;
proc = pic_proc_new_cfunc(pic, cfunc, pic_undef_value()); proc = pic_proc_new_cfunc(pic, cfunc);
idx = scope_global_define(pic, name); idx = scope_global_define(pic, name);
pic->globals[idx] = pic_obj_value(proc); pic->globals[idx] = pic_obj_value(proc);
} }

1
src/gc.c
View File

@ -170,7 +170,6 @@ gc_mark_object(pic_state *pic, struct pic_object *obj)
if (proc->env) { if (proc->env) {
gc_mark_object(pic, (struct pic_object *)proc->env); gc_mark_object(pic, (struct pic_object *)proc->env);
} }
gc_mark(pic, proc->aux);
break; break;
} }
case PIC_TT_PORT: { case PIC_TT_PORT: {

4
src/proc.c
View File

@ -11,12 +11,11 @@ pic_proc_new(pic_state *pic, struct pic_irep *irep, struct pic_env *env)
proc->cfunc_p = false; proc->cfunc_p = false;
proc->u.irep = irep; proc->u.irep = irep;
proc->env = env; proc->env = env;
proc->aux = pic_undef_value();
return proc; return proc;
} }
struct pic_proc * struct pic_proc *
pic_proc_new_cfunc(pic_state *pic, pic_func_t cfunc, pic_value aux) pic_proc_new_cfunc(pic_state *pic, pic_func_t cfunc)
{ {
struct pic_proc *proc; struct pic_proc *proc;
@ -24,7 +23,6 @@ pic_proc_new_cfunc(pic_state *pic, pic_func_t cfunc, pic_value aux)
proc->cfunc_p = true; proc->cfunc_p = true;
proc->u.cfunc = cfunc; proc->u.cfunc = cfunc;
proc->env = NULL; proc->env = NULL;
proc->aux = aux;
return proc; return proc;
} }