From bb04075ca94cfbb8391e3bbb0e693d2ebd079e95 Mon Sep 17 00:00:00 2001
From: musil <tmusil@users.sourceforge.net>
Date: Sun, 1 Feb 2009 05:25:21 +0000
Subject: changed for 64 bit array access

svn path=/trunk/externals/iem/iem_tab/; revision=10706
---
 src/tab_const.c | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

(limited to 'src/tab_const.c')

diff --git a/src/tab_const.c b/src/tab_const.c
index 2ab8fe3..461f950 100644
--- a/src/tab_const.c
+++ b/src/tab_const.c
@@ -1,21 +1,22 @@
 /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
 * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
 
-iem_tab written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2006 */
+iem_tab written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2009 */
 
 #include "m_pd.h"
 #include "iemlib.h"
 #include "iem_tab.h"
 
 /* -------------------------- tab_const ------------------------------ */
+/*   x_beg_mem_dst[i] = c   */
 
 typedef struct _tab_const
 {
   t_object  x_obj;
   int       x_size_dst;
   int       x_offset_dst;
-  t_float x_const;
-  t_float *x_beg_mem_dst;
+  t_float   x_const;
+  iemarray_t *x_beg_mem_dst;
   t_symbol  *x_sym_dst;
 } t_tab_const;
 
@@ -30,7 +31,7 @@ static void tab_const_bang(t_tab_const *x)
 {
   int i, n;
   int ok_dst;
-  t_float *vec_dst;
+  iemarray_t *vec_dst;
   
   ok_dst = iem_tab_check_arrays(gensym("tab_const"), x->x_sym_dst, &x->x_beg_mem_dst, &x->x_size_dst, 0);
   
@@ -43,7 +44,7 @@ static void tab_const_bang(t_tab_const *x)
       t_garray *a;
       
       for(i=0; i<n; i++)
-        vec_dst[i] = 0.0f;
+        iemarray_setfloat(vec_dst, i, 0.0f);
       outlet_bang(x->x_obj.ob_outlet);
       a = (t_garray *)pd_findbyclass(x->x_sym_dst, garray_class);
       garray_redraw(a);
@@ -55,7 +56,7 @@ static void tab_const_float(t_tab_const *x, t_floatarg c)
 {
   int i, n;
   int ok_dst;
-  t_float *vec_dst;
+  iemarray_t *vec_dst;
   
   ok_dst = iem_tab_check_arrays(gensym("tab_const"), x->x_sym_dst, &x->x_beg_mem_dst, &x->x_size_dst, 0);
   
@@ -68,7 +69,7 @@ static void tab_const_float(t_tab_const *x, t_floatarg c)
       t_garray *a;
       
       for(i=0; i<n; i++)
-        vec_dst[i] = c;
+        iemarray_setfloat(vec_dst, i, c);
       outlet_bang(x->x_obj.ob_outlet);
       a = (t_garray *)pd_findbyclass(x->x_sym_dst, garray_class);
       garray_redraw(a);
@@ -81,7 +82,8 @@ static void tab_const_list(t_tab_const *x, t_symbol *s, int argc, t_atom *argv)
   int beg_dst;
   int i, n;
   int ok_dst;
-  t_float *vec_dst, c;
+  iemarray_t *vec_dst;
+  t_float c;
   
   if((argc >= 3) &&
     IS_A_FLOAT(argv,0) &&
@@ -106,7 +108,7 @@ static void tab_const_list(t_tab_const *x, t_symbol *s, int argc, t_atom *argv)
         t_garray *a;
         
         for(i=0; i<n; i++)
-          vec_dst[i] = c;
+          iemarray_setfloat(vec_dst, i, c);
         outlet_bang(x->x_obj.ob_outlet);
         a = (t_garray *)pd_findbyclass(x->x_sym_dst, garray_class);
         garray_redraw(a);
@@ -128,7 +130,6 @@ static void *tab_const_new(t_symbol *s, int argc, t_atom *argv)
 {
   t_tab_const *x = (t_tab_const *)pd_new(tab_const_class);
   t_symbol  *dst;
-  t_float time;
   
   if((argc >= 1) &&
     IS_A_SYMBOL(argv,0))
-- 
cgit v1.2.1