fix loop condition for incx < 0

martin-frbg · web-flow · commit 6b89e1f1d7f3 · 2024-03-12T15:49:41.000+01:00
diff --git a/kernel/riscv64/znrm2.c b/kernel/riscv64/znrm2.c
@@ -62,7 +62,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
 	inc_x2 = 2 * inc_x;
 
 	n *= inc_x2;
-	while(i < n)
+	while(abs(i) < abs(n))
 	{
 
 		if ( x[i] != 0.0 )

Original file line number	Diff line number	Diff line change
`@@ -62,7 +62,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)`
`62`	`62`	`inc_x2 = 2 * inc_x;`
`63`	`63`
`64`	`64`	`n *= inc_x2;`
`65`		`- while(i < n)`
	`65`	`+ while(abs(i) < abs(n))`
`66`	`66`	`{`
`67`	`67`
`68`	`68`	`if ( x[i] != 0.0 )`