Update cscal.c

martin-frbg · web-flow · commit 35256671dee5 · 2025-05-25T15:28:05.000+02:00
diff --git a/kernel/zarch/cscal.c b/kernel/zarch/cscal.c
@@ -239,7 +239,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
           x[i] = 0.0;
           x[i + 1] = 0.0;
 	  }
-	  if (isnan(x[i+incx]) || isinf(x[i+incx]) || isnan(x[i+1+incx])) {
+	  if (isnan(x[i+inc_x]) || isinf(x[i+inc_x]) || isnan(x[i+1+inc_x])) {
           x[i + inc_x] = NAN;
           x[i + 1 + inc_x] = NAN;
 	  } else {

Original file line number	Diff line number	Diff line change
`@@ -239,7 +239,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,`
`239`	`239`	`x[i] = 0.0;`
`240`	`240`	`x[i + 1] = 0.0;`
`241`	`241`	`}`
`242`		`- if (isnan(x[i+incx]) \|\| isinf(x[i+incx]) \|\| isnan(x[i+1+incx])) {`
	`242`	`+ if (isnan(x[i+inc_x]) \|\| isinf(x[i+inc_x]) \|\| isnan(x[i+1+inc_x])) {`
`243`	`243`	`x[i + inc_x] = NAN;`
`244`	`244`	`x[i + 1 + inc_x] = NAN;`
`245`	`245`	`} else {`