[PD-cvs] pd/src builtins.c,1.1.2.4,1.1.2.5

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23539

Modified Files:
      Tag: desiredata
	builtins.c 
Log Message:
shrink


Index: builtins.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -C2 -d -r1.1.2.4 -r1.1.2.5
*** builtins.c	3 Jan 2007 19:27:23 -0000	1.1.2.4
--- builtins.c	3 Jan 2007 20:19:00 -0000	1.1.2.5
***************
*** 105,109 ****
      t_object *x = (t_object *)pd_new(C##_class); \
      outlet_new(x, &s_float); return x;} \
! static void C##_float(t_object *x, t_float a) {outlet_float(x->ob_outlet, EXPR);}
  #define FUNC1DECL(C,SYM) \
      C##_class = class_new(gensym(SYM), C##_new, 0, sizeof(t_object), 0, 0); \
--- 105,109 ----
      t_object *x = (t_object *)pd_new(C##_class); \
      outlet_new(x, &s_float); return x;} \
! static void C##_float(t_object *x, t_float a) {outlet_float(x->outlet, EXPR);}
  #define FUNC1DECL(C,SYM) \
[...1927 lines suppressed...]
                  SETSYMBOL(&vp->p_atom, &s_symbol);
--- 3213,3217 ----
              if (i) floatinlet_new(x, &vp->p_atom.a_w.w_float);
          } else if (ap->a_type == A_SYMBOL) {
!             char c = *ap->a_w.w_symbol->name;
              if (c == 's') {
                  SETSYMBOL(&vp->p_atom, &s_symbol);
***************
*** 3417,3421 ****
                  gp++;
              } else {
!                 if (c != 'f') error("pack: %s: bad type", ap->a_w.w_symbol->s_name);
                  SETFLOAT(&vp->p_atom, 0);
                  vp->p_outlet = outlet_new(x, &s_float);
--- 3226,3230 ----
                  gp++;
              } else {
!                 if (c != 'f') error("pack: %s: bad type", ap->a_w.w_symbol->name);
                  SETFLOAT(&vp->p_atom, 0);
                  vp->p_outlet = outlet_new(x, &s_float);