Fix handling of NAN and INF

2024-01-07 17:56:51 +01:00
parent 1412d2deeb
commit d3d99c34f2
1 changed files with 1 additions and 0 deletions
--- a/kernel/mips/zscal.c
+++ b/kernel/mips/zscal.c
@@ -63,6 +63,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
 				x[ip+1] = da_r * x[ip+1] + da_i * x[ip]   ;
 			}
 		}
+		if (!isnan(x_ip] && !isinf(x[ip]))
 		x[ip]   = temp;

 		ip += inc_x2;