From 6890816bcf762feded0048e53e9d5db721f3df42 Mon Sep 17 00:00:00 2001
From: musil <tmusil@users.sourceforge.net>
Date: Thu, 14 May 2009 12:42:28 +0000
Subject: some wrong pointers casted to t_array instead of t_float

svn path=/trunk/externals/iem/iem_tab/; revision=11356
---
 src/tab_add_scalar.c  | 3 ++-
 src/tab_carth2polar.c | 2 --
 src/tab_mul_scalar.c  | 4 ++--
 src/tab_rifft.c       | 4 ++--
 4 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/src/tab_add_scalar.c b/src/tab_add_scalar.c
index 3f9fbba..162baef 100644
--- a/src/tab_add_scalar.c
+++ b/src/tab_add_scalar.c
@@ -71,7 +71,8 @@ static void tab_add_scalar_list(t_tab_add_scalar *x, t_symbol *s, int argc, t_at
   int beg_src1, beg_dst;
   int i, n;
   int ok_src1, ok_dst;
-  iemarray_t *vec_src1, *vec_dst, add;
+  iemarray_t *vec_src1, *vec_dst;
+  t_float add;
   
   if((argc >= 4) &&
     IS_A_FLOAT(argv,0) &&
diff --git a/src/tab_carth2polar.c b/src/tab_carth2polar.c
index e70d2b8..9dccd68 100644
--- a/src/tab_carth2polar.c
+++ b/src/tab_carth2polar.c
@@ -96,8 +96,6 @@ static void tab_carth2polar_bang(t_tab_carth2polar *x)
         im = iemarray_getfloat(vec_src_im, i);
         mag = sqrt(re*re + im*im);
         arg = atan2(im, re) * rcp_two_pi;
-        vec_dst_mag[i] = mag;
-        vec_dst_arg[i] = arg;
         iemarray_setfloat(vec_dst_mag, i, mag);
         iemarray_setfloat(vec_dst_arg, i, arg);
       }
diff --git a/src/tab_mul_scalar.c b/src/tab_mul_scalar.c
index c642237..b71066a 100644
--- a/src/tab_mul_scalar.c
+++ b/src/tab_mul_scalar.c
@@ -54,7 +54,7 @@ static void tab_mul_scalar_float(t_tab_mul_scalar *x, t_floatarg m)
       t_garray *a;
       
       for(i=0; i<n; i++)
-        vec_dst[i] = vec_src1[i]*m;
+        iemarray_setfloat(vec_dst, i, iemarray_getfloat(vec_src1, i)*m);
       outlet_bang(x->x_obj.ob_outlet);
       a = (t_garray *)pd_findbyclass(x->x_sym_dst, garray_class);
       garray_redraw(a);
@@ -104,7 +104,7 @@ static void tab_mul_scalar_list(t_tab_mul_scalar *x, t_symbol *s, int argc, t_at
         t_garray *a;
         
         for(i=0; i<n; i++)
-          vec_dst[i] = vec_src1[i]*m;
+          iemarray_setfloat(vec_dst, i, iemarray_getfloat(vec_src1, i)*m);
         outlet_bang(x->x_obj.ob_outlet);
         a = (t_garray *)pd_findbyclass(x->x_sym_dst, garray_class);
         garray_redraw(a);
diff --git a/src/tab_rifft.c b/src/tab_rifft.c
index 0730ef1..eddf8ce 100644
--- a/src/tab_rifft.c
+++ b/src/tab_rifft.c
@@ -64,7 +64,7 @@ static void tab_rifft_ifftsize(t_tab_rifft *x, t_floatarg f)
   if(i != x->x_fftsize)
   {
     x->x_sin_cos = (TAB_COMPLEX *)resizebytes(x->x_sin_cos, x->x_fftsize*sizeof(TAB_COMPLEX), i*sizeof(TAB_COMPLEX));
-    x->x_beg_mem_dst_im = (t_float *)resizebytes(x->x_beg_mem_dst_im, x->x_fftsize*sizeof(t_float), i*sizeof(t_float));
+    x->x_beg_mem_dst_im = (iemarray_t *)resizebytes(x->x_beg_mem_dst_im, x->x_fftsize*sizeof(iemarray_t), i*sizeof(iemarray_t));
     x->x_fftsize = i;
   }
   tab_rifft_init(x);
@@ -381,7 +381,7 @@ static void *tab_rifft_new(t_symbol *s, int argc, t_atom *argv)
   x->x_sym_src_im = src_im;
   x->x_sym_dst = dst;
   x->x_sin_cos = (TAB_COMPLEX *)getbytes(x->x_fftsize * sizeof(TAB_COMPLEX));
-  x->x_beg_mem_dst_im = (t_float *)getbytes(x->x_fftsize * sizeof(t_float));
+  x->x_beg_mem_dst_im = (iemarray_t *)getbytes(x->x_fftsize * sizeof(iemarray_t));
   tab_rifft_init(x);
   outlet_new(&x->x_obj, &s_bang);
   return(x);
-- 
cgit v1.2.1