workaround fault with ssq=inf,scale=0

2022-07-02 23:47:17 +02:00 · 2022-07-02 23:47:17 +02:00 · 9e29598575
parent 3df3d622eb
commit 9e29598575
1 changed files with 1 additions and 0 deletions
--- a/kernel/arm64/dznrm2_thunderx2t99.c
+++ b/kernel/arm64/dznrm2_thunderx2t99.c
@ -404,6 +404,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
 #else
 	nrm2_compute(n, x, inc_x, &ssq, &scale);
 #endif
+	if (fabs(scale) <1.e-300) return 0.;
 	ssq = sqrt(ssq) * scale;

 	return ssq;