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/peakenv_hold~.c | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/iemlib1/src/peakenv_hold~.c b/iemlib1/src/peakenv_hold~.c
index 3e9b09a..f21a8d2 100644
--- a/iemlib1/src/peakenv_hold~.c
+++ b/iemlib1/src/peakenv_hold~.c
@@ -35,8 +35,8 @@ static void peakenv_hold_tilde_ft1(t_peakenv_hold_tilde *x, t_float t_hold)/* ho
 {
   double dhold;
   
-  if(t_hold < 0.0f)
-    t_hold = 0.0f;
+  if(t_hold < 0.0)
+    t_hold = 0.0;
   x->x_holdtime = (double)t_hold;
   dhold = x->x_sr*0.001*x->x_holdtime;
   if(dhold > 2147483647.0)
@@ -46,16 +46,16 @@ static void peakenv_hold_tilde_ft1(t_peakenv_hold_tilde *x, t_float t_hold)/* ho
 
 static void peakenv_hold_tilde_ft2(t_peakenv_hold_tilde *x, t_float t_rel)/* release-time in ms */
 {
-  if(t_rel < 0.0f)
-    t_rel = 0.0f;
+  if(t_rel < 0.0)
+    t_rel = 0.0;
   x->x_releasetime = (double)t_rel;
   x->x_c1 = exp(-1.0/(x->x_sr*0.001*x->x_releasetime));
 }
 
 static t_int *peakenv_hold_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_peakenv_hold_tilde *x = (t_peakenv_hold_tilde *)(w[3]);
   int n = (int)(w[4]);
   double peak = x->x_old_peak;
@@ -66,7 +66,7 @@ static t_int *peakenv_hold_tilde_perform(t_int *w)
   counter = x->x_counter;
   for(i=0; i<n; i++)
   {
-    absolute = (double)fabs(*in++);
+    absolute = (double)abs((double)(*in++));
     if(counter > 0)
       counter--;// hold peride
     else
@@ -76,7 +76,7 @@ static t_int *peakenv_hold_tilde_perform(t_int *w)
       peak = absolute;
       counter = x->x_n_hold;// new hold initialisation
     }
-    *out++ = (t_float)peak;
+    *out++ = (t_sample)peak;
   }
   /* NAN protect */
   //if(IEM_DENORMAL(peak))
@@ -106,7 +106,7 @@ static void *peakenv_hold_tilde_new(t_float t_hold, t_float t_rel)
   inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
   inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
   outlet_new(&x->x_obj, &s_signal);
-  x->x_float_sig_in = 0.0f;
+  x->x_float_sig_in = 0.0;
   return(x);
 }
 
-- 
cgit v1.2.1