[PD-cvs] pd/src builtins.c, 1.1.2.18, 1.1.2.19 builtins_dsp.c, 1.1.2.19, 1.1.2.20

28 Jun 2007


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24448
Modified Files:
      Tag: desiredata
    builtins.c builtins_dsp.c 
Log Message:
cleanup
Index: builtins_dsp.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/builtins_dsp.c,v
retrieving revision 1.1.2.19
retrieving revision 1.1.2.20
diff -C2 -d -r1.1.2.19 -r1.1.2.20
*** builtins_dsp.c	9 Jan 2007 22:30:24 -0000	1.1.2.19
--- builtins_dsp.c	28 Jun 2007 16:36:29 -0000	1.1.2.20
***************
*** 19,23 ****
  #include <string.h>
  #include <stdlib.h>
! extern "C" int ugen_getsortno(void);
  #define DEFDELVS 64             /* LATER get this from canvas at DSP time */
  #ifdef HAVE_LIBFFTW3F
--- 19,23 ----
  #include <string.h>
  #include <stdlib.h>
! extern int ugen_getsortno ();
  #define DEFDELVS 64             /* LATER get this from canvas at DSP time */
  #ifdef HAVE_LIBFFTW3F
***************
*** 195,199 ****
      while (n--) {
          float g = *in2++;
!         *out++ = (g ? *in1++ / g : 0); 
      }
      return w+5;
--- 195,199 ----
      while (n--) {
          float g = *in2++;
!         *out++ = (g ? *in1++ / g : 0);
      }
      return w+5;
***************
*** 227,231 ****
      int n = (int)w[4];
      if(f) f = 1./f;
!     while (n--) *out++ = *in++ * f; 
      return w+5;
  }
--- 227,231 ----
      int n = (int)w[4];
      if(f) f = 1./f;
!     while (n--) *out++ = *in++ * f;
      return w+5;
  }
***************
*** 296,304 ****
          if (nxfer > n) nxfer = n;
          phase += nxfer;
! 		
! 		if (SIMD_CHKCNT(nxfer))
! 			testcopyvec_simd(fp, in, nxfer);
! 		else
! 			testcopyvec(fp, in, nxfer);
          if (phase >= endphase) {
              tabwrite_tilde_redraw(x);
--- 296,301 ----
          if (nxfer > n) nxfer = n;
          phase += nxfer;
! 	if (SIMD_CHKCNT(nxfer)) testcopyvec_simd(fp, in, nxfer);
! 	else                    testcopyvec(fp, in, nxfer);
          if (phase >= endphase) {
              tabwrite_tilde_redraw(x);
***************
*** 1456,1460 ****
      int n = (int)w[3];
      int count;
!     float *sump; 
      in += n;
      for (count = x->phase, sump = x->sumbuf;
--- 1453,1457 ----
      int n = (int)w[3];
      int count;
!     float *sump;
      in += n;
      for (count = x->phase, sump = x->sumbuf;
***************
*** 1682,1697 ****
      for (i = x->n, ip = x->vec, sp2 = sp; i--; ip++, sp2++) {
          int ch = *ip - 1;
!         if ((*sp2)->n != sys_dacblocksize)
!             error("dac~: bad vector size");
!     	else 
! 	    if (ch >= 0 && ch < sys_get_outchannels())
! 		if(SIMD_CHECK3(sys_dacblocksize,sys_soundout + sys_dacblocksize*ch,
! 			       (*sp2)->v,sys_soundout + sys_dacblocksize*ch))
    	    dsp_add(plus_perf_simd, 4, sys_soundout + sys_dacblocksize*ch,
    		    (*sp2)->v, sys_soundout + sys_dacblocksize*ch, sys_dacblocksize);
    	else
!             dsp_add(plus_perform, 4, sys_soundout + sys_dacblocksize*ch,
!                 (*sp2)->v, sys_soundout + sys_dacblocksize*ch, sys_dacblocksize);
!     }    
  }
  static void dac_free(t_dac *x) {free(x->vec);}
--- 1679,1691 ----
      for (i = x->n, ip = x->vec, sp2 = sp; i--; ip++, sp2++) {
          int ch = *ip - 1;
!         if ((*sp2)->n != sys_dacblocksize) error("dac~: bad vector size");
!     	else if (ch >= 0 && ch < sys_get_outchannels())
! 		if(SIMD_CHECK3(sys_dacblocksize,sys_soundout + sys_dacblocksize*ch, (*sp2)->v,sys_soundout + sys_dacblocksize*ch))
    	    dsp_add(plus_perf_simd, 4, sys_soundout + sys_dacblocksize*ch,
    		    (*sp2)->v, sys_soundout + sys_dacblocksize*ch, sys_dacblocksize);
    	else
! 		    dsp_add(plus_perform, 4, sys_soundout + sys_dacblocksize*ch, (*sp2)->v, sys_soundout + sys_dacblocksize*ch,
! 			sys_dacblocksize);
!     }
  }
  static void dac_free(t_dac *x) {free(x->vec);}
***************
*** 1728,1732 ****
      t_float *out = (t_float *)w[2];
      int n = (int)w[3];
!     while (n--) *out++ = *in1++; 
      return w+4;
  }
--- 1722,1726 ----
      t_float *out = (t_float *)w[2];
      int n = (int)w[3];
!     while (n--) *out++ = *in1++;
      return w+4;
  }
***************
*** 1845,1849 ****
          }
      }
!     c->c_phase = phase; 
      return w+4;
  }
--- 1839,1843 ----
          }
      }
!     c->c_phase = phase;
      return w+4;
  }
***************
*** 1870,1874 ****
    	}
    else testcopyvec_8(bp, in, n);
!     c->c_phase = phase; 
      return w+4;
  }
--- 1864,1868 ----
    	}
    else testcopyvec_8(bp, in, n);
!     c->c_phase = phase;
      return w+4;
  }
***************
*** 2124,2128 ****
      float *in2 = (t_float *)w[2];
      int n = w[3];
!     for (;n--; in1++, in2++) {	
          float f = *in1;
    *in1 = *in2;
--- 2118,2122 ----
      float *in2 = (t_float *)w[2];
      int n = w[3];
!     for (;n--; in1++, in2++) {
          float f = *in1;
    *in1 = *in2;
***************
*** 2348,2352 ****
  static void sigrfftw_free(t_sigrfftw *x) {fftwf_destroy_plan(x->plan);}
! /* for compatibility reasons with the mayer fft, we'll have to invert 
   * some samples ... this is ugly, but someone might rely on that ... */
  static void sigrfftw_invert(t_sample * s, t_int n) {
--- 2342,2346 ----
  static void sigrfftw_free(t_sigrfftw *x) {fftwf_destroy_plan(x->plan);}
! /* for compatibility reasons with the mayer fft, we'll have to invert
   * some samples ... this is ugly, but someone might rely on that ... */
  static void sigrfftw_invert(t_sample * s, t_int n) {
***************
*** 2406,2410 ****
  }
  static t_int *sigrifftw_perform(t_int *w) {
!     sigrfftw_invert((t_sample *)w[2],w[3]); 
      fftwf_execute(*(fftwf_plan*)w[1]);
      return w+4;
--- 2400,2404 ----
  }
  static t_int *sigrifftw_perform(t_int *w) {
!     sigrfftw_invert((t_sample *)w[2],w[3]);
      fftwf_execute(*(fftwf_plan*)w[1]);
      return w+4;
***************
*** 2422,2426 ****
    x->dim.is=1;
    x->dim.os=1;
! 	x->plan = fftwf_plan_guru_split_dft_c2r(1, &(x->dim), 0, NULL, 
    	in1, in2, out, FFTW_ESTIMATE | FFTW_PRESERVE_INPUT);
    dsp_add_zero(in1+ n/2, n/2);
--- 2416,2420 ----
    x->dim.is=1;
    x->dim.os=1;
! 	x->plan = fftwf_plan_guru_split_dft_c2r(1, &(x->dim), 0, NULL,
    	in1, in2, out, FFTW_ESTIMATE | FFTW_PRESERVE_INPUT);
    dsp_add_zero(in1+ n/2, n/2);
***************
*** 2552,2556 ****
          }
          if (PD_BIGORSMALL(last))
!             last = 0; 
          c->c_x = last;
      } else {
--- 2546,2550 ----
          }
          if (PD_BIGORSMALL(last))
!             last = 0;
          c->c_x = last;
      } else {
***************
*** 2605,2612 ****
      x->hz = f;
      x->ctl->c_coef = f * (2 * 3.14159) / x->sr;
!     if (x->ctl->c_coef > 1)
!         x->ctl->c_coef = 1;
!     else if (x->ctl->c_coef < 0)
!         x->ctl->c_coef = 0;
  }
  static void siglop_clear(t_siglop *x, t_floatarg q) {
--- 2599,2604 ----
      x->hz = f;
      x->ctl->c_coef = f * (2 * 3.14159) / x->sr;
!     if (x->ctl->c_coef > 1) x->ctl->c_coef = 1;
!     if (x->ctl->c_coef < 0) x->ctl->c_coef = 0;
  }
  static void siglop_clear(t_siglop *x, t_floatarg q) {
***************
*** 2628,2635 ****
  static void siglop_dsp(t_siglop *x, t_signal **sp) {
      x->sr = sp[0]->sr;
!     siglop_ft1(x,  x->hz);
!     dsp_add(siglop_perform, 4,
!         sp[0]->v, sp[1]->v, 
!             x->ctl, sp[0]->n);
}
--- 2620,2625 ----
  static void siglop_dsp(t_siglop *x, t_signal **sp) {
      x->sr = sp[0]->sr;
!     siglop_ft1(x, x->hz);
!     dsp_add(siglop_perform, 4, sp[0]->v, sp[1]->v, x->ctl, sp[0]->n);
}
***************
*** 2693,2698 ****
      x->ctl->c_coef2 = - r * r;
      x->ctl->c_gain = 2 * oneminusr * (oneminusr + r * omega);
!     /* post("r %f, omega %f, coef1 %f, coef2 %f",
!         r, omega, x->ctl->c_coef1, x->ctl->c_coef2); */
  }
  static void sigbp_ft1(t_sigbp *x, t_floatarg f) {sigbp_docoef(x, f, x->q);}
--- 2683,2687 ----
      x->ctl->c_coef2 = - r * r;
      x->ctl->c_gain = 2 * oneminusr * (oneminusr + r * omega);
!     /* post("r %f, omega %f, coef1 %f, coef2 %f", r, omega, x->ctl->c_coef1, x->ctl->c_coef2); */
  }
  static void sigbp_ft1(t_sigbp *x, t_floatarg f) {sigbp_docoef(x, f, x->q);}
***************
*** 2776,2780 ****
      for (int i = 0; i < n; i++) {
          float output =  *in++ + fb1 * last + fb2 * prev;
!         if (PD_BIGORSMALL(output)) output = 0; 
          *out++ = ff1 * output + ff2 * last + ff3 * prev;
          prev = last;
--- 2765,2769 ----
      for (int i = 0; i < n; i++) {
          float output =  *in++ + fb1 * last + fb2 * prev;
!         if (PD_BIGORSMALL(output)) output = 0;
          *out++ = ff1 * output + ff2 * last + ff3 * prev;
          prev = last;
***************
*** 3084,3098 ****
  }
  static void sigcpole_dsp(t_sigcpole *x, t_signal **sp) {
!     dsp_add(sigcpole_perform, 8,
!         sp[0]->v, sp[1]->v, sp[2]->v, sp[3]->v, 
!         sp[4]->v, sp[5]->v, x, sp[0]->n);
! }
! static void sigcpole_clear(t_sigcpole *x) {
!     x->lastre = x->lastim = 0;
! }
! static void sigcpole_set(t_sigcpole *x, t_float re, t_float im) {
!     x->lastre = re;
!     x->lastim = im;
  }
  void sigcpole_setup() {
      sigcpole_class = class_new2("cpole~",sigcpole_new,0,sizeof(t_sigcpole),0,"FF");
--- 3073,3080 ----
  }
  static void sigcpole_dsp(t_sigcpole *x, t_signal **sp) {
!     dsp_add(sigcpole_perform, 8, sp[0]->v, sp[1]->v, sp[2]->v, sp[3]->v, sp[4]->v, sp[5]->v, x, sp[0]->n);
  }
+ static void sigcpole_clear(t_sigcpole *x) {x->lastre = x->lastim = 0;}
+ static void sigcpole_set(t_sigcpole *x, t_float re, t_float im) {x->lastre = re; x->lastim = im;}
  void sigcpole_setup() {
      sigcpole_class = class_new2("cpole~",sigcpole_new,0,sizeof(t_sigcpole),0,"FF");
***************
*** 3142,3156 ****
  }
  static void sigczero_dsp(t_sigczero *x, t_signal **sp) {
!     dsp_add(sigczero_perform, 8,
!         sp[0]->v, sp[1]->v, sp[2]->v, sp[3]->v, 
!         sp[4]->v, sp[5]->v, x, sp[0]->n);
! }
! static void sigczero_clear(t_sigczero *x) {
!     x->lastre = x->lastim = 0;
! }
! static void sigczero_set(t_sigczero *x, t_float re, t_float im) {
!     x->lastre = re;
!     x->lastim = im;
  }
  void sigczero_setup() {
      sigczero_class = class_new2("czero~",sigczero_new,0,sizeof(t_sigczero),0,"FF");
--- 3124,3131 ----
  }
  static void sigczero_dsp(t_sigczero *x, t_signal **sp) {
!     dsp_add(sigczero_perform, 8, sp[0]->v, sp[1]->v, sp[2]->v, sp[3]->v, sp[4]->v, sp[5]->v, x, sp[0]->n);
  }
+ static void sigczero_clear(t_sigczero *x) {x->lastre = x->lastim = 0;}
+ static void sigczero_set(t_sigczero *x, t_float re, t_float im) {x->lastre = re; x->lastim = im;}
  void sigczero_setup() {
      sigczero_class = class_new2("czero~",sigczero_new,0,sizeof(t_sigczero),0,"FF");
***************
*** 3288,3292 ****
          while (n--) *out++ = *in++;
      } else {
!         while (n--) *out++ = 0; 
      }
      return w+4;
--- 3263,3267 ----
          while (n--) *out++ = *in++;
      } else {
!         while (n--) *out++ = 0;
      }
      return w+4;
***************
*** 3362,3366 ****
      t_float *out = (t_float *)w[2];
      int n = (int)w[3];
!     while (n--) *out++ = *in, *in++ = 0; 
      return w+4;
  }
--- 3337,3341 ----
      t_float *out = (t_float *)w[2];
      int n = (int)w[3];
!     while (n--) *out++ = *in, *in++ = 0;
      return w+4;
  }
***************
*** 3495,3499 ****
          long l = (i ? (i == DUMTAB1SIZE-1 ? DUMTAB1SIZE-2 : i) : 1)<< 23;
          *(int *)(&f) = l;
!         rsqrt_exptab[i] = 1./sqrt(f);   
      }
      for (int i = 0; i < DUMTAB2SIZE; i++) {
--- 3470,3474 ----
          long l = (i ? (i == DUMTAB1SIZE-1 ? DUMTAB1SIZE-2 : i) : 1)<< 23;
          *(int *)(&f) = l;
!         rsqrt_exptab[i] = 1./sqrt(f);
      }
      for (int i = 0; i < DUMTAB2SIZE; i++) {
***************
*** 3521,3527 ****
  float qrsqrt(float f) {return q8_rsqrt(f);}
  #endif
! struct t_sigrsqrt : t_object {
!     float a;
! };
  static t_class *sigrsqrt_class;
  static void *sigrsqrt_new() {
--- 3496,3500 ----
  float qrsqrt(float f) {return q8_rsqrt(f);}
  #endif
! struct t_sigrsqrt : t_object {float a;};
  static t_class *sigrsqrt_class;
  static void *sigrsqrt_new() {
***************
*** 3561,3567 ****
/* sigsqrt -  square root good to 8 mantissa bits  */
! struct t_sigsqrt : t_object {
!     float a;
! };
  static t_class *sigsqrt_class;
  static void *sigsqrt_new() {
--- 3534,3538 ----
/* sigsqrt -  square root good to 8 mantissa bits  */
! struct t_sigsqrt : t_object {float a;};
  static t_class *sigsqrt_class;
  static void *sigsqrt_new() {
***************
*** 3581,3585 ****
          else {
              float g = rsqrt_exptab[(l >> 23) & 0xff] *
!                 rsqrt_mantissatab[(l >> 13) & 0x3ff];
              *out++ = f * (1.5 * g - 0.5 * g * g * g * f);
          }
--- 3552,3556 ----
          else {
              float g = rsqrt_exptab[(l >> 23) & 0xff] *
!                  rsqrt_mantissatab[(l >> 13) & 0x3ff];
              *out++ = f * (1.5 * g - 0.5 * g * g * g * f);
          }
***************
*** 3600,3606 ****
/* ------------------------------ wrap~ -------------------------- */
! struct t_sigwrap : t_object {
!     float a;
! };
  t_class *sigwrap_class;
  static void *sigwrap_new() {
--- 3571,3575 ----
/* ------------------------------ wrap~ -------------------------- */
! struct t_sigwrap : t_object {float a;};
  t_class *sigwrap_class;
  static void *sigwrap_new() {
***************
*** 3752,3756 ****
      double phase;
      float conv;
!     float a;      /* scalar frequency */
  };
  static void *phasor_new(t_floatarg f) {
--- 3721,3725 ----
      double phase;
      float conv;
!     float a; /* scalar frequency */
  };
  static void *phasor_new(t_floatarg f) {
***************
*** 3823,3827 ****
      normhipart = tf.tf_i[HIOFFSET];
! #if 0           /* this is the readable version of the code. */
      while (n--) {
          dphase = (double)(*in++ * (float)(COSTABSIZE)) + UNITBIT32;
--- 3792,3796 ----
      normhipart = tf.tf_i[HIOFFSET];
! #if 0 /* this is the readable version of the code. */
      while (n--) {
          dphase = (double)(*in++ * (float)(COSTABSIZE)) + UNITBIT32;
***************
*** 3834,3839 ****
          *out++ = f1 + frac * (f2 - f1);
      }
! #endif
! #if 1           /* this is the same, unwrapped by hand. */
      dphase = (double)(*in++ * (float)(COSTABSIZE)) + UNITBIT32;
      tf.tf_d = dphase;
--- 3803,3807 ----
          *out++ = f1 + frac * (f2 - f1);
      }
! #else /* this is the same, unwrapped by hand. */
      dphase = (double)(*in++ * (float)(COSTABSIZE)) + UNITBIT32;
      tf.tf_d = dphase;
***************
*** 3920,3925 ****
          *out++ = f1 + frac * (f2 - f1);
      }
! #endif
! #if 1
      tf.tf_d = dphase;
      dphase += *in++ * conv;
--- 3888,3892 ----
          *out++ = f1 + frac * (f2 - f1);
      }
! #else
      tf.tf_d = dphase;
      dphase += *in++ * conv;
Index: builtins.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v
retrieving revision 1.1.2.18
retrieving revision 1.1.2.19
diff -C2 -d -r1.1.2.18 -r1.1.2.19
*** builtins.c	28 Jun 2007 07:10:42 -0000	1.1.2.18
--- builtins.c	28 Jun 2007 16:36:29 -0000	1.1.2.19
***************
*** 1842,1848 ****
static t_class *spigot_class;
! struct t_spigot : t_object {
!     float state;
! };
  static void *spigot_new(t_floatarg f) {
      t_spigot *x = (t_spigot *)pd_new(spigot_class);
--- 1842,1846 ----
static t_class *spigot_class;
! struct t_spigot : t_object {float state;};
  static void *spigot_new(t_floatarg f) {
      t_spigot *x = (t_spigot *)pd_new(spigot_class);
***************
*** 1875,1881 ****
static t_class *moses_class;
! struct t_moses : t_object {
!     float y;
! };
  static void *moses_new(t_floatarg f) {
      t_moses *x = (t_moses *)pd_new(moses_class);
--- 1873,1877 ----
static t_class *moses_class;
! struct t_moses : t_object {float y;};
  static void *moses_new(t_floatarg f) {
      t_moses *x = (t_moses *)pd_new(moses_class);
***************
*** 1922,1928 ****
static t_class *makefilename_class;
! struct t_makefilename : t_object {
!     t_symbol *format;
! };
  static void *makefilename_new(t_symbol *s) {
      t_makefilename *x = (t_makefilename *)pd_new(makefilename_class);
--- 1918,1922 ----
static t_class *makefilename_class;
! struct t_makefilename : t_object {t_symbol *format;};
  static void *makefilename_new(t_symbol *s) {
      t_makefilename *x = (t_makefilename *)pd_new(makefilename_class);
***************
*** 1999,2005 ****
static t_class *change_class;
! struct t_change : t_object {
!     t_float f;
! };
  static void *change_new(t_floatarg f) {
      t_change *x = (t_change *)pd_new(change_class);
--- 1993,1997 ----
static t_class *change_class;
! struct t_change : t_object {t_float f;};
  static void *change_new(t_floatarg f) {
      t_change *x = (t_change *)pd_new(change_class);
***************
*** 2232,2238 ****
  }
! struct t_midi2 : t_object {
!     t_float ch;
! };
  static void *midi2_new(t_class *cl, t_floatarg ch) {
      t_midi2 *x = (t_midi2 *)pd_new(cl);
--- 2224,2228 ----
  }
! struct t_midi2 : t_object {t_float ch;};
  static void *midi2_new(t_class *cl, t_floatarg ch) {
      t_midi2 *x = (t_midi2 *)pd_new(cl);
***************
*** 2967,2975 ****
  static t_class *pipe_class;
  struct t_hang2 {
!     t_clock *h_clock;
!     t_hang2 *h_next;
!     struct t_pipe *h_owner;
!     t_gpointer *h_gp;
!     union word h_vec[1];        /* not the actual number. */
  };
  struct t_pipeout {
--- 2957,2965 ----
  static t_class *pipe_class;
  struct t_hang2 {
!     t_clock *clock;
!     t_hang2 *next;
!     struct t_pipe *owner;
!     t_gpointer *gp;
!     union word vec[1];        /* not the actual number. */
  };
  struct t_pipeout {
***************
*** 3046,3070 ****
  }
  static void hang_free(t_hang2 *h) {
!     t_pipe *x = h->h_owner;
!     t_gpointer *gp = h->h_gp;
      for (int i = x->nptr; i--; gp++) gpointer_unset(gp);
!     free(h->h_gp);
!     clock_free(h->h_clock);
      free(h);
  }
  static void hang_tick(t_hang2 *h) {
!     t_pipe *x = h->h_owner;
      t_hang2 *h2, *h3;
!     t_pipeout *p;
!     int i;
!     union word *w;
!     if (x->hang == h) x->hang = h->h_next;
!     else for (h2 = x->hang; (h3 = h2->h_next); h2 = h3) {
          if (h3 == h) {
!             h2->h_next = h3->h_next;
              break;
          }
      }
!     for (i = x->n, p = x->vec + (x->n - 1), w = h->h_vec + (x->n - 1); i--; p--, w--) {
          switch (p->a.a_type) {
          case A_FLOAT:  outlet_float( x->out(i),w->w_float); break;
--- 3036,3059 ----
  }
  static void hang_free(t_hang2 *h) {
!     t_pipe *x = h->owner;
!     t_gpointer *gp = h->gp;
      for (int i = x->nptr; i--; gp++) gpointer_unset(gp);
!     free(h->gp);
!     clock_free(h->clock);
      free(h);
  }
  static void hang_tick(t_hang2 *h) {
!     t_pipe *x = h->owner;
      t_hang2 *h2, *h3;
!     if (x->hang == h) x->hang = h->next;
!     else for (h2 = x->hang; (h3 = h2->next); h2 = h3) {
          if (h3 == h) {
!             h2->next = h3->next;
              break;
          }
      }
!     t_pipeout *p = x->vec + (x->n - 1);
!     union word *w = h->vec + (x->n - 1);
!     for (int i = x->n; i--; p--, w--) {
          switch (p->a.a_type) {
          case A_FLOAT:  outlet_float( x->out(i),w->w_float); break;
***************
*** 3080,3084 ****
  }
  static void pipe_list(t_pipe *x, t_symbol *s, int ac, t_atom *av) {
!     t_hang2 *h = (t_hang2 *)getbytes(sizeof(*h) + (x->n - 1) * sizeof(*h->h_vec));
      t_gpointer *gp, *gp2;
      t_pipeout *p;
--- 3069,3073 ----
  }
  static void pipe_list(t_pipe *x, t_symbol *s, int ac, t_atom *av) {
!     t_hang2 *h = (t_hang2 *)getbytes(sizeof(*h) + (x->n - 1) * sizeof(*h->vec));
      t_gpointer *gp, *gp2;
      t_pipeout *p;
***************
*** 3086,3090 ****
      t_atom *ap;
      t_word *w;
!     h->h_gp = (t_gpointer *)getbytes(x->nptr * sizeof(t_gpointer));
      if (ac > n) ac = n;
      for (i = 0, gp = x->gp, p = x->vec, ap = av; i < ac; i++, p++, ap++) {
--- 3075,3079 ----
      t_atom *ap;
      t_word *w;
!     h->gp = (t_gpointer *)getbytes(x->nptr * sizeof(t_gpointer));
      if (ac > n) ac = n;
      for (i = 0, gp = x->gp, p = x->vec, ap = av; i < ac; i++, p++, ap++) {
***************
*** 3103,3107 ****
          }
      }
!     for (i = 0, gp = x->gp, gp2 = h->h_gp, p = x->vec, w = h->h_vec; i < n; i++, p++, w++) {
          if (p->a.a_type == A_POINTER) {
              if (gp->o) gp->o->refcount++;
--- 3092,3096 ----
          }
      }
!     for (i = 0, gp = x->gp, gp2 = h->gp, p = x->vec, w = h->vec; i < n; i++, p++, w++) {
          if (p->a.a_type == A_POINTER) {
              if (gp->o) gp->o->refcount++;
***************
*** 3110,3118 ****
          } else *w = p->a.a_w;
      }
!     h->h_next = x->hang;
      x->hang = h;
!     h->h_owner = x;
!     h->h_clock = clock_new(h, (t_method)hang_tick);
!     clock_delay(h->h_clock, (x->deltime >= 0 ? x->deltime : 0));
  }
  static void pipe_flush(t_pipe *x) {
--- 3099,3107 ----
          } else *w = p->a.a_w;
      }
!     h->next = x->hang;
      x->hang = h;
!     h->owner = x;
!     h->clock = clock_new(h, (t_method)hang_tick);
!     clock_delay(h->clock, (x->deltime >= 0 ? x->deltime : 0));
  }
  static void pipe_flush(t_pipe *x) {
***************
*** 3122,3126 ****
      t_hang2 *hang;
      while ((hang = x->hang)) {
!         x->hang = hang->h_next;
          hang_free(hang);
      }
--- 3111,3115 ----
      t_hang2 *hang;
      while ((hang = x->hang)) {
!         x->hang = hang->next;
          hang_free(hang);
      }

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

[PD-cvs] pd/src builtins.c, 1.1.2.18, 1.1.2.19 builtins_dsp.c, 1.1.2.19, 1.1.2.20