| /illumos-gate/usr/src/lib/libm/common/complex/ |
| H A D | cabs.c | 53 double x, y, xh, yh, w, ax, ay; in cabs() local
161 ((int *)&xh)[HIWORD] = ix; in cabs()
162 ((int *)&xh)[LOWORD] = 0; in cabs()
163 ay = ay * ay + (ax - xh) * (ax + xh); in cabs()
164 ax = sqrt(xh * xh + ay); in cabs()
167 ((int *)&xh)[HIWORD] = ix + 0x00100000; in cabs()
168 ((int *)&xh)[LOWORD] = 0; in cabs()
171 ay = w * w + ((ax - xh) * yh + (ay - yh) * ax); in cabs()
172 ax = sqrt(xh * yh + ay); in cabs()
|
| H A D | k_atan2.c | 458 double t, xh, th, t1, t2, w1, w2; in __k_atan2() local
515 xh = x; in __k_atan2()
516 ((int *) &xh)[LOWORD] &= 0xf8000000; in __k_atan2()
517 t1 = (x - xh) * t + xh * (t - th); in __k_atan2()
518 t2 = y - xh * th; in __k_atan2()
535 xh = x; in __k_atan2()
536 ((int *) &xh)[LOWORD] &= 0xf8000000; in __k_atan2()
537 t1 = (x - xh) * t + xh * (t - th); in __k_atan2()
538 t2 = y - xh * th; in __k_atan2()
|
| H A D | k_atan2l.c | 724 long double t, xh, th, t1, t2, w1, w2; in __k_atan2l() local
777 xh = x; HALF(xh); in __k_atan2l()
778 t1 = (x - xh) * t + xh * (t - th); in __k_atan2l()
779 t2 = y - xh * th; in __k_atan2l()
795 xh = x; HALF(xh); in __k_atan2l()
796 t1 = (x - xh) * t + xh * (t - th); in __k_atan2l()
797 t2 = y - xh * th; in __k_atan2l()
|
| /illumos-gate/usr/src/lib/libm/common/C/ |
| H A D | hypot.c | 80 double xh, yh, w, ax, ay; in hypot() local
186 ((int *) &xh)[HIWORD] = ix; in hypot()
187 ((int *) &xh)[LOWORD] = 0; in hypot()
188 ay = ay * ay + (ax - xh) * (ax + xh); in hypot()
189 ax = sqrt(xh * xh + ay); in hypot()
192 ((int *) &xh)[HIWORD] = ix + 0x00100000; in hypot()
193 ((int *) &xh)[LOWORD] = 0; in hypot()
196 ay = w * w + ((ax - xh) * yh + (ay - yh) * ax); in hypot()
197 ax = sqrt(xh * yh + ay); in hypot()
|
| H A D | __tan.c | 124 double a, t, z, w = 0.0L, s, c, r, rh, xh, xl; in __k_tan() local
152 xh = w; in __k_tan()
153 ((int *) &xh)[LOWORD] = 0; in __k_tan()
154 xl = (x - xh) + t; in __k_tan()
155 return (rh + r * ((one + rh * xh) + rh * xl)); in __k_tan()
189 xh = a + c; in __k_tan()
190 ((int *) &xh)[LOWORD] = 0; in __k_tan()
191 xl = (a - xh) + c; in __k_tan()
192 z = rh + r * (((one - rh * xh) - t) - rh * xl); in __k_tan()
|
| H A D | atan2.c | 410 double ah, al, t, xh, x, y, z; in atan2() local
493 xh = x; in atan2()
494 ((int *)&xh)[LOWORD] = 0; in atan2()
495 z = ((y - t * xh) - t * (x - xh)) / (x + y * t); in atan2()
|
| /illumos-gate/usr/src/lib/libmvec/common/ |
| H A D | __vatan2.c | 73 double z0, z1, z2, sign0, sign1, sign2, xh; in __vatan2() local
182 xh = x0; in __vatan2()
183 LO(&xh) = 0; in __vatan2()
184 z0 = ((y0 - t0 * xh) - t0 * (x0 - xh)) / (x0 + y0 * t0); in __vatan2()
297 xh = x1; in __vatan2()
298 LO(&xh) = 0; in __vatan2()
299 z1 = ((y1 - t1 * xh) - t1 * (x1 - xh)) / (x1 + y1 * t1); in __vatan2()
412 xh = x2; in __vatan2()
413 LO(&xh) = 0; in __vatan2()
414 z2 = ((y2 - t2 * xh) - t2 * (x2 - xh)) / (x2 + y2 * t2); in __vatan2()
|
| /illumos-gate/usr/src/lib/libm/common/m9x/ |
| H A D | tgammal.c | 883 long double r1, r2, t2, z, xh, xl, yh, yl, zh, z1, z2, zl, x5, wh, wl; in gam_n() local
908 xh = CHOPPED((x)); /* x is not tiny */ in gam_n()
910 rr.l = r1 * (yy.h - rr.h * xh) - ((r1 * rr.h) * (x - xh) - in gam_n()
927 xh = CHOPPED((z)); in gam_n()
929 xl = (x - (zh - one)) * (z2 + zh) - (xh - zh * (zh + one)); in gam_n()
931 rr.h = xh * yy.h; in gam_n()
940 xh = CHOPPED(z2); in gam_n()
941 xl = zl * (zh + z1) - (xh - (zh * zh - one)); in gam_n()
947 rr.h = xh * wh; in gam_n()
960 xh = CHOPPED((z)); in gam_n()
[all …]
|
| H A D | tgamma.c | 1408 double r1, r2, t2, z, xh, xl, yh, yl, zh, z1, z2, zl, x5, wh, wl; in gam_n() local
1434 xh = (double) ((float) x); /* x is not tiny */ in gam_n()
1436 rr.l = r1 * (yy.h - rr.h * xh) - in gam_n()
1437 ((r1 * rr.h) * (x - xh) - r1 * yy.l); in gam_n()
1453 xh = (double) ((float) z); in gam_n()
1455 xl = (x - (zh - one)) * (z2 + zh) - (xh - zh * (zh + one)); in gam_n()
1456 rr.h = xh * yy.h; in gam_n()
1468 xh = (double) ((float) z); in gam_n()
1469 xl = zl * (z2 + zh * (z1 + zh)) - (xh - zh * (zh * zh - one)); in gam_n()
1470 rr.h = xh * yy.h; in gam_n()
[all …]
|
| /illumos-gate/usr/src/contrib/ast/src/lib/libast/uwin/ |
| H A D | exp__E.c | 118 double z,p,q,xp,xh,w; variable
128 xh= x*half ;
129 w = xh-(q-xp) ;
131 c += x*((xh*w-(q-(p+xp)))/(one-w)+c);
|
| /illumos-gate/usr/src/contrib/ast/src/lib/libast/port/ |
| H A D | lc.tab | 163 xh xhosa
|