From 33dd6d603830640766aa1a5fe70137c856e2c145 Mon Sep 17 00:00:00 2001
From: musil <tmusil@users.sourceforge.net>
Date: Thu, 6 Sep 2012 15:54:46 +0000
Subject: other variable names, t_float to t_sample change, array access 64 bit

svn path=/trunk/externals/iemlib/; revision=16193
---
 iemlib1/src/sparse_FIR~.c | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'iemlib1/src/sparse_FIR~.c')

diff --git a/iemlib1/src/sparse_FIR~.c b/iemlib1/src/sparse_FIR~.c
index 5a40f66..879f367 100644
--- a/iemlib1/src/sparse_FIR~.c
+++ b/iemlib1/src/sparse_FIR~.c
@@ -14,12 +14,12 @@ iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2010
 typedef struct _sparse_FIR_tilde
 {
   t_object  x_obj;
-  t_float   *x_coef_beg;
+  t_sample  *x_coef_beg;
   int       *x_index_beg;
   int       x_n_coef_resp_order;
   int       x_n_coef;
   int       x_n_coef_malloc;
-  t_float   *x_history_beg;
+  t_sample  *x_history_beg;
   int       x_n_order;
   int       x_n_order_malloc;
   int       x_rw_index;
@@ -30,8 +30,8 @@ static t_class *sparse_FIR_tilde_class;
 
 static t_int *sparse_FIR_tilde_perform(t_int *w)
 {
-  t_float *in = (t_float *)(w[1]);
-  t_float *out = (t_float *)(w[2]);
+  t_sample *in = (t_sample *)(w[1]);
+  t_sample *out = (t_sample *)(w[2]);
   t_sparse_FIR_tilde *x = (t_sparse_FIR_tilde *)(w[3]);
   int n = (t_int)(w[4]);
   int rw_index = x->x_rw_index;
@@ -39,15 +39,15 @@ static t_int *sparse_FIR_tilde_perform(t_int *w)
   int order = x->x_n_order;
   int n_coef = x->x_n_coef_resp_order;
   int n_coef8;
-  t_float sum=0.0f;
-  t_float *coef = x->x_coef_beg;
+  t_sample sum=0.0;
+  t_sample *coef = x->x_coef_beg;
   int *index = x->x_index_beg;
-  t_float *write_hist1=x->x_history_beg;
-  t_float *write_hist2;
-  t_float *read_hist;
-  t_float *coef_vec;
+  t_sample *write_hist1=x->x_history_beg;
+  t_sample *write_hist2;
+  t_sample *read_hist;
+  t_sample *coef_vec;
   int *index_vec;
-  t_float *hist_vec;
+  t_sample *hist_vec;
   
   if((order < 1) || (n_coef < 1))
     goto sparse_FIR_tilde_perf_zero;
@@ -61,7 +61,7 @@ static t_int *sparse_FIR_tilde_perform(t_int *w)
   {
     write_hist1[rw_index] = in[i];
     write_hist2[rw_index] = in[i];
-    sum = 0.0f;
+    sum = 0.0;
     coef_vec = coef;
     index_vec = index;
     hist_vec = &read_hist[rw_index];
@@ -103,7 +103,7 @@ static t_int *sparse_FIR_tilde_perform(t_int *w)
 sparse_FIR_tilde_perf_zero:
   
   while(n--)
-    *out++ = 0.0f;
+    *out++ = 0.0;
   return(w+5);
 }
 
-- 
cgit v1.2.1