[ZARCH] fix a bug in max/min functions

Author: mtk-i

kernel/zarch/camax.c

@@ -237,7 +237,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         i++;
 
         BLASLONG n1 = (n - 1) & -4;
-        while (i < n1) {
+        while ((i - 1) < n1) {
 
             if (CABS1(x,ix) > maxf) {
                 maxf = CABS1(x,ix);

kernel/zarch/camin.c

@@ -237,7 +237,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         i++;
 
         BLASLONG n1 = (n - 1) & -4;
-        while (i < n1) {
+        while ((i - 1) < n1) {
 
             if (CABS1(x,ix) < minf) {
                 minf = CABS1(x,ix);

kernel/zarch/damax.c

@@ -172,7 +172,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         j++;
 
         BLASLONG n1 = (n - 1) & -4;
-        while (j < n1) {
+        while ((j - 1) < n1) {
 
             if (ABS(x[i]) > maxf) {
                 maxf = ABS(x[i]);

kernel/zarch/damin.c

@@ -172,7 +172,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         j++;
 
         BLASLONG n1 = (n - 1) & -4;
-        while (j < n1) {
+        while ((j - 1) < n1) {
 
             if (ABS(x[i]) < minf) {
                 minf = ABS(x[i]);

kernel/zarch/dmax.c

@@ -148,7 +148,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         j++;
 
         BLASLONG n1 = (n - 1) & -4;
-        while (j < n1) {
+        while ((j - 1) < n1) {
 
             if (x[i] > maxf) {
                 maxf = x[i];

kernel/zarch/dmin.c

@@ -148,7 +148,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         j++;
 
         BLASLONG n1 = (n - 1) & -4;
-        while (j < n1) {
+        while ((j - 1) < n1) {
 
             if (x[i] < minf) {
                 minf = x[i];

kernel/zarch/idamax.c

@@ -226,7 +226,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         j++;
 
         BLASLONG n1 = (n - 1) & -4;
-        while (j < n1) {
+        while ((j - 1) < n1) {
 
             if (ABS(x[i]) > maxf) {
                 max = j;

kernel/zarch/idamin.c

@@ -226,7 +226,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         j++;
 
         BLASLONG n1 = (n - 1) & -4;
-        while (j < n1) {
+        while ((j - 1) < n1) {
 
             if (ABS(x[i]) < minf) {
                 min = j;

kernel/zarch/idmax.c

@@ -202,7 +202,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         j++;
 
         BLASLONG n1 = (n - 1) & -4;
-        while (j < n1) {
+        while ((j - 1) < n1) {
 
             if (x[i] > maxf) {
                 max = j;

kernel/zarch/idmin.c

@@ -202,7 +202,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         j++;
 
         BLASLONG n1 = (n - 1) & -4;
-        while (j < n1) {
+        while ((j - 1) < n1) {
 
             if (x[i] < minf) {
                 min = j;