Update zscal.c

martin-frbg · web-flow · commit 25b0c48082a3 · 2024-01-08T09:49:18.000+01:00
diff --git a/kernel/mips/zscal.c b/kernel/mips/zscal.c
@@ -47,7 +47,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
 			else
 			{
 				temp = - da_i * x[ip+1] ;
-				if (isnan(x[ip]) || isinf(x[ip])) temp = x[ip];
+				if (isnan(x[ip]) || isinf(x[ip])) temp = NAN;
 				x[ip+1] = da_i * x[ip]  ;
 			}
 		}

Original file line number	Diff line number	Diff line change
`@@ -47,7 +47,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F`
`47`	`47`	`else`
`48`	`48`	`{`
`49`	`49`	`temp = - da_i * x[ip+1] ;`
`50`		`- if (isnan(x[ip]) \|\| isinf(x[ip])) temp = x[ip];`
	`50`	`+ if (isnan(x[ip]) \|\| isinf(x[ip])) temp = NAN;`
`51`	`51`	`x[ip+1] = da_i * x[ip] ;`
`52`	`52`	`}`
`53`	`53`	`}`