fix loop condition for incx < 0

martin-frbg · web-flow · commit f747aedb52f7 · 2024-03-12T15:47:17.000+01:00
diff --git a/kernel/mips/znrm2.c b/kernel/mips/znrm2.c
@@ -53,7 +53,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
`@@ -53,7 +53,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)`
`53`	`53`	`inc_x2 = 2 * inc_x;`
`54`	`54`
`55`	`55`	`n *= inc_x2;`
`56`		`- while(i < n)`
	`56`	`+ while(abs(i) < abs(n))`
`57`	`57`	`{`
`58`	`58`
`59`	`59`	`if ( x[i] != 0.0 )`