Lines Matching refs:x
314 #define word0(x) (x)->L[1] argument
315 #define word1(x) (x)->L[0] argument
317 #define word0(x) (x)->L[0] argument
318 #define word1(x) (x)->L[1] argument
320 #define dval(x) (x)->d argument
541 ULong x[1]; member
589 int x; local
601 x = 1 << k;
603 rv = (Bigint *)MALLOC(sizeof(Bigint) + (x-1)*sizeof(ULong));
609 len = (sizeof(Bigint) + (x-1)*sizeof(ULong) + sizeof(double) - 1)
623 rv->maxwds = x;
654 #define Bcopy(x,y) memcpy((char *)&x->sign, (char *)&y->sign, \ argument
667 ULong *x; local
670 ULong carry, *x, y; local
678 x = b->x;
683 y = *x * (ULLong)m + carry;
685 *x++ = y & FFFFFFFF;
688 xi = *x;
692 *x++ = (z << 16) + (y & 0xffff);
694 y = *x * m + carry;
696 *x++ = y & 0xffff;
708 b->x[wds++] = carry;
724 Long x, y; local
726 x = (nd + 8) / 9;
727 for(k = 0, y = 1; x > y; y <<= 1, k++) ;
730 b->x[0] = y9;
734 b->x[0] = y9 & 0xffff;
735 b->wds = (b->x[1] = y9 >> 16) ? 2 : 1;
755 (x) ULong x; in hi0bits() argument
757 (ULong x)
762 if (!(x & 0xffff0000)) {
764 x <<= 16;
766 if (!(x & 0xff000000)) {
768 x <<= 8;
770 if (!(x & 0xf0000000)) {
772 x <<= 4;
774 if (!(x & 0xc0000000)) {
776 x <<= 2;
778 if (!(x & 0x80000000)) {
780 if (!(x & 0x40000000))
795 ULong x = *y; local
797 if (x & 7) {
798 if (x & 1)
800 if (x & 2) {
801 *y = x >> 1;
804 *y = x >> 2;
808 if (!(x & 0xffff)) {
810 x >>= 16;
812 if (!(x & 0xff)) {
814 x >>= 8;
816 if (!(x & 0xf)) {
818 x >>= 4;
820 if (!(x & 0x3)) {
822 x >>= 2;
824 if (!(x & 1)) {
826 x >>= 1;
827 if (!x)
830 *y = x;
845 b->x[0] = i;
860 ULong *x, *xa, *xae, *xb, *xbe, *xc, *xc0; local
883 for(x = c->x, xa = x + wc; x < xa; x++)
884 *x = 0;
885 xa = a->x;
887 xb = b->x;
889 xc0 = c->x;
893 x = xa;
897 z = *x++ * (ULLong)y + *xc + carry;
901 while(x < xae);
909 x = xa;
913 z = (*x & 0xffff) * y + (*xc & 0xffff) + carry;
915 z2 = (*x++ >> 16) * y + (*xc >> 16) + carry;
919 while(x < xae);
923 x = xa;
928 z = (*x & 0xffff) * y + (*xc >> 16) + carry;
931 z2 = (*x++ >> 16) * y + (*xc & 0xffff) + carry;
934 while(x < xae);
941 x = xa;
945 z = *x++ * y + *xc + carry;
949 while(x < xae);
955 for(xc0 = c->x, xc = xc0 + wc; wc > 0 && !*--xc; --wc) ;
1029 ULong *x, *x1, *xe, z; local
1041 x1 = b1->x;
1044 x = b->x;
1045 xe = x + b->wds;
1051 *x1++ = *x << k | z;
1052 z = *x++ >> k1;
1054 while(x < xe);
1063 *x1++ = *x << k & 0xffff | z;
1064 z = *x++ >> k1;
1066 while(x < xe);
1072 *x1++ = *x++;
1073 while(x < xe);
1093 if (i > 1 && !a->x[i-1])
1095 if (j > 1 && !b->x[j-1])
1100 xa0 = a->x;
1102 xb0 = b->x;
1137 c->x[0] = 0;
1151 xa = a->x;
1154 xb = b->x;
1156 xc = c->x;
1210 (x) U *x; in ulp() argument
1212 (U *x)
1218 L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
1267 xa0 = a->x;
1329 ULong *x, y, z; local
1347 x = b->x;
1363 x[0] = y | z << (32 - k);
1367 x[0] = y;
1371 b->wds = (x[1] = z) ? 2 : 1;
1375 x[0] = z;
1386 x[0] = y | z << 32 - k & 0xffff;
1387 x[1] = z >> k - 16 & 0xffff;
1388 x[2] = z >> k;
1392 x[0] = y & 0xffff;
1393 x[1] = y >> 16 | z << 16 - k & 0xffff;
1394 x[2] = z >> k & 0xffff;
1395 x[3] = z >> k+16;
1399 x[0] = y & 0xffff;
1400 x[1] = y >> 16;
1401 x[2] = z & 0xffff;
1402 x[3] = z >> 16;
1413 x[0] = z;
1417 x[0] = z & 0xffff;
1418 x[1] = z >> 16;
1423 while(!x[i])
1442 *bits = 32*i - hi0bits(x[i-1]);
1444 *bits = (i+2)*16 - hi0bits(x[i]);
1627 ULong c, x[2]; local
1632 x[0] = x[1] = 0;
1672 x[0] = x[1];
1673 x[1] = 0;
1676 x[0] = (x[0] << 4) | (x[1] >> 28);
1677 x[1] = (x[1] << 4) | c;
1679 if ((x[0] &= 0xfffff) || x[1]) {
1680 word0(rvp) = Exp_mask | x[0];
1681 word1(rvp) = x[1];
1705 ULong *x, *xe; local
1708 x = b->x;
1709 xe = x + b->wds;
1711 if (*x < (ULong)0xffffffffL) {
1712 ++*x;
1715 *x++ = 0;
1716 } while(x < xe);
1724 b->x[b->wds++] = 1;
1740 ULong *x, *x1, *xe, y; local
1743 x = x1 = b->x;
1746 xe = x + b->wds;
1747 x += n;
1750 y = *x++ >> k;
1751 while(x < xe) {
1752 *x1++ = (y | (*x << n)) & 0xffffffff;
1753 y = *x++ >> k;
1759 while(x < xe)
1760 *x1++ = *x++;
1762 if ((b->wds = x1 - b->x) == 0)
1763 b->x[0] = 0;
1774 ULong *x, *x0, x1, x2; local
1776 x = b->x;
1782 x1 = x2 = x[n];
1788 x0 = x;
1789 x += n;
1790 while(x > x0)
1791 if (*--x)
1814 ULong L, lostbits, *x; local
1985 x = b->x;
2002 *x++ = L;
2009 *x++ = L;
2010 b->wds = n = x - b->x;
2014 x = b->x;
2020 if (x[k>>kshift] & 1 << (k & kmask)) {
2033 x = b->x;
2080 if (x[k>>kshift] & 1 << (k & kmask))
2093 && (lostbits & 1) | (x[0] & 1))
2105 x = b->x;
2109 && x[nbits >> kshift] & 1 << (nbits & kmask))
2115 && hi0bits(x[k-1]) < 32-n)) {
2124 word0(rvp) = b->wds > 1 ? b->x[1] & ~0x100000 : 0;
2126 word0(rvp) = (b->x[1] & ~0x100000) | ((e + 0x3ff + 52) << 20);
2127 word1(rvp) = b->x[0];
2131 k = b->x[0] & ((1 << j) - 1);
2151 word0(rvp) = b->x[1] | ((e + 65 + 13) << 24);
2152 word1(rvp) = b->x[0];
2158 word0(rvp) = ((b->x[1] & ~0x800000) >> 16) | ((e + 129 + 55) << 7) | (b->x[1] << 16);
2159 word1(rvp) = (b->x[0] >> 16) | (b->x[0] << 16);
2172 int rv = hi0bits(b->x[b->wds-1]) - 4;
2204 sx = S->x;
2206 bx = b->x;
2251 bx = b->x;
2261 bx = b->x;
2262 sx = S->x;
2291 bx = b->x;
2306 (x, bc) U *x; BCinfo *bc; in sulp() argument
2308 (U *x, BCinfo *bc)
2315 rv = ulp(x);
2316 if (!bc->scale || (i = 2*P + 1 - ((word0(x) & Exp_mask) >> Exp_shift)) <= 0)
2400 b->x[0] |= 1;
2441 if (!b->x[0] && b->wds == 1) {
2452 if (!b->x[0] && b->wds == 1) {
2460 if (dig > 0 || b->x[0] || b->wds > 1)
3146 if (!delta->x[0] && delta->wds <= 1) {
3250 if (!delta->x[0] && delta->wds <= 1)
3255 if (!delta->x[0] && delta->wds <= 1) {
3762 ULong x; local
3892 x = i > 32 ? word0(&u) << (64 - i) | word1(&u) >> (i - 32)
3894 dval(&d2) = x;
4282 else if (!b->x[0] && b->wds <= 1)
4294 if (!b->x[0] && b->wds <= 1) {
4353 if (!b->x[0] && b->wds <= 1) {
