fix loop condition for incx < 0

martin-frbg · web-flow · commit 20016a0096fb · 2024-03-12T15:48:55.000+01:00
diff --git a/kernel/riscv64/nrm2.c b/kernel/riscv64/nrm2.c
@@ -61,7 +61,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
 	if ( n == 1 ) return( ABS(x[0]) );
 
 	n *= inc_x;
-	while(i < n)
+	while(abs(i) < abs(n))
 	{
 
 		if ( x[i] != 0.0 )

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