add aux object field to proc object

2013-10-21 17:35:14 +09:00
parent 72a6e90d83
commit f5154625ba
5 changed files with 37 additions and 10 deletions
@@ -10,13 +10,17 @@ struct pic_proc {
  PIC_OBJECT_HEADER
  bool cfunc_p;
  union {
-    pic_value (*cfunc)(pic_state *);
+    pic_func_t cfunc;
    struct pic_irep *irep;
  } u;
+  pic_value aux;
 };

 #define pic_proc_ptr(o) ((struct pic_proc *)o.u.data)

 #define pic_proc_cfunc_p(o) (pic_proc_ptr(o)->cfunc_p)

+struct pic_proc *pic_proc_new(pic_state *, struct pic_irep *irep);
+struct pic_proc *pic_proc_new_cfunc(pic_state *, pic_func_t cfunc, pic_value aux);
+
 #endif