From 9ff4e9714e93c7dcc4deb9934846ec6b4a3099f6 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 31 May 2024 15:44:07 +0200 Subject: [PATCH] additional fixes for handling INF arguments --- kernel/arm/zscal.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/kernel/arm/zscal.c b/kernel/arm/zscal.c index b2d537d04..c4855f73e 100644 --- a/kernel/arm/zscal.c +++ b/kernel/arm/zscal.c @@ -61,7 +61,9 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F { temp = - da_i * x[ip+1] ; if (isnan(x[ip]) || isinf(x[ip])) temp = NAN; - x[ip+1] = da_i * x[ip] ; + if (!isinf(x[ip+1])) + x[ip+1] = da_i * x[ip] ; + else x[ip+1] = NAN; } } else