handle incx < 0

martin-frbg · web-flow · commit dee8557d58fd · 2024-03-12T20:40:29.000+01:00
diff --git a/kernel/riscv64/znrm2_vector.c b/kernel/riscv64/znrm2_vector.c
@@ -96,7 +96,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
 {
         BLASLONG i=0;
 
-	if (n <= 0 || inc_x <= 0) return(0.0);
+	if (n <= 0 || inc_x == 0) return(0.0);
 
         FLOAT_V_T v_ssq, v_scale, v0, v1, v_zero;
         unsigned int gvl = 0;
@@ -176,7 +176,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
                         }
 
                         i += inc_x*2;
-                }while(i<n);
+                }while(abs(i)<abs(n));
         }
 
         return(scale * sqrt(ssq));

Original file line number	Diff line number	Diff line change
`@@ -96,7 +96,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)`
`96`	`96`	`{`
`97`	`97`	`BLASLONG i=0;`
`98`	`98`
`99`		`- if (n <= 0 \|\| inc_x <= 0) return(0.0);`
	`99`	`+ if (n <= 0 \|\| inc_x == 0) return(0.0);`
`100`	`100`
`101`	`101`	`FLOAT_V_T v_ssq, v_scale, v0, v1, v_zero;`
`102`	`102`	`unsigned int gvl = 0;`
`@@ -176,7 +176,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)`
`176`	`176`	`}`
`177`	`177`
`178`	`178`	`i += inc_x*2;`
`179`		`- }while(i<n);`
	`179`	`+ }while(abs(i)<abs(n));`
`180`	`180`	`}`
`181`	`181`
`182`	`182`	`return(scale * sqrt(ssq));`