| /titanic_50/usr/src/lib/libc/sparc/fp/ |
| H A D | _Q_sqrt.c | 98 double c, d, rr, r[2], tt[3], xx[4], zz[5]; in _Qp_sqrt() local
237 zz[0] = (c + two29) - two29; in _Qp_sqrt()
238 tt[0] = zz[0] + zz[0]; in _Qp_sqrt()
239 r[0] = (xx[0] - zz[0] * zz[0]) + xx[1]; in _Qp_sqrt()
241 zz[1] = (rr * (r[0] + xx[2]) + three2p4) - three2p4; in _Qp_sqrt()
242 tt[1] = zz[1] + zz[1]; in _Qp_sqrt()
243 r[0] -= tt[0] * zz[1]; in _Qp_sqrt()
244 r[1] = xx[2] - zz[1] * zz[1]; in _Qp_sqrt()
249 zz[2] = (rr * (r[0] + r[1]) + three2m20) - three2m20; in _Qp_sqrt()
250 tt[2] = zz[2] + zz[2]; in _Qp_sqrt()
[all …]
|
| H A D | _Q_mul.c | 89 double xx[5], yy[5], c, d, zz[9]; in _Qp_mul() local
306 zz[0] = xx[0] * yy[0]; in _Qp_mul()
307 zz[1] = xx[0] * yy[1] + xx[1] * yy[0]; in _Qp_mul()
308 zz[2] = xx[0] * yy[2] + xx[1] * yy[1] + xx[2] * yy[0]; in _Qp_mul()
309 zz[3] = xx[0] * yy[3] + xx[1] * yy[2] + xx[2] * yy[1] + in _Qp_mul()
311 zz[4] = xx[0] * yy[4] + xx[1] * yy[3] + xx[2] * yy[2] + in _Qp_mul()
313 zz[5] = xx[1] * yy[4] + xx[2] * yy[3] + xx[3] * yy[2] + in _Qp_mul()
315 zz[6] = xx[2] * yy[4] + xx[3] * yy[3] + xx[4] * yy[2]; in _Qp_mul()
316 zz[7] = xx[3] * yy[4] + xx[4] * yy[3]; in _Qp_mul()
317 zz[8] = xx[4] * yy[4]; in _Qp_mul()
[all …]
|
| H A D | _Q_div.c | 107 double c, d, ry, xx[4], yy[5], zz[5]; in _Qp_div() local
341 zz[0] = (ry * (xx[0] + xx[1]) + three2p27) - three2p27; in _Qp_div()
342 xx[0] = ((xx[0] - zz[0] * yy[0]) - zz[0] * yy[1]) + xx[1]; in _Qp_div()
343 d = zz[0] * yy[2]; in _Qp_div()
347 d = zz[0] * yy[3]; in _Qp_div()
351 d = zz[0] * yy[4]; in _Qp_div()
356 zz[1] = (ry * (xx[0] + xx[1]) + three2p3) - three2p3; in _Qp_div()
357 xx[0] = ((xx[0] - zz[1] * yy[0]) - zz[1] * yy[1]) + xx[1]; in _Qp_div()
358 d = zz[1] * yy[2]; in _Qp_div()
362 d = zz[1] * yy[3]; in _Qp_div()
[all …]
|
| /titanic_50/usr/src/lib/libm/common/m9x/ |
| H A D | fmaf.c | 46 } xy, zz; in __fmaf() local
56 zz.d = (double) z; in __fmaf()
63 ez = (zz.i[0] >> 20) & 0x7ff; in __fmaf()
66 return ((float) (xy.d + zz.d)); in __fmaf()
94 u = zz.i[1]; in __fmaf()
98 zz.i[1] = u & ~(s - 1); in __fmaf()
100 u = zz.i[0]; in __fmaf()
102 if ((u & (s - 1)) | zz.i[1]) in __fmaf()
104 zz.i[0] = u & ~(s - 1); in __fmaf()
105 zz.i[1] = 0; in __fmaf()
[all …]
|
| H A D | llrintl.c | 52 } zz; in llrintl() local
95 zz.i[0] = 0; in llrintl()
96 zz.i[1] = xx.i[0] >> (j - 96); in llrintl()
101 zz.i[0] = xx.i[0] >> (j - 64); in llrintl()
102 zz.i[1] = ((xx.i[0] << 1) << (95 - j)) | (xx.i[1] >> (j - 64)); in llrintl()
107 zz.i[0] = ((xx.i[0] << 1) << (63 - j)) | (xx.i[1] >> (j - 32)); in llrintl()
108 zz.i[1] = ((xx.i[1] << 1) << (63 - j)) | (xx.i[2] >> (j - 32)); in llrintl()
116 (frac == 0x80000000 && (zz.i[1] & 1)))))) { in llrintl()
117 if (++zz.i[1] == 0) in llrintl()
118 zz.i[0]++; in llrintl()
[all …]
|
| H A D | llroundl.c | 48 } zz; in llroundl() local
78 zz.i[0] = 0; in llroundl()
79 zz.i[1] = xx.i[0] >> (j - 96); in llroundl()
84 zz.i[0] = xx.i[0] >> (j - 64); in llroundl()
85 zz.i[1] = ((xx.i[0] << 1) << (95 - j)) | (xx.i[1] >> (j - 64)); in llroundl()
90 zz.i[0] = ((xx.i[0] << 1) << (63 - j)) | (xx.i[1] >> (j - 32)); in llroundl()
91 zz.i[1] = ((xx.i[1] << 1) << (63 - j)) | (xx.i[2] >> (j - 32)); in llroundl()
99 if (++zz.i[1] == 0) in llroundl()
100 zz.i[0]++; in llroundl()
104 if (zz.i[0] > 0x80000000u || (zz.i[0] == 0x80000000 && (zz.i[1] || in llroundl()
[all …]
|
| H A D | fmal.c | 87 } xx, yy, zz; in __fmal() local
104 zz.q = z; in __fmal()
107 hz = zz.i[0] & ~0x80000000; in __fmal()
148 if ((hz & 0xffff) | zz.i[1] | zz.i[2] | zz.i[3]) { in __fmal()
152 zz.i[0] |= 0x8000; in __fmal()
153 return (zz.q); in __fmal()
159 cz = (zz.i[1] | zz.i[2] | zz.i[3]) ? 1 : 0; in __fmal()
183 zz.i[0] = 0x7fffffff; in __fmal()
184 zz.i[1] = zz.i[2] = zz.i[3] = 0xffffffff; in __fmal()
185 return (zz.q); in __fmal()
[all …]
|
| H A D | fma.c | 75 } xx, yy, zz; in __fma() local
84 zz.d = z; in __fma()
87 hz = zz.i[0] & ~0x80000000; in __fma()
97 if ((hz | zz.i[1]) == 0) /* z is zero */ in __fma()
114 sz = zz.i[0] & 0x80000000; in __fma()
127 zz.d = z * two52; in __fma()
128 ez = ((zz.i[0] & ~0x80000000) >> 20) - 52; in __fma()
157 z0 = (zz.i[0] & 0xfffff) | 0x100000; in __fma()
158 z1 = zz.i[1]; in __fma()
310 zz.i[0] = rm == FSR_RM ? 0x80000000 : 0; in __fma()
[all …]
|
| H A D | tgammaf.c | 309 double ss, zz, z, t1, t2, w, y, u; in large_gam() local
332 zz = z * z; in large_gam()
333 w = ((x - half) * ss + hln2pi) + z * (GP0 + zz * GP1 + (zz * zz) * GP2); in large_gam()
340 zz = S[j] * (one + z + (z * z) * (Et1 + z * Et2)); in large_gam()
341 __HI(zz) += m << 20; in large_gam()
342 return (zz); in large_gam()
|
| H A D | tgammal.c | 630 struct LDouble zz; in large_gam() local
724 zz.l = S_trail[j] * (one + t3) + S[j] * t3; in large_gam()
725 zz.h = S[j]; in large_gam()
726 return (zz); in large_gam()
|
| H A D | tgamma.c | 1215 struct Double zz; in large_gam() local
1310 zz.l = S_trail[j] * (one + t3) + S[j] * t3; in large_gam()
1311 zz.h = S[j]; in large_gam()
1312 return (zz); in large_gam()
|
| /titanic_50/usr/src/common/bzip2/ |
| H A D | huffman.c | 35 Int32 zz, tmp; \
36 zz = z; tmp = heap[zz]; \
37 while (weight[tmp] < weight[heap[zz >> 1]]) { \
38 heap[zz] = heap[zz >> 1]; \
39 zz >>= 1; \
41 heap[zz] = tmp; \
46 Int32 zz, yy, tmp; \
47 zz = z; tmp = heap[zz]; \
49 yy = zz << 1; \
55 heap[zz] = heap[yy]; \
[all …]
|
| H A D | blocksort.c | 205 #define SET_BH(zz) bhtab[(zz) >> 5] |= (1 << ((zz) & 31)) argument
206 #define CLEAR_BH(zz) bhtab[(zz) >> 5] &= ~(1 << ((zz) & 31)) argument
207 #define ISSET_BH(zz) (bhtab[(zz) >> 5] & (1 << ((zz) & 31))) argument
208 #define WORD_BH(zz) bhtab[(zz) >> 5] argument
209 #define UNALIGNED_BH(zz) ((zz) & 0x01f) argument
|
| /titanic_50/usr/src/lib/libm/common/complex/ |
| H A D | k_atan2.c | 283 double y, z, r, s, t, w, s_h, s_l, x_h, x_l, zz[3], ee[2], z_h, in mx_atan() local
315 zz[0] = z; in mx_atan()
316 zz[1] = z_h; in mx_atan()
317 zz[2] = z_l + x_l * (x + x_h); in mx_atan()
324 mx_poly(zz, p, ee, 3); in mx_atan()
365 zz[0] = z; in mx_atan()
366 zz[1] = z_h; in mx_atan()
367 zz[2] = z_l + r_l * (r + r_h); in mx_atan()
372 mx_poly(zz, p, ee, 3); in mx_atan()
381 zz[0] = z; in mx_atan()
[all …]
|
| H A D | k_atan2l.c | 574 long double y, z, r, s, t, w, s_h, s_l, x_h, x_l, zz[3], ee[2], z_h, in mx_atanl() local
608 zz[0] = z; in mx_atanl()
609 zz[1] = z_h; in mx_atanl()
610 zz[2] = z_l + x_l * (x + x_h); in mx_atanl()
614 mx_polyl(zz, pe, ee, 3); in mx_atanl()
648 zz[0] = z; in mx_atanl()
649 zz[1] = z_h; in mx_atanl()
650 zz[2] = z_l + r_l * (r + r_h); in mx_atanl()
657 mx_polyl(zz, pe, ee, 3); in mx_atanl()
664 mx_polyl(zz, qe, ee, 2); in mx_atanl()
[all …]
|
| /titanic_50/usr/src/common/mpi/ |
| H A D | mp_gf2m.c | 357 mp_digit zz, *z, tmp; in mp_bmod() local
375 zz = z[j]; in mp_bmod()
376 if (zz == 0) { in mp_bmod()
387 z[j-n] ^= (zz>>d0); in mp_bmod()
389 z[j-n-1] ^= (zz<<d1); in mp_bmod()
396 z[j-n] ^= (zz >> d0); in mp_bmod()
398 z[j-n-1] ^= (zz << d1); in mp_bmod()
406 zz = z[dN] >> d0; in mp_bmod()
407 if (zz == 0) break; in mp_bmod()
412 *z ^= zz; /* reduction t^0 component */ in mp_bmod()
[all …]
|
| /titanic_50/usr/src/lib/libshell/common/tests/ |
| H A D | types.sh | 86 x=( typeset -a arr=([2]=abc [4]=(x=1 y=def));zz=abc)
143 typeset -T xx=(typeset yy=zz)
145 { typeset -T xx=(typeset yy=zz) ;} 2>/dev/null && err_exit 'type redefinition should fail'
|
| /titanic_50/usr/src/lib/libm/common/Q/ |
| H A D | sqrtl.c | 401 double xx[5], zz[3]; in sqrtl() local
463 __q_tp_sqrt(xx, zz); in sqrtl()
468 __q_pack(zz, ex >> 1, rm, &x, &inexact); in sqrtl()
|
| /titanic_50/usr/src/cmd/perl/contrib/Sun/Solaris/Utils/t/ |
| H A D | gmatch.t | 42 my @strs = ( 'a', 'aa', 'z', 'zz', '0', '0123456789' );
|