Home
last modified time | relevance | path

Searched refs:s2h (Results 1 – 2 of 2) sorted by relevance

/illumos-gate/usr/src/lib/libm/common/complex/
H A Dk_clog_rl.c365 long double y, r, w, s2, s2h, s2t, t, zk, v, P; in k_log_NKzl() local
378 s2h = s2 = r * t; in k_log_NKzl()
382 ((unsigned *)&s2h)[0] = 0; /* 32 bits chopped */ in k_log_NKzl()
385 lx = ((unsigned *)&s2h)[2]; /* 56 bits rounded */ in k_log_NKzl()
387 ((unsigned *)&s2h)[2] = (j << 25); in k_log_NKzl()
388 lx = ((unsigned *)&s2h)[1]; in k_log_NKzl()
390 ((unsigned *)&s2h)[1] = ly; in k_log_NKzl()
391 ((unsigned *)&s2h)[0] += (ly == 0 && lx != 0); in k_log_NKzl()
392 ((unsigned *)&s2h)[3] = 0; in k_log_NKzl()
395 v = half * s2h; in k_log_NKzl()
[all …]
H A Dk_clog_r.c227 double y, r, w, s2, s2h, s2t, t, zk, v, P; in k_log_NKz() local
233 s2h = s2 = r * t; in k_log_NKz()
234 ((int *)&s2h)[LOWORD] &= 0xe0000000; in k_log_NKz()
235 v = half * s2h; in k_log_NKz()
237 s2t = r * ((((zh - s2h * zk) - v * zh) + (*zt)) - v * (*zt)); in k_log_NKz()
241 y = t + (P + s2h); in k_log_NKz()
242 P -= ((y - t) - s2h); in k_log_NKz()