added vectorized function

svn path=/trunk/externals/ext13/; revision=2000

1 files changed, 24 insertions, 3 deletions

diff --git a/catch13~.c b/catch13~.c
index 88b4d63..2144377 100644
--- a/catch13~.c
+++ b/catch13~.c
@@ -24,8 +24,7 @@
     return (x);
 }
 
-
- t_int *sigcatch13_perform(t_int *w)
+t_int *sigcatch13_perform(t_int *w)
 {
     t_float *in = (t_float *)(w[1]);
     t_float *out = (t_float *)(w[2]);
@@ -34,6 +33,23 @@
     return (w+4);
 }
 
+/* tb: vectorized */
+t_int *sigcatch13_perf8(t_int *w)
+{
+    t_float *in = (t_float *)(w[1]);
+    t_float *out = (t_float *)(w[2]);
+    int n = (int)(w[3]);
+    for (; n; n -= 8, in += 8, out += 8)
+    {
+	out[0] = in[0]; out[1] = in[1]; out[2] = in[2]; out[3] = in[3]; 
+	out[4] = in[4]; out[5] = in[5]; out[6] = in[6]; out[7] = in[7]; 
+    
+	in[0] = 0; in[1] = 0; in[2] = 0; in[3] = 0; 
+	in[4] = 0; in[5] = 0; in[6] = 0; in[7] = 0; 
+    }
+    return (w+4);
+}
+
  void sigcatch13_set(t_sigcatch13 *x, t_symbol *s)
 {
     pd_unbind(&x->x_obj.ob_pd, x->x_sym);
@@ -44,7 +60,12 @@
  void sigcatch13_dsp(t_sigcatch13 *x, t_signal **sp)
 {
     if (x->x_n == sp[0]->s_n)
-    	dsp_add(sigcatch13_perform, 3, x->x_vec, sp[0]->s_vec, sp[0]->s_n);
+    {
+	if(sp[0]->s_n&7)
+	    dsp_add(sigcatch13_perform, 3, x->x_vec, sp[0]->s_vec, sp[0]->s_n);
+	else
+	    dsp_add(sigcatch13_perf8, 3, x->x_vec, sp[0]->s_vec, sp[0]->s_n);
+    }
     else error("sigcatch13 %s: unexpected vector size", x->x_sym->s_name);
 }