blob: 68bb6ef9a5069e8e1cafecbd0f7b25792fd436ad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
diff '--color=auto' -Naur scm.old/scl.c scm/scl.c
--- scm.old/scl.c 2026-04-18 21:41:05.718448466 +0300
+++ scm/scl.c 2026-04-18 21:41:28.657818441 +0300
@@ -953,7 +953,7 @@
/* at this point, we have a legitimate floating point result */
if (lead_sgn==-1) res = -res;
if (i==len)
-# ifdef SINGLES
+# if defined SINGLES && defined ARRAYS
return shrtp ? makflo(res) : makdbl(res, 0.0);
# else
return makdbl(res, 0.0);
|
