[ZARCH] Fix bug in max/min functions

mtk-i · web-flow · commit fcd814a8d292 · 2019-01-29T17:59:38.000+02:00
diff --git a/kernel/zarch/camax.c b/kernel/zarch/camax.c
@@ -198,7 +198,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         if (n1 > 0) {
 
             maxf = camax_kernel_32(n1, x);
-
+            ix = n1 * 2;
             i = n1;
         }
         else
diff --git a/kernel/zarch/camin.c b/kernel/zarch/camin.c
@@ -198,7 +198,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         if (n1 > 0) {
 
             minf = camin_kernel_32(n1, x);
-
+            ix = n1 * 2;
             i = n1;
         }
         else
diff --git a/kernel/zarch/icamax.c b/kernel/zarch/icamax.c
@@ -280,7 +280,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
       if (n1 > 0) {
 
             max = icamax_kernel_32(n1, x, &maxf);
-
+            ix = n1 * 2;
             i = n1;
       }
       else
diff --git a/kernel/zarch/icamin.c b/kernel/zarch/icamin.c
@@ -280,7 +280,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
       if (n1 > 0) {
 
             min = icamin_kernel_32(n1, x, &minf);
-
+            ix = n1 * 2;
             i = n1;
       }
       else
diff --git a/kernel/zarch/izamax.c b/kernel/zarch/izamax.c
@@ -199,7 +199,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
       if (n1 > 0) {
 
             max = izamax_kernel_16(n1, x, &maxf);
-
+            ix = n1 * 2;
             i = n1;
       }
       else
diff --git a/kernel/zarch/izamin.c b/kernel/zarch/izamin.c
@@ -199,7 +199,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
       if (n1 > 0) {
 
             min = izamin_kernel_16(n1, x, &minf);
-
+            ix = n1 * 2;
             i = n1;
       }
       else
diff --git a/kernel/zarch/zamax.c b/kernel/zarch/zamax.c
@@ -152,7 +152,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         if (n1 > 0) {
 
             maxf = zamax_kernel_16(n1, x);
-
+            ix = n1 * 2;
             i = n1;
         }
         else
diff --git a/kernel/zarch/zamin.c b/kernel/zarch/zamin.c
@@ -152,7 +152,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         if (n1 > 0) {
 
             minf = zamin_kernel_16(n1, x);
-
+            ix = n1 * 2;
             i = n1;
         }
         else

Original file line number	Diff line number	Diff line change
`@@ -198,7 +198,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {`
`198`	`198`	`if (n1 > 0) {`
`199`	`199`
`200`	`200`	`maxf = camax_kernel_32(n1, x);`
`201`		`-`
	`201`	`+ ix = n1 * 2;`
`202`	`202`	`i = n1;`
`203`	`203`	`}`
`204`	`204`	`else`
Original file line number	Diff line number	Diff line change
`@@ -280,7 +280,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)`
`280`	`280`	`if (n1 > 0) {`
`281`	`281`
`282`	`282`	`max = icamax_kernel_32(n1, x, &maxf);`
`283`		`-`
	`283`	`+ ix = n1 * 2;`
`284`	`284`	`i = n1;`
`285`	`285`	`}`
`286`	`286`	`else`
Original file line number	Diff line number	Diff line change
`@@ -199,7 +199,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)`
`199`	`199`	`if (n1 > 0) {`
`200`	`200`
`201`	`201`	`max = izamax_kernel_16(n1, x, &maxf);`
`202`		`-`
	`202`	`+ ix = n1 * 2;`
`203`	`203`	`i = n1;`
`204`	`204`	`}`
`205`	`205`	`else`
Original file line number	Diff line number	Diff line change
`@@ -152,7 +152,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {`
`152`	`152`	`if (n1 > 0) {`
`153`	`153`
`154`	`154`	`maxf = zamax_kernel_16(n1, x);`
`155`		`-`
	`155`	`+ ix = n1 * 2;`
`156`	`156`	`i = n1;`
`157`	`157`	`}`
`158`	`158`	`else`