Use scicos_block4 typedef and avoid long use instead of int. 85/12185/2
Bruno JOFRET [Tue, 30 Jul 2013 09:24:41 +0000 (11:24 +0200)]
Change-Id: Iff4bc9c7c0f9d0cb68ae6fd82c140ac3449f7ac3

17 files changed:
scilab/modules/scicos_blocks/includes/scicos_block4.h
scilab/modules/scicos_blocks/src/c/assignment.c
scilab/modules/scicos_blocks/src/c/bit_clear_32.c
scilab/modules/scicos_blocks/src/c/bit_set_32.c
scilab/modules/scicos_blocks/src/c/convert.c
scilab/modules/scicos_blocks/src/c/delay4_i32.c
scilab/modules/scicos_blocks/src/c/delay4_ui32.c
scilab/modules/scicos_blocks/src/c/matbyscal.c
scilab/modules/scicos_blocks/src/c/matmul2_e.c
scilab/modules/scicos_blocks/src/c/matmul2_m.c
scilab/modules/scicos_blocks/src/c/matmul2_s.c
scilab/modules/scicos_blocks/src/c/summation_i32e.c
scilab/modules/scicos_blocks/src/c/summation_i32n.c
scilab/modules/scicos_blocks/src/c/summation_i32s.c
scilab/modules/scicos_blocks/src/c/summation_ui32e.c
scilab/modules/scicos_blocks/src/c/summation_ui32n.c
scilab/modules/scicos_blocks/src/c/summation_ui32s.c

index 53fb6b7..1a3531e 100644 (file)
@@ -142,11 +142,11 @@ typedef enum
 #define SCSINT_COP int
 #define SCSINT8_COP char
 #define SCSINT16_COP short
-#define SCSINT32_COP long
+#define SCSINT32_COP int
 #define SCSUINT_COP unsigned int
 #define SCSUINT8_COP unsigned char
 #define SCSUINT16_COP unsigned short
-#define SCSUINT32_COP unsigned long
+#define SCSUINT32_COP unsigned int
 #define SCSUNKNOW_COP double
 
 /* scicos_block macros definition :
index 1cdf411..8381214 100644 (file)
@@ -82,28 +82,28 @@ SCICOS_BLOCKS_IMPEXP void assignment(scicos_block *block, int flag)
         {
             if ((typ == SCSREAL_N) | (typ == SCSCOMPLEX_N))
             {
-                double *ind1;
+                SCSREAL_COP *ind1;
                 ind1 = GetRealInPortPtrs(block, 2 + (int) * out0);
                 *tempind1 = 1;
                 *(tempind1 + 1) = Max(Min((int)(*ind1), my - (1 - (int)(*indxb))) - (int)(*indxb), 0);
             }
             else if ((typ == SCSINT8_N) | (typ == SCSUINT8_N))
             {
-                char  *ind1;
+                SCSINT8_COP  *ind1;
                 ind1 = Getint8InPortPtrs(block, 2 + (int) * out0);
                 *tempind1 = 1;
                 *(tempind1 + 1) = Max(Min((int)(*ind1), my - (1 - (int)(*indxb))) - (int)(*indxb), 0);
             }
             else if ((typ == SCSINT16_N) | (typ == SCSUINT16_N))
             {
-                short *ind1;
+                SCSINT16_COP *ind1;
                 ind1 = Getint16InPortPtrs(block, 2 + (int) * out0);
                 *tempind1 = 1;
                 *(tempind1 + 1) = Max(Min((int)(*ind1), my - (1 - (int)(*indxb))) - (int)(*indxb), 0);
             }
             else if ((typ == SCSINT32_N) | (typ == SCSUINT32_N))
             {
-                long *ind1;
+                SCSINT32_COP *ind1;
                 ind1 = Getint32InPortPtrs(block, 2 + (int) * out0);
                 *tempind1 = 1;
                 *(tempind1 + 1) = Max(Min((int)(*ind1), my - (1 - (int)(*indxb))) - (int)(*indxb), 0);
@@ -136,28 +136,28 @@ SCICOS_BLOCKS_IMPEXP void assignment(scicos_block *block, int flag)
             {
                 if ((typ == SCSREAL_N) | (typ == SCSCOMPLEX_N))
                 {
-                    double *ind2;
+                    SCSREAL_COP *ind2;
                     ind2 = GetRealInPortPtrs(block, 3 + (int) * out0);
                     *tempind2 = 1;
                     *(tempind2 + 1) = Max(Min((int)(*ind2), ny - (1 - (int)(*indxb))) - (int)(*indxb), 0);
                 }
                 else if ((typ == SCSINT8_N) | (typ == SCSUINT8_N))
                 {
-                    char  *ind2;
+                    SCSINT8_COP *ind2;
                     ind2 = Getint8InPortPtrs(block, 3 + (int) * out0);
                     *tempind2 = 1;
                     *(tempind2 + 1) = Max(Min((int)(*ind2), ny - (1 - (int)(*indxb))) - (int)(*indxb), 0);
                 }
                 else if ((typ == SCSINT16_N) | (typ == SCSUINT16_N))
                 {
-                    short *ind2;
+                    SCSINT16_COP *ind2;
                     ind2 = Getint16InPortPtrs(block, 3 + (int) * out0);
                     *tempind2 = 1;
                     *(tempind2 + 1) = Max(Min((int)(*ind2), ny - (1 - (int)(*indxb))) - (int)(*indxb), 0);
                 }
                 else if ((typ == SCSINT32_N) | (typ == SCSUINT32_N))
                 {
-                    long *ind2;
+                    SCSINT32_COP *ind2;
                     ind2 = Getint32InPortPtrs(block, 3 + (int) * out0);
                     *tempind2 = 1;
                     *(tempind2 + 1) = Max(Min((int)(*ind2), ny - (1 - (int)(*indxb))) - (int)(*indxb), 0);
@@ -167,28 +167,28 @@ SCICOS_BLOCKS_IMPEXP void assignment(scicos_block *block, int flag)
             {
                 if ((typ == SCSREAL_N) | (typ == SCSCOMPLEX_N))
                 {
-                    double *ind2;
+                    SCSREAL_COP *ind2;
                     ind2 = GetRealInPortPtrs(block, 2 + (int) * out0);
                     *tempind2 = 1;
                     *(tempind2 + 1) = Max(Min((int)(*ind2), ny - (1 - (int)(*indxb))) - (int)(*indxb), 0);
                 }
                 else if ((typ == SCSINT8_N) | (typ == SCSUINT8_N))
                 {
-                    char  *ind2;
+                    SCSINT8_COP *ind2;
                     ind2 = Getint8InPortPtrs(block, 2 + (int) * out0);
                     *tempind2 = 1;
                     *(tempind2 + 1) = Max(Min((int)(*ind2), ny - (1 - (int)(*indxb))) - (int)(*indxb), 0);
                 }
                 else if ((typ == SCSINT16_N) | (typ == SCSUINT16_N))
                 {
-                    short *ind2;
+                    SCSINT16_COP *ind2;
                     ind2 = Getint16InPortPtrs(block, 2 + (int) * out0);
                     *tempind2 = 1;
                     *(tempind2 + 1) = Max(Min((int)(*ind2), ny - (1 - (int)(*indxb))) - (int)(*indxb), 0);
                 }
                 else if ((typ == SCSINT32_N) | (typ == SCSUINT32_N))
                 {
-                    long *ind2;
+                    SCSINT32_COP *ind2;
                     ind2 = Getint32InPortPtrs(block, 2 + (int) * out0);
                     *tempind2 = 1;
                     *(tempind2 + 1) = Max(Min((int)(*ind2), ny - (1 - (int)(*indxb))) - (int)(*indxb), 0);
index a785037..ef87be8 100644 (file)
@@ -27,8 +27,8 @@
 SCICOS_BLOCKS_IMPEXP void bit_clear_32(scicos_block *block, int flag)
 {
     int n = 0, m = 0, i = 0;
-    long *opar = NULL;
-    long *u = NULL, *y = NULL;
+    SCSINT32_COP *opar = NULL;
+    SCSINT32_COP *u = NULL, *y = NULL;
     opar = Getint32OparPtrs(block, 1);
     u = Getint32InPortPtrs(block, 1);
     y = Getint32OutPortPtrs(block, 1);
index bdcec24..3f3bc9d 100644 (file)
@@ -26,8 +26,8 @@
 SCICOS_BLOCKS_IMPEXP void bit_set_32(scicos_block *block, int flag)
 {
     int n, m, i;
-    long *opar;
-    long *u, *y;
+    SCSINT32_COP *opar;
+    SCSINT32_COP *u, *y;
     opar = Getint32OparPtrs(block, 1);
     u = Getint32InPortPtrs(block, 1);
     y = Getint32OutPortPtrs(block, 1);
index cde5982..96f22e3 100644 (file)
@@ -54,8 +54,8 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
             }
             case 2:
             {
-                double *u = NULL;
-                long *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSINT32_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getint32OutPortPtrs(block, 1);
                 k = pow(2, 32);
@@ -74,14 +74,14 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                             w = -(-(k / 2) + fabs(w - (double)((int)(w / (k / 2))) * (k / 2)));
                         }
                     }
-                    y[i] = (long)w;
+                    y[i] = (SCSINT32_COP)w;
                 }
                 break;
             }
             case 3:
             {
-                double *u = NULL;
-                short *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -100,14 +100,14 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                             w = -(-(k / 2) + fabs(w - (double)((int)(w / (k / 2))) * (k / 2)));
                         }
                     }
-                    y[i] = (short)w;
+                    y[i] = (SCSINT16_COP)w;
                 }
                 break;
             }
             case 4:
             {
-                double *u = NULL;
-                char *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -126,14 +126,14 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                             w = -(-(k / 2) + fabs(w - (double)((int)(w / (k / 2))) * (k / 2)));
                         }
                     }
-                    y[i] = (char)w;
+                    y[i] = (SCSINT8_COP)w;
                 }
                 break;
             }
             case 5:
             {
-                double *u = NULL;
-                unsigned long *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 k = pow(2, 32);
@@ -141,14 +141,14 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     v = (double)u[i];
                     w = v - (double)((int)(v / k)) * k;
-                    y[i] = (unsigned long)w;
+                    y[i] = (SCSUINT32_COP)w;
                 }
                 break;
             }
             case 6:
             {
-                double *u = NULL;
-                unsigned short *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -156,14 +156,14 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     v = (double)u[i];
                     w = v - (double)((int)(v / k)) * k;
-                    y[i] = (unsigned short)w;
+                    y[i] = (SCSUINT16_COP)w;
                 }
                 break;
             }
             case 7:
             {
-                double *u = NULL;
-                unsigned char *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -171,26 +171,26 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     v = (double)u[i];
                     w = v - (double)((int)(v / k)) * k;
-                    y[i] = (unsigned char)w;
+                    y[i] = (SCSUINT8_COP)w;
                 }
                 break;
             }
             case 8:
             {
-                long *u = NULL;
-                double *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSREAL_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = GetRealOutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (double) u[i];
+                    y[i] = (SCSREAL_COP) u[i];
                 }
                 break;
             }
             case 9:
             {
-                long *u = NULL;
-                short *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -209,14 +209,14 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                             w = -(-(k / 2) + fabs(w - (double)((int)(w / (k / 2))) * (k / 2)));
                         }
                     }
-                    y[i] = (short)w;
+                    y[i] = (SCSINT16_COP)w;
                 }
                 break;
             }
             case 10:
             {
-                long *u = NULL;
-                char *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -235,14 +235,14 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                             w = -(-(k / 2) + fabs(w - (double)((int)(w / (k / 2))) * (k / 2)));
                         }
                     }
-                    y[i] = (char)w;
+                    y[i] = (SCSINT8_COP)w;
                 }
                 break;
             }
             case 11:
             {
-                long *u = NULL;
-                unsigned short *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -250,14 +250,14 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     v = (double)u[i];
                     w = v - (double)((int)(v / k)) * k;
-                    y[i] = (unsigned short)w;
+                    y[i] = (SCSUINT16_COP)w;
                 }
                 break;
             }
             case 12:
             {
-                long *u = NULL;
-                unsigned char *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -265,13 +265,13 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     v = (double)u[i];
                     w = v - (double)((int)(v / k)) * k;
-                    y[i] = (unsigned char)w;
+                    y[i] = (SCSUINT8_COP)w;
                 }
                 break;
             }
             case 13:
             {
-                short *u = NULL;
+                SCSINT16_COP *u = NULL;
                 double *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = GetRealOutPortPtrs(block, 1);
@@ -283,20 +283,20 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
             }
             case 14:
             {
-                short *u = NULL;
-                long *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSINT32_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (long)u[i];
+                    y[i] = (SCSINT32_COP)u[i];
                 }
                 break;
             }
             case 15:
             {
-                short *u = NULL;
-                char *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -315,26 +315,26 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                             w = -(-(k / 2) + fabs(w - (double)((int)(w / (k / 2))) * (k / 2)));
                         }
                     }
-                    y[i] = (char)w;
+                    y[i] = (SCSINT8_COP)w;
                 }
                 break;
             }
             case 16:
             {
-                short *u = NULL;
-                unsigned long *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (unsigned long)u[i];
+                    y[i] = (SCSUINT32_COP)u[i];
                 }
                 break;
             }
             case 17:
             {
-                short *u = NULL;
-                unsigned char *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -342,86 +342,86 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     v = (double)u[i];
                     w = v - (double)((int)(v / k)) * k;
-                    y[i] = (unsigned char)w;
+                    y[i] = (SCSUINT8_COP)w;
                 }
                 break;
             }
             case 18:
             {
-                char *u = NULL;
-                double *y = NULL;
+                SCSINT8_COP *u = NULL;
+                SCSREAL_COP *y = NULL;
                 u = Getint8InPortPtrs(block, 1);
                 y = GetRealOutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (double) u[i];
+                    y[i] = (SCSREAL_COP) u[i];
                 }
                 break;
             }
             case 19:
             {
-                char *u = NULL;
-                long *y = NULL;
+                SCSINT8_COP *u = NULL;
+                SCSINT32_COP *y = NULL;
                 u = Getint8InPortPtrs(block, 1);
                 y = Getint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (long)u[i];
+                    y[i] = (SCSINT32_COP)u[i];
                 }
                 break;
             }
             case 20:
             {
-                char *u = NULL;
-                short *y = NULL;
+                SCSINT8_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = Getint8InPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (short)u[i];
+                    y[i] = (SCSINT16_COP)u[i];
                 }
                 break;
             }
             case 21:
             {
-                char *u = NULL;
-                unsigned long *y = NULL;
+                SCSINT8_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = Getint8InPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (unsigned long)u[i];
+                    y[i] = (SCSUINT32_COP)u[i];
                 }
                 break;
             }
             case 22:
             {
-                char *u = NULL;
-                unsigned short *y = NULL;
+                SCSINT8_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getint8InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (unsigned short)u[i];
+                    y[i] = (SCSUINT16_COP)u[i];
                 }
                 break;
             }
             case 23:
             {
-                unsigned long *u = NULL;
-                double *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSREAL_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = GetRealOutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (double) u[i];
+                    y[i] = (SCSREAL_COP) u[i];
                 }
                 break;
             }
             case 24:
             {
-                unsigned long *u = NULL;
-                short *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -433,14 +433,14 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     {
                         w = (-k / 2 + fabs(w - (double)((int)(w / (k / 2))) * (k / 2)));
                     }
-                    y[i] = (short)w;
+                    y[i] = (SCSINT16_COP)w;
                 }
                 break;
             }
             case 25:
             {
-                unsigned long *u = NULL;
-                char *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -452,14 +452,14 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     {
                         w = (-k / 2 + fabs(w - (double)((int)(w / (k / 2))) * (k / 2)));
                     }
-                    y[i] = (char)w;
+                    y[i] = (SCSINT8_COP)w;
                 }
                 break;
             }
             case 26:
             {
-                unsigned long *u = NULL;
-                unsigned short *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -467,14 +467,14 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     v = (double)u[i];
                     w = v - (double)((int)(v / k)) * k;
-                    y[i] = (unsigned short)w;
+                    y[i] = (SCSUINT16_COP)w;
                 }
                 break;
             }
             case 27:
             {
-                unsigned long *u = NULL;
-                unsigned char *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -482,38 +482,38 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     v = (double)u[i];
                     w = v - (double)((int)(v / k)) * k;
-                    y[i] = (unsigned char)w;
+                    y[i] = (SCSUINT8_COP)w;
                 }
                 break;
             }
             case 28:
             {
-                unsigned short *u = NULL;
-                double *y = NULL;
+                SCSUINT16_COP *u = NULL;
+                SCSREAL_COP *y = NULL;
                 u = Getuint16InPortPtrs(block, 1);
                 y = GetRealOutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (double) u[i];
+                    y[i] = (SCSREAL_COP) u[i];
                 }
                 break;
             }
             case 29:
             {
-                unsigned short *u = NULL;
-                long *y = NULL;
+                SCSUINT16_COP *u = NULL;
+                SCSINT32_COP *y = NULL;
                 u = Getuint16InPortPtrs(block, 1);
                 y = Getint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (long)u[i];
+                    y[i] = (SCSINT32_COP)u[i];
                 }
                 break;
             }
             case 30:
             {
-                unsigned short *u = NULL;
-                char *y = NULL;
+                SCSUINT16_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getuint16InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -525,26 +525,26 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     {
                         w = (-k / 2 + fabs(w - (double)((int)(w / (k / 2))) * (k / 2)));
                     }
-                    y[i] = (char)w;
+                    y[i] = (SCSINT8_COP)w;
                 }
                 break;
             }
             case 31:
             {
-                unsigned short *u = NULL;
-                unsigned long *y = NULL;
+                SCSUINT16_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = Getuint16InPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (unsigned long)u[i];
+                    y[i] = (SCSUINT32_COP)u[i];
                 }
                 break;
             }
             case 32:
             {
-                unsigned short *u = NULL;
-                unsigned char *y = NULL;
+                SCSUINT16_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getuint16InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -552,74 +552,74 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     v = (double)u[i];
                     w = v - (double)((int)(v / k)) * k;
-                    y[i] = (unsigned char)w;
+                    y[i] = (SCSUINT8_COP)w;
                 }
                 break;
             }
             case 33:
             {
-                unsigned char *u = NULL;
-                double *y = NULL;
+                SCSUINT8_COP *u = NULL;
+                SCSREAL_COP *y = NULL;
                 u = Getuint8InPortPtrs(block, 1);
                 y = GetRealOutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (double) u[i];
+                    y[i] = (SCSREAL_COP) u[i];
                 }
                 break;
             }
             case 34:
             {
-                unsigned char *u = NULL;
-                long *y = NULL;
+                SCSUINT8_COP *u = NULL;
+                SCSINT32_COP *y = NULL;
                 u = Getuint8InPortPtrs(block, 1);
                 y = Getint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (long)u[i];
+                    y[i] = (SCSINT32_COP)u[i];
                 }
                 break;
             }
             case 35:
             {
-                unsigned char *u = NULL;
-                short *y = NULL;
+                SCSUINT8_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = Getuint8InPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (short)u[i];
+                    y[i] = (SCSINT16_COP)u[i];
                 }
                 break;
             }
             case 36:
             {
-                unsigned char *u = NULL;
-                unsigned long *y = NULL;
+                SCSUINT8_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = Getuint8InPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (unsigned long)u[i];
+                    y[i] = (SCSUINT32_COP)u[i];
                 }
                 break;
             }
             case 37:
             {
-                unsigned char *u = NULL;
-                unsigned short *y = NULL;
+                SCSUINT8_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getuint8InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
                 {
-                    y[i] = (unsigned short)u[i];
+                    y[i] = (SCSUINT16_COP)u[i];
                 }
                 break;
             }
             case 38:
             {
-                double *u = NULL;
-                long *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSINT32_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getint32OutPortPtrs(block, 1);
                 k = pow(2, 32);
@@ -627,23 +627,23 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     if (u[i] > k / 2 - 1)
                     {
-                        y[i] = (long)(k / 2 - 1);
+                        y[i] = (SCSINT32_COP)(k / 2 - 1);
                     }
                     else if (u[i] < -(k / 2))
                     {
-                        y[i] = -(long)(k / 2);
+                        y[i] = -(SCSINT32_COP)(k / 2);
                     }
                     else
                     {
-                        y[i] = (long)(u[i]);
+                        y[i] = (SCSINT32_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 39:
             {
-                double *u = NULL;
-                short *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -651,23 +651,23 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     if (u[i] > k / 2 - 1)
                     {
-                        y[i] = (short)(k / 2 - 1);
+                        y[i] = (SCSINT16_COP)(k / 2 - 1);
                     }
                     else if (u[i] < -(k / 2))
                     {
-                        y[i] = -(short)(k / 2);
+                        y[i] = -(SCSINT16_COP)(k / 2);
                     }
                     else
                     {
-                        y[i] = (short)(u[i]);
+                        y[i] = (SCSINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 40:
             {
-                double *u = NULL;
-                char *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -675,23 +675,23 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     if (u[i] > k / 2 - 1)
                     {
-                        y[i] = (char)(k / 2 - 1);
+                        y[i] = (SCSINT8_COP)(k / 2 - 1);
                     }
                     else if (u[i] < -(k / 2))
                     {
-                        y[i] = -(char)(k / 2);
+                        y[i] = -(SCSINT8_COP)(k / 2);
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 41:
             {
-                double *u = NULL;
-                unsigned long *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 k = pow(2, 32);
@@ -699,7 +699,7 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     if (u[i] >= k)
                     {
-                        y[i] = (unsigned long)(k - 1);
+                        y[i] = (SCSUINT32_COP)(k - 1);
                     }
                     else if (u[i] < 0)
                     {
@@ -707,15 +707,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned long)(u[i]);
+                        y[i] = (SCSUINT32_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 42:
             {
-                double *u = NULL;
-                unsigned short *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -723,7 +723,7 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     if (u[i] >= k)
                     {
-                        y[i] = (unsigned short)(k - 1);
+                        y[i] = (SCSUINT16_COP)(k - 1);
                     }
                     else if (u[i] < 0)
                     {
@@ -731,15 +731,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned short)(u[i]);
+                        y[i] = (SCSUINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 43:
             {
-                double *u = NULL;
-                unsigned char *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -747,7 +747,7 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                 {
                     if (u[i] >= k)
                     {
-                        y[i] = (unsigned char)(k - 1);
+                        y[i] = (SCSUINT8_COP)(k - 1);
                     }
                     else if (u[i] < 0)
                     {
@@ -755,63 +755,63 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 44:
             {
-                long *u = NULL;
-                short *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (long)(k / 2 - 1))
+                    if (u[i] > (SCSINT32_COP)(k / 2 - 1))
                     {
-                        y[i] = (short)(k / 2 - 1);
+                        y[i] = (SCSINT16_COP)(k / 2 - 1);
                     }
-                    else if (u[i] < -(long)(k / 2))
+                    else if (u[i] < -(SCSINT32_COP)(k / 2))
                     {
-                        y[i] = -(short)(k / 2);
+                        y[i] = -(SCSINT16_COP)(k / 2);
                     }
                     else
                     {
-                        y[i] = (short)(u[i]);
+                        y[i] = (SCSINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 45:
             {
-                long *u = NULL;
-                char *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (long)(k / 2 - 1))
+                    if (u[i] > (SCSINT32_COP)(k / 2 - 1))
                     {
-                        y[i] = (char)(k / 2 - 1);
+                        y[i] = (SCSINT8_COP)(k / 2 - 1);
                     }
-                    else if (u[i] < -(long)(k / 2))
+                    else if (u[i] < -(SCSINT32_COP)(k / 2))
                     {
-                        y[i] = -(char)(k / 2);
+                        y[i] = -(SCSINT8_COP)(k / 2);
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 46:
             {
-                long *u = NULL;
-                unsigned long *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -822,23 +822,23 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned long)(u[i]);
+                        y[i] = (SCSUINT32_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 47:
             {
-                long *u = NULL;
-                unsigned short *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] >= (long)(k))
+                    if (u[i] >= (SCSINT32_COP)(k))
                     {
-                        y[i] = (unsigned short)(k - 1);
+                        y[i] = (SCSUINT16_COP)(k - 1);
                     }
                     else if (u[i] < 0)
                     {
@@ -846,23 +846,23 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned short)(u[i]);
+                        y[i] = (SCSUINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 48:
             {
-                long *u = NULL;
-                unsigned char *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] >= (long)k)
+                    if (u[i] >= (SCSINT32_COP)k)
                     {
-                        y[i] = (unsigned char)(k - 1);
+                        y[i] = (SCSUINT8_COP)(k - 1);
                     }
                     else if (u[i] < 0)
                     {
@@ -870,39 +870,39 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 49:
             {
-                short *u = NULL;
-                char *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (short)(k / 2 - 1))
+                    if (u[i] > (SCSINT16_COP)(k / 2 - 1))
                     {
-                        y[i] = (char)(k / 2 - 1);
+                        y[i] = (SCSINT8_COP)(k / 2 - 1);
                     }
-                    else if (u[i] < -(short)(k / 2))
+                    else if (u[i] < -(SCSINT16_COP)(k / 2))
                     {
-                        y[i] = -(char)(k / 2);
+                        y[i] = -(SCSINT8_COP)(k / 2);
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 50:
             {
-                short *u = NULL;
-                unsigned long *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -913,15 +913,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned long)u[i];
+                        y[i] = (SCSUINT32_COP)u[i];
                     }
                 }
                 break;
             }
             case 51:
             {
-                short *u = NULL;
-                unsigned short *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -932,23 +932,23 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned short)(u[i]);
+                        y[i] = (SCSUINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 52:
             {
-                short *u = NULL;
-                unsigned char *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] >= (short)k)
+                    if (u[i] >= (SCSINT16_COP)k)
                     {
-                        y[i] = (unsigned char)(k - 1);
+                        y[i] = (SCSUINT8_COP)(k - 1);
                     }
                     else if (u[i] < 0)
                     {
@@ -956,15 +956,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 53:
             {
-                char *u = NULL;
-                unsigned long *y = NULL;
+                SCSINT8_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = Getint8InPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -975,15 +975,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned long)u[i];
+                        y[i] = (SCSUINT32_COP)u[i];
                     }
                 }
                 break;
             }
             case 54:
             {
-                char *u = NULL;
-                unsigned short *y = NULL;
+                SCSINT8_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getint8InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -994,15 +994,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned short)(u[i]);
+                        y[i] = (SCSUINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 55:
             {
-                char *u = NULL;
-                unsigned char *y = NULL;
+                SCSINT8_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getint8InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -1013,195 +1013,195 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 56:
             {
-                long *y = NULL;
-                unsigned long *u = NULL;
+                SCSINT32_COP *y = NULL;
+                SCSUINT32_COP *u = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getint32OutPortPtrs(block, 1);
                 k = pow(2, 32);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (unsigned long)(k / 2 - 1))
+                    if (u[i] > (SCSUINT32_COP)(k / 2 - 1))
                     {
-                        y[i] = (long)(k / 2 - 1);
+                        y[i] = (SCSINT32_COP)(k / 2 - 1);
                     }
                     else
                     {
-                        y[i] = (long)(u[i]);
+                        y[i] = (SCSINT32_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 57:
             {
-                unsigned long *u = NULL;
-                short *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (unsigned long)(k / 2 - 1))
+                    if (u[i] > (SCSUINT32_COP)(k / 2 - 1))
                     {
-                        y[i] = (short)(k / 2 - 1);
+                        y[i] = (SCSINT16_COP)(k / 2 - 1);
                     }
                     else
                     {
-                        y[i] = (short)(u[i]);
+                        y[i] = (SCSINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 58:
             {
-                unsigned long *u = NULL;
-                char *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (unsigned long)(k / 2 - 1))
+                    if (u[i] > (SCSUINT32_COP)(k / 2 - 1))
                     {
-                        y[i] = (char)(k / 2 - 1);
+                        y[i] = (SCSINT8_COP)(k / 2 - 1);
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 59:
             {
-                unsigned long *u = NULL;
-                unsigned short *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (unsigned long)(k / 2 - 1))
+                    if (u[i] > (SCSUINT32_COP)(k / 2 - 1))
                     {
-                        y[i] = (unsigned short)(k / 2 - 1);
+                        y[i] = (SCSUINT16_COP)(k / 2 - 1);
                     }
                     else
                     {
-                        y[i] = (unsigned short)(u[i]);
+                        y[i] = (SCSUINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 60:
             {
-                unsigned long *u = NULL;
-                unsigned char *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (unsigned long)(k / 2 - 1))
+                    if (u[i] > (SCSUINT32_COP)(k / 2 - 1))
                     {
-                        y[i] = (unsigned char)(k / 2 - 1);
+                        y[i] = (SCSUINT8_COP)(k / 2 - 1);
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 61:
             {
-                unsigned short *u = NULL;
-                short *y = NULL;
+                SCSUINT16_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = Getuint16InPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (unsigned short)(k / 2 - 1))
+                    if (u[i] > (SCSUINT16_COP)(k / 2 - 1))
                     {
-                        y[i] = (short)(k / 2 - 1);
+                        y[i] = (SCSINT16_COP)(k / 2 - 1);
                     }
                     else
                     {
-                        y[i] = (short)(u[i]);
+                        y[i] = (SCSINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 62:
             {
-                unsigned short *u = NULL;
-                char *y = NULL;
+                SCSUINT16_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getuint16InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (unsigned short)(k / 2 - 1))
+                    if (u[i] > (SCSUINT16_COP)(k / 2 - 1))
                     {
-                        y[i] = (char)(k / 2 - 1);
+                        y[i] = (SCSINT8_COP)(k / 2 - 1);
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 63:
             {
-                unsigned short *u = NULL;
-                unsigned char *y = NULL;
+                SCSUINT16_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getuint16InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (unsigned short)(k / 2 - 1))
+                    if (u[i] > (SCSUINT16_COP)(k / 2 - 1))
                     {
-                        y[i] = (unsigned char)k / 2 - 1;
+                        y[i] = (SCSUINT8_COP)k / 2 - 1;
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 64:
             {
-                unsigned char *u = NULL;
-                char *y = NULL;
+                SCSUINT8_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getuint8InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
                 for (i = 0; i < m * n; i++)
                 {
-                    if (u[i] > (unsigned char)(k / 2 - 1))
+                    if (u[i] > (SCSUINT8_COP)(k / 2 - 1))
                     {
-                        y[i] = (char)(k / 2 - 1);
+                        y[i] = (SCSINT8_COP)(k / 2 - 1);
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 65:
             {
-                double *u = NULL;
-                long *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSINT32_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getint32OutPortPtrs(block, 1);
                 k = pow(2, 32);
@@ -1218,15 +1218,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (long)(u[i]);
+                        y[i] = (SCSINT32_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 66:
             {
-                double *u = NULL;
-                short *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -1243,15 +1243,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (short)(u[i]);
+                        y[i] = (SCSINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 67:
             {
-                double *u = NULL;
-                char *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -1268,15 +1268,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 68:
             {
-                double *u = NULL;
-                unsigned long *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 k = pow(2, 32);
@@ -1293,15 +1293,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned long)(u[i]);
+                        y[i] = (SCSUINT32_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 69:
             {
-                double *u = NULL;
-                unsigned short *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -1318,15 +1318,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned short)(u[i]);
+                        y[i] = (SCSUINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 70:
             {
-                double *u = NULL;
-                unsigned char *y = NULL;
+                SCSREAL_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = GetRealInPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -1343,15 +1343,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 71:
             {
-                long *u = NULL;
-                short *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -1368,15 +1368,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (short)(u[i]);
+                        y[i] = (SCSINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 72:
             {
-                long *u = NULL;
-                char *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -1393,15 +1393,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 73:
             {
-                long *u = NULL;
-                unsigned long *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -1417,15 +1417,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned long)(u[i]);
+                        y[i] = (SCSUINT32_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 74:
             {
-                long *u = NULL;
-                unsigned short *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -1442,15 +1442,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned short)(u[i]);
+                        y[i] = (SCSUINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 75:
             {
-                long *u = NULL;
-                unsigned char *y = NULL;
+                SCSINT32_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getint32InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -1467,15 +1467,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 76:
             {
-                short *u = NULL;
-                char *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -1492,15 +1492,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 77:
             {
-                short *u = NULL;
-                unsigned long *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -1516,15 +1516,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned long)u[i];
+                        y[i] = (SCSUINT32_COP)u[i];
                     }
                 }
                 break;
             }
             case 78:
             {
-                short *u = NULL;
-                unsigned short *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -1540,15 +1540,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned short)(u[i]);
+                        y[i] = (SCSUINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 79:
             {
-                short *u = NULL;
-                unsigned char *y = NULL;
+                SCSINT16_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getint16InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -1565,15 +1565,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 80:
             {
-                char *u = NULL;
-                unsigned long *y = NULL;
+                SCSINT8_COP *u = NULL;
+                SCSUINT32_COP *y = NULL;
                 u = Getint8InPortPtrs(block, 1);
                 y = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -1589,15 +1589,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned long)u[i];
+                        y[i] = (SCSUINT32_COP)u[i];
                     }
                 }
                 break;
             }
             case 81:
             {
-                char *u = NULL;
-                unsigned short *y = NULL;
+                SCSINT8_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getint8InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -1613,15 +1613,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned short)(u[i]);
+                        y[i] = (SCSUINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 82:
             {
-                char *u = NULL;
-                unsigned char *y = NULL;
+                SCSINT8_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getint8InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 for (i = 0; i < m * n; i++)
@@ -1637,15 +1637,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 83:
             {
-                long *y = NULL;
-                unsigned long *u = NULL;
+                SCSINT32_COP *y = NULL;
+                SCSUINT32_COP *u = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getint32OutPortPtrs(block, 1);
                 k = pow(2, 32);
@@ -1662,15 +1662,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (long)(u[i]);
+                        y[i] = (SCSINT32_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 84:
             {
-                unsigned long *u = NULL;
-                short *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -1687,15 +1687,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (short)(u[i]);
+                        y[i] = (SCSINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 85:
             {
-                unsigned long *u = NULL;
-                char *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -1712,15 +1712,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 86:
             {
-                unsigned long *u = NULL;
-                unsigned short *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSUINT16_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getuint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -1737,15 +1737,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned short)(u[i]);
+                        y[i] = (SCSUINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 87:
             {
-                unsigned long *u = NULL;
-                unsigned char *y = NULL;
+                SCSUINT32_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getuint32InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -1762,15 +1762,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 88:
             {
-                unsigned short *u = NULL;
-                short *y = NULL;
+                SCSUINT16_COP *u = NULL;
+                SCSINT16_COP *y = NULL;
                 u = Getuint16InPortPtrs(block, 1);
                 y = Getint16OutPortPtrs(block, 1);
                 k = pow(2, 16);
@@ -1787,15 +1787,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (short)(u[i]);
+                        y[i] = (SCSINT16_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 89:
             {
-                unsigned short *u = NULL;
-                char *y = NULL;
+                SCSUINT16_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getuint16InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -1812,15 +1812,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 90:
             {
-                unsigned short *u = NULL;
-                unsigned char *y = NULL;
+                SCSUINT16_COP *u = NULL;
+                SCSUINT8_COP *y = NULL;
                 u = Getuint16InPortPtrs(block, 1);
                 y = Getuint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -1837,15 +1837,15 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (unsigned char)(u[i]);
+                        y[i] = (SCSUINT8_COP)(u[i]);
                     }
                 }
                 break;
             }
             case 91:
             {
-                unsigned char *u = NULL;
-                char *y = NULL;
+                SCSUINT8_COP *u = NULL;
+                SCSINT8_COP *y = NULL;
                 u = Getuint8InPortPtrs(block, 1);
                 y = Getint8OutPortPtrs(block, 1);
                 k = pow(2, 8);
@@ -1862,7 +1862,7 @@ SCICOS_BLOCKS_IMPEXP void convert(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y[i] = (char)(u[i]);
+                        y[i] = (SCSINT8_COP)(u[i]);
                     }
                 }
                 break;
index 97cde25..228b3c1 100644 (file)
@@ -30,7 +30,7 @@ SCICOS_BLOCKS_IMPEXP void delay4_i32(scicos_block *block, int flag)
        Scicos block simulator
        Ouputs nx*dt delayed input */
 
-    long *y = NULL, *u = NULL, *oz = NULL;
+    SCSINT32_COP *y = NULL, *u = NULL, *oz = NULL;
     int nz = 0, mz = 0;
 
 
index 5196974..8e11255 100644 (file)
@@ -30,7 +30,7 @@ SCICOS_BLOCKS_IMPEXP void delay4_ui32(scicos_block *block, int flag)
        Scicos block simulator
        Ouputs nx*dt delayed input */
 
-    unsigned long *y = NULL, *u = NULL, *oz = NULL;
+    SCSUINT32_COP *y = NULL, *u = NULL, *oz = NULL;
     int nz = 0, mz = 0;
     int i = 0;
 
index 021d45d..b30d167 100644 (file)
@@ -40,75 +40,75 @@ SCICOS_BLOCKS_IMPEXP void matbyscal(scicos_block *block, int flag)
         {
             case SCSREAL_N :
             {
-                double *u1 = GetRealInPortPtrs(block, 1);
-                double *u2 = GetRealInPortPtrs(block, 2);
-                double *y1 = GetRealOutPortPtrs(block, 1);
+                SCSREAL_COP *u1 = GetRealInPortPtrs(block, 1);
+                SCSREAL_COP *u2 = GetRealInPortPtrs(block, 2);
+                SCSREAL_COP *y1 = GetRealOutPortPtrs(block, 1);
                 matbscal_n(y1, u1, u2, mu, nu);
                 break;
             }
 
             case SCSINT32_N :
             {
-                long *u1 = Getint32InPortPtrs(block, 1);
-                long *u2 = Getint32InPortPtrs(block, 2);
-                long *y1 = Getint32OutPortPtrs(block, 1);
+                SCSINT32_COP *u1 = Getint32InPortPtrs(block, 1);
+                SCSINT32_COP *u2 = Getint32InPortPtrs(block, 2);
+                SCSINT32_COP *y1 = Getint32OutPortPtrs(block, 1);
                 matbscal_n(y1, u1, u2, mu, nu);
                 break;
             }
 
             case SCSINT16_N :
             {
-                short *u1 = Getint16InPortPtrs(block, 1);
-                short *u2 = Getint16InPortPtrs(block, 2);
-                short *y1 = Getint16OutPortPtrs(block, 1);
+                SCSINT16_COP *u1 = Getint16InPortPtrs(block, 1);
+                SCSINT16_COP *u2 = Getint16InPortPtrs(block, 2);
+                SCSINT16_COP *y1 = Getint16OutPortPtrs(block, 1);
                 matbscal_n(y1, u1, u2, mu, nu);
                 break;
             }
 
             case SCSINT8_N :
             {
-                char *u1 = Getint8InPortPtrs(block, 1);
-                char *u2 = Getint8InPortPtrs(block, 2);
-                char *y1 = Getint8OutPortPtrs(block, 1);
+                SCSINT8_COP *u1 = Getint8InPortPtrs(block, 1);
+                SCSINT8_COP *u2 = Getint8InPortPtrs(block, 2);
+                SCSINT8_COP *y1 = Getint8OutPortPtrs(block, 1);
                 matbscal_n(y1, u1, u2, mu, nu);
                 break;
             }
 
             case SCSUINT32_N :
             {
-                unsigned long *u1 = Getuint32InPortPtrs(block, 1);
-                unsigned long *u2 = Getuint32InPortPtrs(block, 2);
-                unsigned long *y1 = Getuint32OutPortPtrs(block, 1);
+                SCSUINT32_COP *u1 = Getuint32InPortPtrs(block, 1);
+                SCSUINT32_COP *u2 = Getuint32InPortPtrs(block, 2);
+                SCSUINT32_COP *y1 = Getuint32OutPortPtrs(block, 1);
                 matbscal_n(y1, u1, u2, mu, nu);
                 break;
             }
 
             case SCSUINT16_N :
             {
-                unsigned short *u1 = Getuint16InPortPtrs(block, 1);
-                unsigned short *u2 = Getuint16InPortPtrs(block, 2);
-                unsigned short *y1 = Getuint16OutPortPtrs(block, 1);
+                SCSUINT16_COP *u1 = Getuint16InPortPtrs(block, 1);
+                SCSUINT16_COP *u2 = Getuint16InPortPtrs(block, 2);
+                SCSUINT16_COP *y1 = Getuint16OutPortPtrs(block, 1);
                 matbscal_n(y1, u1, u2, mu, nu);
                 break;
             }
 
             case SCSUINT8_N :
             {
-                unsigned char *u1 = Getuint8InPortPtrs(block, 1);
-                unsigned char *u2 = Getuint8InPortPtrs(block, 2);
-                unsigned char *y1 = Getuint8OutPortPtrs(block, 1);
+                SCSUINT8_COP *u1 = Getuint8InPortPtrs(block, 1);
+                SCSUINT8_COP *u2 = Getuint8InPortPtrs(block, 2);
+                SCSUINT8_COP *y1 = Getuint8OutPortPtrs(block, 1);
                 matbscal_n(y1, u1, u2, mu, nu);
                 break;
             }
 
             case SCSCOMPLEX_N :
             {
-                double *u1r = GetRealInPortPtrs(block, 1);
-                double *u2r = GetRealInPortPtrs(block, 2);
-                double *y1r = GetRealOutPortPtrs(block, 1);
-                double *u1i = GetImagInPortPtrs(block, 1);
-                double *u2i = GetImagInPortPtrs(block, 2);
-                double *y1i = GetImagOutPortPtrs(block, 1);
+                SCSREAL_COP *u1r = GetRealInPortPtrs(block, 1);
+                SCSREAL_COP *u2r = GetRealInPortPtrs(block, 2);
+                SCSREAL_COP *y1r = GetRealOutPortPtrs(block, 1);
+                SCSREAL_COP *u1i = GetImagInPortPtrs(block, 1);
+                SCSREAL_COP *u2i = GetImagInPortPtrs(block, 2);
+                SCSREAL_COP *y1i = GetImagOutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     y1r[i] = (u1r[i] * u2r[0]) - (u1i[i] * u2i[0]);
index 99dd0cb..e7d7a8f 100644 (file)
@@ -43,9 +43,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
             case SCSINT32_N :
             {
 
-                long *u1 = Getint32InPortPtrs(block, 1);
-                long *u2 = Getint32InPortPtrs(block, 2);
-                long *y1 = Getint32OutPortPtrs(block, 1);
+                SCSINT32_COP *u1 = Getint32InPortPtrs(block, 1);
+                SCSINT32_COP *u2 = Getint32InPortPtrs(block, 2);
+                SCSINT32_COP *y1 = Getint32OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -57,7 +57,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y1[i] = (long)v;
+                        y1[i] = (SCSUINT32_COP)v;
                     }
                 }
                 break;
@@ -66,9 +66,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
             case SCSINT16_N :
             {
 
-                short *u1 = Getint16InPortPtrs(block, 1);
-                short *u2 = Getint16InPortPtrs(block, 2);
-                short *y1 = Getint16OutPortPtrs(block, 1);
+                SCSINT16_COP *u1 = Getint16InPortPtrs(block, 1);
+                SCSINT16_COP *u2 = Getint16InPortPtrs(block, 2);
+                SCSINT16_COP *y1 = Getint16OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -80,7 +80,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y1[i] = (short)v;
+                        y1[i] = (SCSINT16_COP)v;
                     }
                 }
                 break;
@@ -89,9 +89,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
             case SCSINT8_N :
             {
 
-                char *u1 = Getint8InPortPtrs(block, 1);
-                char *u2 = Getint8InPortPtrs(block, 2);
-                char *y1 = Getint8OutPortPtrs(block, 1);
+                SCSINT8_COP *u1 = Getint8InPortPtrs(block, 1);
+                SCSINT8_COP *u2 = Getint8InPortPtrs(block, 2);
+                SCSINT8_COP *y1 = Getint8OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -103,7 +103,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y1[i] = (char)v;
+                        y1[i] = (SCSINT8_COP)v;
                     }
                 }
                 break;
@@ -112,9 +112,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
             case SCSUINT32_N :
             {
 
-                unsigned long *u1 = Getuint32InPortPtrs(block, 1);
-                unsigned long *u2 = Getuint32InPortPtrs(block, 2);
-                unsigned long *y1 = Getuint32OutPortPtrs(block, 1);
+                SCSUINT32_COP *u1 = Getuint32InPortPtrs(block, 1);
+                SCSUINT32_COP *u2 = Getuint32InPortPtrs(block, 2);
+                SCSUINT32_COP *y1 = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -126,7 +126,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y1[i] = (unsigned long)v;
+                        y1[i] = (SCSUINT32_COP)v;
                     }
                 }
                 break;
@@ -135,9 +135,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
             case SCSUINT16_N :
             {
 
-                unsigned short *u1 = Getuint16InPortPtrs(block, 1);
-                unsigned short *u2 = Getuint16InPortPtrs(block, 2);
-                unsigned short *y1 = Getuint16OutPortPtrs(block, 1);
+                SCSUINT16_COP *u1 = Getuint16InPortPtrs(block, 1);
+                SCSUINT16_COP *u2 = Getuint16InPortPtrs(block, 2);
+                SCSUINT16_COP *y1 = Getuint16OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -149,7 +149,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y1[i] = (unsigned short)v;
+                        y1[i] = (SCSUINT16_COP)v;
                     }
                 }
                 break;
@@ -158,9 +158,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
             case SCSUINT8_N :
             {
 
-                unsigned char *u1 = Getuint8InPortPtrs(block, 1);
-                unsigned char *u2 = Getuint8InPortPtrs(block, 2);
-                unsigned char *y1 = Getuint8OutPortPtrs(block, 1);
+                SCSUINT8_COP *u1 = Getuint8InPortPtrs(block, 1);
+                SCSUINT8_COP *u2 = Getuint8InPortPtrs(block, 2);
+                SCSUINT8_COP *y1 = Getuint8OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -172,7 +172,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_e(scicos_block *block, int flag)
                     }
                     else
                     {
-                        y1[i] = (unsigned char)v;
+                        y1[i] = (SCSUINT8_COP)v;
                     }
                 }
                 break;
index 71a94b8..42ef815 100644 (file)
@@ -39,18 +39,18 @@ SCICOS_BLOCKS_IMPEXP void matmul2_m(scicos_block *block, int flag)
             case SCSREAL_N :
             {
 
-                double *u1 = GetRealInPortPtrs(block, 1);
-                double *u2 = GetRealInPortPtrs(block, 2);
-                double *y1 = GetRealOutPortPtrs(block, 1);
+                SCSREAL_COP *u1 = GetRealInPortPtrs(block, 1);
+                SCSREAL_COP *u2 = GetRealInPortPtrs(block, 2);
+                SCSREAL_COP *y1 = GetRealOutPortPtrs(block, 1);
                 matmul2(y1, u1, u2, mu, nu);
                 break;
             }
 
             case SCSINT32_N :
             {
-                long *u1 = Getint32InPortPtrs(block, 1);
-                long *u2 = Getint32InPortPtrs(block, 2);
-                long *y1 = Getint32OutPortPtrs(block, 1);
+                SCSINT32_COP *u1 = Getint32InPortPtrs(block, 1);
+                SCSINT32_COP *u2 = Getint32InPortPtrs(block, 2);
+                SCSINT32_COP *y1 = Getint32OutPortPtrs(block, 1);
                 matmul2(y1, u1, u2, mu, nu);
                 break;
             }
@@ -58,9 +58,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_m(scicos_block *block, int flag)
             case SCSINT16_N :
             {
 
-                short *u1 = Getint16InPortPtrs(block, 1);
-                short *u2 = Getint16InPortPtrs(block, 2);
-                short *y1 = Getint16OutPortPtrs(block, 1);
+                SCSINT16_COP *u1 = Getint16InPortPtrs(block, 1);
+                SCSINT16_COP *u2 = Getint16InPortPtrs(block, 2);
+                SCSINT16_COP *y1 = Getint16OutPortPtrs(block, 1);
                 matmul2(y1, u1, u2, mu, nu);
                 break;
             }
@@ -68,9 +68,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_m(scicos_block *block, int flag)
             case SCSINT8_N :
             {
 
-                char *u1 = Getint8InPortPtrs(block, 1);
-                char *u2 = Getint8InPortPtrs(block, 2);
-                char *y1 = Getint8OutPortPtrs(block, 1);
+                SCSINT8_COP *u1 = Getint8InPortPtrs(block, 1);
+                SCSINT8_COP *u2 = Getint8InPortPtrs(block, 2);
+                SCSINT8_COP *y1 = Getint8OutPortPtrs(block, 1);
                 matmul2(y1, u1, u2, mu, nu);
                 break;
             }
@@ -78,9 +78,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_m(scicos_block *block, int flag)
             case SCSUINT32_N :
             {
 
-                unsigned long *u1 = Getuint32InPortPtrs(block, 1);
-                unsigned long *u2 = Getuint32InPortPtrs(block, 2);
-                unsigned long *y1 = Getuint32OutPortPtrs(block, 1);
+                SCSUINT32_COP *u1 = Getuint32InPortPtrs(block, 1);
+                SCSUINT32_COP *u2 = Getuint32InPortPtrs(block, 2);
+                SCSUINT32_COP *y1 = Getuint32OutPortPtrs(block, 1);
                 matmul2(y1, u1, u2, mu, nu);
                 break;
             }
@@ -88,9 +88,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_m(scicos_block *block, int flag)
             case SCSUINT16_N :
             {
 
-                unsigned short *u1 = Getuint16InPortPtrs(block, 1);
-                unsigned short *u2 = Getuint16InPortPtrs(block, 2);
-                unsigned short *y1 = Getuint16OutPortPtrs(block, 1);
+                SCSUINT16_COP *u1 = Getuint16InPortPtrs(block, 1);
+                SCSUINT16_COP *u2 = Getuint16InPortPtrs(block, 2);
+                SCSUINT16_COP *y1 = Getuint16OutPortPtrs(block, 1);
                 matmul2(y1, u1, u2, mu, nu);
                 break;
             }
@@ -98,21 +98,21 @@ SCICOS_BLOCKS_IMPEXP void matmul2_m(scicos_block *block, int flag)
             case SCSUINT8_N :
             {
 
-                unsigned char *u1 = Getuint8InPortPtrs(block, 1);
-                unsigned char *u2 = Getuint8InPortPtrs(block, 2);
-                unsigned char *y1 = Getuint8OutPortPtrs(block, 1);
+                SCSUINT8_COP *u1 = Getuint8InPortPtrs(block, 1);
+                SCSUINT8_COP *u2 = Getuint8InPortPtrs(block, 2);
+                SCSUINT8_COP *y1 = Getuint8OutPortPtrs(block, 1);
                 matmul2(y1, u1, u2, mu, nu);
                 break;
             }
 
             case SCSCOMPLEX_N :
             {
-                double *u1r = GetRealInPortPtrs(block, 1);
-                double *u2r = GetRealInPortPtrs(block, 2);
-                double *y1r = GetRealOutPortPtrs(block, 1);
-                double *u1i = GetImagInPortPtrs(block, 1);
-                double *u2i = GetImagInPortPtrs(block, 2);
-                double *y1i = GetImagOutPortPtrs(block, 1);
+                SCSREAL_COP *u1r = GetRealInPortPtrs(block, 1);
+                SCSREAL_COP *u2r = GetRealInPortPtrs(block, 2);
+                SCSREAL_COP *y1r = GetRealOutPortPtrs(block, 1);
+                SCSREAL_COP *u1i = GetImagInPortPtrs(block, 1);
+                SCSREAL_COP *u2i = GetImagInPortPtrs(block, 2);
+                SCSREAL_COP *y1i = GetImagOutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     y1r[i] = (u1r[i] * u2r[i]) - (u1i[i] * u2i[i]);
index 988acbc..330717e 100644 (file)
@@ -40,9 +40,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
             case SCSINT32_N :
             {
 
-                long *u1 = Getint32InPortPtrs(block, 1);
-                long *u2 = Getint32InPortPtrs(block, 2);
-                long *y1 = Getint32OutPortPtrs(block, 1);
+                SCSINT32_COP *u1 = Getint32InPortPtrs(block, 1);
+                SCSINT32_COP *u2 = Getint32InPortPtrs(block, 2);
+                SCSINT32_COP *y1 = Getint32OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -54,7 +54,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
                     {
                         v = rpar[1];
                     }
-                    y1[i] = (long)v;
+                    y1[i] = (SCSINT32_COP)v;
                 }
                 break;
             }
@@ -62,9 +62,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
             case SCSINT16_N :
             {
 
-                short *u1 = Getint16InPortPtrs(block, 1);
-                short *u2 = Getint16InPortPtrs(block, 2);
-                short *y1 = Getint16OutPortPtrs(block, 1);
+                SCSINT16_COP *u1 = Getint16InPortPtrs(block, 1);
+                SCSINT16_COP *u2 = Getint16InPortPtrs(block, 2);
+                SCSINT16_COP *y1 = Getint16OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -76,7 +76,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
                     {
                         v = rpar[1];
                     }
-                    y1[i] = (short)v;
+                    y1[i] = (SCSINT16_COP)v;
                 }
                 break;
             }
@@ -84,9 +84,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
             case SCSINT8_N :
             {
 
-                char *u1 = Getint8InPortPtrs(block, 1);
-                char *u2 = Getint8InPortPtrs(block, 2);
-                char *y1 = Getint8OutPortPtrs(block, 1);
+                SCSINT8_COP *u1 = Getint8InPortPtrs(block, 1);
+                SCSINT8_COP *u2 = Getint8InPortPtrs(block, 2);
+                SCSINT8_COP *y1 = Getint8OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -98,7 +98,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
                     {
                         v = rpar[1];
                     }
-                    y1[i] = (char)v;
+                    y1[i] = (SCSINT8_COP)v;
                 }
                 break;
             }
@@ -106,9 +106,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
             case SCSUINT32_N :
             {
 
-                unsigned long *u1 = Getuint32InPortPtrs(block, 1);
-                unsigned long *u2 = Getuint32InPortPtrs(block, 2);
-                unsigned long *y1 = Getuint32OutPortPtrs(block, 1);
+                SCSUINT32_COP *u1 = Getuint32InPortPtrs(block, 1);
+                SCSUINT32_COP *u2 = Getuint32InPortPtrs(block, 2);
+                SCSUINT32_COP *y1 = Getuint32OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -120,7 +120,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
                     {
                         v = rpar[1];
                     }
-                    y1[i] = (unsigned long)v;
+                    y1[i] = (SCSUINT32_COP)v;
                 }
                 break;
             }
@@ -128,9 +128,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
             case SCSUINT16_N :
             {
 
-                unsigned short *u1 = Getuint16InPortPtrs(block, 1);
-                unsigned short *u2 = Getuint16InPortPtrs(block, 2);
-                unsigned short *y1 = Getuint16OutPortPtrs(block, 1);
+                SCSUINT16_COP *u1 = Getuint16InPortPtrs(block, 1);
+                SCSUINT16_COP *u2 = Getuint16InPortPtrs(block, 2);
+                SCSUINT16_COP *y1 = Getuint16OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -142,7 +142,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
                     {
                         v = rpar[1];
                     }
-                    y1[i] = (unsigned short)v;
+                    y1[i] = (SCSUINT16_COP)v;
                 }
                 break;
             }
@@ -150,9 +150,9 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
             case SCSUINT8_N :
             {
 
-                unsigned char *u1 = Getuint8InPortPtrs(block, 1);
-                unsigned char *u2 = Getuint8InPortPtrs(block, 2);
-                unsigned char *y1 = Getuint8OutPortPtrs(block, 1);
+                SCSUINT8_COP *u1 = Getuint8InPortPtrs(block, 1);
+                SCSUINT8_COP *u2 = Getuint8InPortPtrs(block, 2);
+                SCSUINT8_COP *y1 = Getuint8OutPortPtrs(block, 1);
                 for (i = 0; i < mu * nu; i++)
                 {
                     v = (double)u1[i] * (double)u2[i];
@@ -164,7 +164,7 @@ SCICOS_BLOCKS_IMPEXP void matmul2_s(scicos_block *block, int flag)
                     {
                         v = rpar[1];
                     }
-                    y1[i] = (unsigned char)v;
+                    y1[i] = (SCSUINT8_COP)v;
                 }
                 break;
             }
index ce2f8ff..edbbbb8 100644 (file)
@@ -34,11 +34,11 @@ SCICOS_BLOCKS_IMPEXP void summation_i32e(scicos_block *block, int flag)
     {
         int j = 0, k = 0;
         int nu = 0, mu = 0, nin = 0;
-        long *y = NULL;
+        SCSINT32_COP *y = NULL;
         int *ipar = NULL;
         double v = 0., l = 0.;
         double *rpar = NULL;
-        long *u = NULL;
+        SCSINT32_COP *u = NULL;
 
         y = Getint32OutPortPtrs(block, 1);
         nu = GetInPortRows(block, 1);
@@ -64,7 +64,7 @@ SCICOS_BLOCKS_IMPEXP void summation_i32e(scicos_block *block, int flag)
             }
             else
             {
-                y[0] = (long)v;
+                y[0] = (SCSINT32_COP)v;
             }
         }
         else
@@ -92,7 +92,7 @@ SCICOS_BLOCKS_IMPEXP void summation_i32e(scicos_block *block, int flag)
                 }
                 else
                 {
-                    y[j] = (long)v;
+                    y[j] = (SCSINT32_COP)v;
                 }
             }
         }
index c1afe07..edf3fe2 100644 (file)
@@ -31,10 +31,10 @@ SCICOS_BLOCKS_IMPEXP void summation_i32n(scicos_block *block, int flag)
     {
         int j = 0, k = 0;
         int nu = 0, mu = 0, nin = 0;
-        long *y = NULL;
+        SCSINT32_COP *y = NULL;
         int *ipar = NULL;
         double *rpar = NULL;
-        long *u = NULL;
+        SCSINT32_COP *u = NULL;
 
         y = Getint32OutPortPtrs(block, 1);
         nu = GetInPortRows(block, 1);
index a9c61fc..adf514f 100644 (file)
@@ -31,11 +31,11 @@ SCICOS_BLOCKS_IMPEXP void summation_i32s(scicos_block *block, int flag)
     {
         int j = 0, k = 0;
         int nu = 0, mu = 0, nin = 0;
-        long *y = NULL;
+        SCSINT32_COP *y = NULL;
         int *ipar = NULL;
         double v = 0., l = 0.;
         double *rpar = NULL;
-        long *u = NULL;
+        SCSINT32_COP *u = NULL;
 
         y = Getint32OutPortPtrs(block, 1);
         nu = GetInPortRows(block, 1);
@@ -61,7 +61,7 @@ SCICOS_BLOCKS_IMPEXP void summation_i32s(scicos_block *block, int flag)
             {
                 v = -l;
             }
-            y[0] = (long)v;
+            y[0] = (SCSINT32_COP)v;
         }
         else
         {
@@ -88,7 +88,7 @@ SCICOS_BLOCKS_IMPEXP void summation_i32s(scicos_block *block, int flag)
                 {
                     v = -l;
                 }
-                y[j] = (long)v;
+                y[j] = (SCSINT32_COP)v;
             }
         }
     }
index 22cd9da..44ae41f 100644 (file)
@@ -34,11 +34,11 @@ SCICOS_BLOCKS_IMPEXP void summation_ui32e(scicos_block *block, int flag)
     {
         int j = 0, k = 0;
         int nu = 0, mu = 0, nin = 0;
-        unsigned long *y = NULL;
+        SCSUINT32_COP *y = NULL;
         int *ipar = NULL;
         double v = 0., l = 0.;
         double *rpar = NULL;
-        unsigned long *u = NULL;
+        SCSUINT32_COP *u = NULL;
 
         y = Getuint32OutPortPtrs(block, 1);
         nu = GetInPortRows(block, 1);
@@ -64,7 +64,7 @@ SCICOS_BLOCKS_IMPEXP void summation_ui32e(scicos_block *block, int flag)
             }
             else
             {
-                y[0] = (unsigned long)v;
+                y[0] = (SCSUINT32_COP)v;
             }
         }
         else
@@ -92,7 +92,7 @@ SCICOS_BLOCKS_IMPEXP void summation_ui32e(scicos_block *block, int flag)
                 }
                 else
                 {
-                    y[j] = (unsigned long)v;
+                    y[j] = (SCSUINT32_COP)v;
                 }
             }
         }
index 4e3e81e..637132b 100644 (file)
@@ -31,10 +31,10 @@ SCICOS_BLOCKS_IMPEXP void summation_ui32n(scicos_block *block, int flag)
     {
         int j = 0, k = 0;
         int nu = 0, mu = 0, nin = 0;
-        unsigned long *y = NULL;
+        SCSUINT32_COP *y = NULL;
         int *ipar = NULL;
         double *rpar = NULL;
-        unsigned long *u = NULL;
+        SCSUINT32_COP *u = NULL;
 
         y = Getuint32OutPortPtrs(block, 1);
         nu = GetInPortRows(block, 1);
index 779c895..606ed88 100644 (file)
@@ -31,11 +31,11 @@ SCICOS_BLOCKS_IMPEXP void summation_ui32s(scicos_block *block, int flag)
     {
         int j = 0, k = 0;
         int nu = 0, mu = 0, nin = 0;
-        unsigned long *y = NULL;
+        SCSUINT32_COP *y = NULL;
         int *ipar = NULL;
         double v = 0., l = 0.;
         double *rpar = NULL;
-        unsigned long *u = NULL;
+        SCSUINT32_COP *u = NULL;
 
         y = Getuint32OutPortPtrs(block, 1);
         nu = GetInPortRows(block, 1);
@@ -61,7 +61,7 @@ SCICOS_BLOCKS_IMPEXP void summation_ui32s(scicos_block *block, int flag)
             {
                 v = 0;
             }
-            y[0] = (unsigned long)v;
+            y[0] = (SCSUINT32_COP)v;
         }
         else
         {
@@ -88,7 +88,7 @@ SCICOS_BLOCKS_IMPEXP void summation_ui32s(scicos_block *block, int flag)
                 {
                     v = 0;
                 }
-                y[j] = (unsigned long)v;
+                y[j] = (SCSUINT32_COP)v;
             }
         }
     }