From 1d9410638dbb071c297de39b2f5e9e1db5ddb1ce Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 29 Oct 2013 02:23:14 +0900
Subject: [PATCH] remove unused auxuality data field proc->aux

---
 include/picrin/proc.h | 3 +--
 src/codegen.c         | 2 +-
 src/gc.c              | 1 -
 src/proc.c            | 4 +---
 4 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/include/picrin/proc.h b/include/picrin/proc.h
index b51b9a53..56db1772 100644
--- a/include/picrin/proc.h
+++ b/include/picrin/proc.h
@@ -16,7 +16,6 @@ struct pic_proc {
     struct pic_irep *irep;
   } u;
   struct pic_env *env;
-  pic_value aux;
 };
 
 #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)
 
 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
diff --git a/src/codegen.c b/src/codegen.c
index d6f614a5..f44baf82 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -670,7 +670,7 @@ pic_defun(pic_state *pic, const char *name, pic_func_t cfunc)
   struct pic_proc *proc;
   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);
   pic->globals[idx] = pic_obj_value(proc);
 }
diff --git a/src/gc.c b/src/gc.c
index 40776471..c5342746 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -170,7 +170,6 @@ gc_mark_object(pic_state *pic, struct pic_object *obj)
     if (proc->env) {
       gc_mark_object(pic, (struct pic_object *)proc->env);
     }
-    gc_mark(pic, proc->aux);
     break;
   }
   case PIC_TT_PORT: {
diff --git a/src/proc.c b/src/proc.c
index 66f6cbee..05f03537 100644
--- a/src/proc.c
+++ b/src/proc.c
@@ -11,12 +11,11 @@ pic_proc_new(pic_state *pic, struct pic_irep *irep, struct pic_env *env)
   proc->cfunc_p = false;
   proc->u.irep = irep;
   proc->env = env;
-  proc->aux = pic_undef_value();
   return 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;
 
@@ -24,7 +23,6 @@ pic_proc_new_cfunc(pic_state *pic, pic_func_t cfunc, pic_value aux)
   proc->cfunc_p = true;
   proc->u.cfunc = cfunc;
   proc->env = NULL;
-  proc->aux = aux;
   return proc;
 }