gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/s_fma.c - 7.6KB - 218 lines

175: 
176:         zs = ldexp(zs, -spread);
177:         r = c + zs;
189:                  */
190:                 p = ldexp(copysign(0x1p-1022, r), -spread);
191:                 c = r + p;
196:         }
197:         return (ldexp(r, spread));
198: }