aboutsummaryrefslogtreecommitdiff
path: root/iemlib1/src/sparse_FIR~.c
diff options
context:
space:
mode:
authormusil <tmusil@users.sourceforge.net>2012-09-06 15:54:46 +0000
committermusil <tmusil@users.sourceforge.net>2012-09-06 15:54:46 +0000
commit33dd6d603830640766aa1a5fe70137c856e2c145 (patch)
tree6e4a73f9100aec46971aa947a5f285c1d01ec35d /iemlib1/src/sparse_FIR~.c
parent48cb10a8590255f952f53f3ff558ce345b86a3fe (diff)
other variable names, t_float to t_sample change, array access 64 bit
svn path=/trunk/externals/iemlib/; revision=16193
Diffstat (limited to 'iemlib1/src/sparse_FIR~.c')
-rw-r--r--iemlib1/src/sparse_FIR~.c26
1 files changed, 13 insertions, 13 deletions
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);
}